<?xml version="1.0"?>
<?xml-stylesheet type="text/css" href="https://xmlpipedb.lmucs.io/biodb/fall2013/skins/common/feed.css?303"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="en">
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=Kevinmcgee</id>
		<title>LMU BioDB 2013 - User contributions [en]</title>
		<link rel="self" type="application/atom+xml" href="https://xmlpipedb.lmucs.io/biodb/fall2013/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=Kevinmcgee"/>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Special:Contributions/Kevinmcgee"/>
		<updated>2026-04-06T13:10:14Z</updated>
		<subtitle>User contributions</subtitle>
		<generator>MediaWiki 1.20.3</generator>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-20T00:15:36Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: /* Step 7-8: Clustering and GO Term Enrichment with stem */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;br /&gt;
&lt;br /&gt;
=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
#In AM1, made title dgln3_Bonferoni_Pvalue_t15&lt;br /&gt;
#* Created column heading similar for t30, t60, t90, and t120&lt;br /&gt;
#*In AM2, inputted the formula&lt;br /&gt;
 =AH2*6189&lt;br /&gt;
&lt;br /&gt;
Did this for 30,60, 90 and 120 as well&lt;br /&gt;
&lt;br /&gt;
#*Copied and pasted these throughout the columns &lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
#Created a new sheet called dgln3_ttest_B-H&lt;br /&gt;
#*Copied and pasted Master index, ID, and Standard Name from the master sheet&lt;br /&gt;
#Copied and did a special values paste for all timepoints of the unadjusted Pvalues into columns D-H&lt;br /&gt;
#In the following steps, I will insert 3 coulmns in between each unadjusted Pvalue timepoint. Therfore, t30, t60, t90, and t120 will eventually be placed in columns H, L, P, and T respectively&lt;br /&gt;
#Selected columns A_D and sorted by ascending numbers in  D&lt;br /&gt;
#Named Column E &amp;quot;Rank&amp;quot;&lt;br /&gt;
#*From E2 down, numbered the cells 1-6190&lt;br /&gt;
#Named the next column Dgln3_ttest_B-H_t15 and inputted the following formula:&lt;br /&gt;
 =(D2*6189)/E2&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
#Named column G dgln3_B-H_Pval_t15 and inputted the formula:&lt;br /&gt;
 =IF(F2&amp;lt;1,1,F2)&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
#How many genes have a Pvalue&amp;lt;0.05 at each timepoint?&lt;br /&gt;
#* 15: 1027 (16.59%)&lt;br /&gt;
#* 30: 1622 (26.21%)&lt;br /&gt;
#* 60: 628 (10.15%)&lt;br /&gt;
#* 90: 558 (9.11%)&lt;br /&gt;
#* 120: 403 (6.51%)&lt;br /&gt;
#Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&lt;br /&gt;
#* LogFC &amp;gt; 0.25&lt;br /&gt;
#** 15: 559 (9.03%)&lt;br /&gt;
#** 30: 897 (14.49%)&lt;br /&gt;
#** 60: 319 (5.15%)&lt;br /&gt;
#** 90: 265 (4.28%)&lt;br /&gt;
#** 120: 190 (3.07%)&lt;br /&gt;
#* LogFC &amp;lt; -0.25&lt;br /&gt;
#** 15: 458 (7.4%)&lt;br /&gt;
#** 30: 711 (11.49%)&lt;br /&gt;
#** 60: 304 (4.91%)&lt;br /&gt;
#** 90: 289 (4.67%)&lt;br /&gt;
#** 120: 207 (3.34%)&lt;br /&gt;
#* How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 5 (0.08%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 1 (0.016%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
Here is link to download my excel file including all data including ANOVA and ttest [https://lionshare.lmu.edu/Users/kmcgee3/KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx ]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Here is the Link to download my powerpoint slide including all pvalue data for gln3 [https://lionshare.lmu.edu/Users/kmcgee3/Sanity%20Check%20dGLN3%20Kevin%20McGee.ppt Sanity Check dGLN3 Kevin McGee]&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, navigated to the folder &amp;quot;Microarray analysis&amp;quot; containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose the &amp;quot;Microarray analysis&amp;quot; folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot; (Master_sheet), and the two strains that will be compared as the variables &amp;quot;wt&amp;quot; and &amp;quot;dGLN3&amp;quot;.&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
#Matlab will produce two files:&lt;br /&gt;
#*mat&lt;br /&gt;
#*xls&lt;br /&gt;
&lt;br /&gt;
upload these to lionshare&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
#* Inserted a new worksheet into your Excel workbook, and named it &amp;quot;dgln3_stem&amp;quot;.&lt;br /&gt;
#* Selected all of the data from &amp;quot;dgln3_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into dgln3_stem worksheet.&lt;br /&gt;
#**Renamed Master List this column to &amp;quot;SPOT&amp;quot; and ID to &amp;quot;Gene Symbol&amp;quot;.  Deleted &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filtered the data on the B-H corrected p value to be &amp;gt; 0.05 &lt;br /&gt;
#*** Once the data had been filtered, selected all of the rows and deleted the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undid the filter. &lt;br /&gt;
#** Deleted all of the data columns except for the Average Log Fold change columns for each timepoint.&lt;br /&gt;
#** Renamed the data columns with just the time and units&lt;br /&gt;
#***15m&lt;br /&gt;
#***30m&lt;br /&gt;
#***60m&lt;br /&gt;
#***90m&lt;br /&gt;
#***120m&lt;br /&gt;
#** Saved. Used Save As to save this spreadsheet as Text (Tab-delimited) *.txt file.  &lt;br /&gt;
# Downloaded and extracted the STEM software. &lt;br /&gt;
#*[http://www.cs.cmu.edu/~jernst/stem/ STEM web site].&lt;br /&gt;
#*[http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link for STEM Software]&lt;br /&gt;
#*Launched the STEM program&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select the file KevinM_GCAT_and_Ontario_Final_Normalized_Data_Stem.txt&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Ran into a problem with java timing out, STEM was not working&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;After investigation, it seems the problem is happening because the Gene Ontology site is down&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Viewing and Saving STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## A new window will open called &amp;quot;All STEM Profiles (1)&amp;quot;.  Each box corresponds to a model expression profile.  Colored profiles have a statistically significant number of genes assigned; they are arranged in order from most to least significant p value.  Profiles with the same color belong to the same cluster of profiles.  The number in each box is simply an ID number for the profile.&lt;br /&gt;
##* Click on the button that says &amp;quot;Interface Options...&amp;quot;.  At the bottom of the Interface Options window that appears below where it says &amp;quot;X-axis scale should be:&amp;quot;, click on the radio button that says &amp;quot;Based on real time&amp;quot;.  Then close the Interface Options window.&lt;br /&gt;
##*Take a screenshot of this window (on a PC, simultaneously press the &amp;lt;code&amp;gt;Alt&amp;lt;/code&amp;gt; and &amp;lt;code&amp;gt;PrintScreen&amp;lt;/code&amp;gt; buttons to save the view in the active window to the clipboard) and paste it into a PowerPoint presentation to save your figures.&lt;br /&gt;
## Click on each of the SIGNIFICANT profiles (the colored ones) to open a window showing a more detailed plot containing all of the genes in that profile.&lt;br /&gt;
##* Take a screenshot of each of the individual profile windows and save the images in your PowerPoint presentation.&lt;br /&gt;
##* At the bottom of each profile window, there are two yellow buttons &amp;quot;Profile Gene Table&amp;quot; and &amp;quot;Profile GO Table&amp;quot;.  For each of the profiles, click on the &amp;quot;Profile Gene Table&amp;quot; button to see the list of genes belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, &amp;quot;dgln3_profile#_genelist.txt&amp;quot;, where you replace the number symbol with the actual profile number.&lt;br /&gt;
###*dgln3_44_genelist.txt&lt;br /&gt;
###*dgln3_24_genelist.txt&lt;br /&gt;
###*dgln3_41_genelist.txt&lt;br /&gt;
###*dgln3_39_genelist.txt&lt;br /&gt;
###*dgln3_19_genelist.txt&lt;br /&gt;
###*dgln3_9_genelist.txt&lt;br /&gt;
###*dgln3_6_genelist.txt&lt;br /&gt;
&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist. &lt;br /&gt;
##* For each of the significant profiles, click on the &amp;quot;Profile GO Table&amp;quot; to see the list of Gene Ontology terms belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;dgln3_profile#_GOlist.txt&amp;quot;.   At this point you have saved all of the primary data from the STEM software and it&amp;#039;s time to interpret the results!&lt;br /&gt;
###*dgln3_44_GOlist.txt&lt;br /&gt;
###*dgln3_41_GOlist.txt&lt;br /&gt;
###*dgln3_6_GOlist.txt&lt;br /&gt;
###*dgln3_9_GOlist.txt&lt;br /&gt;
###*dgln3_14_GOlist.txt&lt;br /&gt;
###*dgln3_19_GOlist.txt&lt;br /&gt;
###*dgln3_24_GOlist.txt&lt;br /&gt;
###*dgln3_39_GOlist.txt&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist.&lt;br /&gt;
&lt;br /&gt;
== Step 9: GenMAPP &amp;amp; MAPPFinder ==&lt;br /&gt;
&lt;br /&gt;
=== Preparing the Input File for GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Insert a new worksheet and name it dgln3_GenMAPP.&lt;br /&gt;
* Go back to the &amp;quot;ANOVA&amp;quot; worksheet for your strain and Select All and Copy.&lt;br /&gt;
* Go to your new sheet and click on cell A1 and select Paste Special, click on the Values radio button, and click OK.   &lt;br /&gt;
** Delete the columns containing the &amp;quot;ss&amp;quot; calculations, just retaining the individual log fold change data, the average log fold change data, the Fstat and p value.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Now go to your &amp;quot;dgln3_ttest&amp;quot; worksheet.  Copy just the columns containing the Fstats and P values for the individual timepoints and Paste special &amp;gt; Paste values into your GenMAPP worksheet to the right of the previous data.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Select all of the columns containing Fold Changes.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 2 decimal places.  Click OK.&lt;br /&gt;
* Select all of the columns containing T statistics or P values.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 4 decimal places. Click OK.&lt;br /&gt;
* We will now format this file for use with GenMAPP.&lt;br /&gt;
** Currently, the &amp;quot;MasterIndex&amp;quot; column is the first column in the worksheet.  We need the &amp;quot;ID&amp;quot; column to be the first column.  Select Column B and Cut.  Right-click on Cell A1 and select &amp;quot;Insert cut cells&amp;quot;.  This will reverse the position of the columns.&lt;br /&gt;
** Insert a new empty column in Column B.  Type &amp;quot;SystemCode&amp;quot; in the first cell and &amp;quot;D&amp;quot; in the second cell of this column.  Use our trick to fill this entire column with &amp;quot;D&amp;quot;.&lt;br /&gt;
** Make sure to save this work as your .xlsx file.  Now save this worksheet as a tab-delimited text file for use with GenMAPP in the next section.&lt;br /&gt;
&lt;br /&gt;
=== Running GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
Each time you launch GenMAPP, you need to make sure that the correct Gene Database (.gdb) is loaded.&lt;br /&gt;
* Look in the lower left-hand corner of the window to see which Gene Database has been selected.&lt;br /&gt;
* If you need to change the Gene Database, select Data &amp;gt; Choose Gene Database.  Navigate to the directory C:\GenMAPP 2 Data\Gene Databases and choose the correct one for your species.&lt;br /&gt;
* For the exercise today, if the yeast Gene Database is not present on your computer, you will need to download it. [https://lionshare.lmu.edu/Users/kdahlqui/BIOL478/Sc-Std_20060526.zip Click this link to download the yeast Gene Database.]&lt;br /&gt;
* Unzip the file and save it, Sc-Std_20060526.gdb, to the folder C:\GenMAPP 2 Data\Gene Databases.&lt;br /&gt;
&lt;br /&gt;
=== GenMAPP Expression Dataset Manager Procedure ===&lt;br /&gt;
&lt;br /&gt;
* Launch the GenMAPP Program.  Check to make sure the correct Gene Database is loaded.&lt;br /&gt;
* Select the Data menu from the main Drafting Board window and choose Expression Dataset Manager from the drop-down list. The Expression Dataset Manager window will open.&lt;br /&gt;
* Select New Dataset from the Expression Datasets menu. Select the tab-delimited text file that you formatted for GenMAPP (.txt) in the procedure above from the file dialog box that appears.&lt;br /&gt;
* The Data Type Specification window will appear.  GenMAPP is expecting that you are providing numerical data.  If any of your columns has text (character) data, check the box next to the field (column) name.&lt;br /&gt;
** The column &amp;#039;&amp;#039;StandardName&amp;#039;&amp;#039; has text data in it, but none of the rest do.&lt;br /&gt;
* Allow the Expression Dataset Manager to convert your data.&lt;br /&gt;
** This may take a few minutes depending on the size of the dataset and the computer’s memory and processor speed. When the process is complete, the converted dataset will be active in the Expression Dataset Manager window and the file will be saved in the same folder the raw data file was in, named the same except with a .gex extension; for example, MyExperiment.gex.&lt;br /&gt;
** A message may appear saying that the Expression Dataset Manager could not convert one or more lines of data. Lines that generate an error during the conversion of a raw data file are not added to the Expression Dataset. Instead, an exception file is created. The exception file is given the same name as your raw data file with .EX before the extension (e.g., MyExperiment.EX.txt). The exception file will contain all of your raw data, with the addition of a column named ~Error~. This column contains either error messages or, if the program finds no errors, a single space character.&lt;br /&gt;
*** &amp;#039;&amp;#039;&amp;#039;Record the number of errors in your lab notebook.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
* Customize the new Expression Dataset by creating new Color Sets which contain the instructions to GenMAPP for displaying data on MAPPs.&lt;br /&gt;
** Color Sets contain the instructions to GenMAPP for displaying data from an Expression Dataset on MAPPs. Create a Color Set by filling in the following different fields in the Color Set area of the Expression Dataset Manager:  a name for the Color Set, the gene value, and the criteria that determine how a gene object is colored on the MAPP. Enter a name in the Color Set Name field that is 20 characters or fewer.  You will have one Color Set per strain per time point.&lt;br /&gt;
** The Gene Value is the data displayed next to the gene box on a MAPP. Select the column of data to be used as the Gene Value from the drop down list or select [none].  We will use &amp;quot;Avg_LogFC_&amp;quot; for the the appropriate time point.&lt;br /&gt;
** Activate the Criteria Builder by clicking the New button.&lt;br /&gt;
** Enter a name for the criterion in the Label in Legend field.&lt;br /&gt;
** Choose a color for the criterion by left-clicking on the Color box. Choose a color from the Color window that appears and click OK.&lt;br /&gt;
** State the criterion for color-coding a gene in the Criterion field.&lt;br /&gt;
*** A criterion is stated with relationships such as &amp;quot;this column greater than this value&amp;quot; or &amp;quot;that column less than or equal to that value&amp;quot;. Individual relationships can be combined using as many ANDs and ORs as needed. A typical relationship is&lt;br /&gt;
 [ColumnName] RelationalOperator Value&lt;br /&gt;
with the column name always enclosed in brackets and character values enclosed in single quotes. For example:&lt;br /&gt;
 [Fold Change] &amp;gt;= 2&lt;br /&gt;
 [p value] &amp;lt; 0.05&lt;br /&gt;
 [Quality] = &amp;#039;high&amp;#039;&lt;br /&gt;
This is the equivalent to queries that you performed on the command line when working with the PostgreSQL movie database.  GenMAPP is using a graphical user interface (GUI) to help the user format the queries correctly.  The easiest and safest way to create criteria is by choosing items from the Columns and Ops (operators) lists shown in the Criteria Builder. The Columns list contains all of the column headings from your Expression Dataset. To choose a column from the list, click on the column heading. It will appear at the location of the cursor in the Criterion box. The Criteria Builder surrounds the column names with brackets.&lt;br /&gt;
&lt;br /&gt;
The Ops (operators) list contains the relational operators that may be used in the criteria: equals ( = )  greater than ( &amp;gt; ), less than ( &amp;lt; ), greater than or equal to &lt;br /&gt;
( &amp;gt;= ), less than or equal to ( &amp;lt;= ), is not equal to ( &amp;lt;&amp;gt; ). To choose an operator from the list, click on the symbol. It will appear at the location of the insertion bar (cursor) in the Criterion box. The Criteria Builder automatically surrounds the operators with spaces.&lt;br /&gt;
The Ops list also contains the conjunctions AND and OR, which may be used to make compound criteria. For example:&lt;br /&gt;
 [Fold Change] &amp;gt; 1.2 AND [p value] &amp;lt;= 0.05&lt;br /&gt;
Parentheses control the order of evaluation. Anything in parentheses is evaluated first. Parentheses may be nested. For example:&lt;br /&gt;
 [Control Average] = 100 AND ([Exp1 Average] &amp;gt; 100 OR [Exp2 Average] &amp;gt; 100)&lt;br /&gt;
Column names may be used anywhere a value can, for example: &lt;br /&gt;
 [Control Average] &amp;lt; [Experiment Average]&lt;br /&gt;
&lt;br /&gt;
* After completing a new criterion, add the criterion entry (label, criterion, and color) to the Criteria List by clicking the Add button.&lt;br /&gt;
** For the yeast dataset, you will create two criterion for each Color Set.  &amp;quot;Increased&amp;quot; will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;gt; 0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05 and &amp;quot;Decreased will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;lt; -0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05.  Make sure that the increased and decreased average log fold change values match the timepoint of the Color Set.&lt;br /&gt;
** You may continue to add criteria to the Color Set by using the previous steps.&lt;br /&gt;
*** The buttons to the right of the list represent actions that can be performed on individual criteria. To modify a criterion label, color, or the criterion itself, first select the criterion in the list by left-clicking on it, and then click the Edit button. This puts the selected criterion into the Criteria Builder to be modified. Click the Save button to save changes to the modified criterion; click the Add button to add it  to the list as a separate criterion. To remove a criterion from the list, left-click on the criterion to select it, and then click on the Delete button. The order of Criteria in the list has significance to GenMAPP. When applying an Expression Dataset and Color Set to a MAPP, GenMAPP examines the expression data for a particular gene object and applies the color for the first criterion in the list that is true. Therefore, it is imperative that when criteria overlap the user put the most important or least inclusive criteria in the list first. To change the order of the criteria in the list, left-click on the criterion to select it and then click the Move Up or Move Down buttons. No criteria met and Not found are always the last two positions in the list.&lt;br /&gt;
* You will also create two ColorSets to view the ANOVA p values for both strains, with criteria for viewing the unadjusted, Bonferroni-corrected, and B&amp;amp;H corrected p values.&lt;br /&gt;
* Save the entire Expression Dataset by selecting Save from the Expression Dataset menu. Changes made to a Color Set are not saved until you do this.&lt;br /&gt;
* Exit the Expression Dataset Manager to view the Color Sets on a MAPP. Choose Exit from the Expression Dataset menu or click the close box in the upper right hand corner of the window.&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;Upload your .gex file to Lionshare and share it with Dr. Dahlquist.&amp;#039;&amp;#039;&amp;#039;  E-mail the link to the file to Dr. Dahlquist.&lt;br /&gt;
* Dr. Dahlquist will provide a set of MAPPs with which to view your Expression Dataset. &lt;br /&gt;
** Links to a zipped archive of MAPPs and an Expression Dataset have been e-mailed to your lion e-mail accounts.&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T23:54:14Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: /* Between-strain ANOVA */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;br /&gt;
&lt;br /&gt;
=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
#In AM1, made title dgln3_Bonferoni_Pvalue_t15&lt;br /&gt;
#* Created column heading similar for t30, t60, t90, and t120&lt;br /&gt;
#*In AM2, inputted the formula&lt;br /&gt;
 =AH2*6189&lt;br /&gt;
&lt;br /&gt;
Did this for 30,60, 90 and 120 as well&lt;br /&gt;
&lt;br /&gt;
#*Copied and pasted these throughout the columns &lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
#Created a new sheet called dgln3_ttest_B-H&lt;br /&gt;
#*Copied and pasted Master index, ID, and Standard Name from the master sheet&lt;br /&gt;
#Copied and did a special values paste for all timepoints of the unadjusted Pvalues into columns D-H&lt;br /&gt;
#In the following steps, I will insert 3 coulmns in between each unadjusted Pvalue timepoint. Therfore, t30, t60, t90, and t120 will eventually be placed in columns H, L, P, and T respectively&lt;br /&gt;
#Selected columns A_D and sorted by ascending numbers in  D&lt;br /&gt;
#Named Column E &amp;quot;Rank&amp;quot;&lt;br /&gt;
#*From E2 down, numbered the cells 1-6190&lt;br /&gt;
#Named the next column Dgln3_ttest_B-H_t15 and inputted the following formula:&lt;br /&gt;
 =(D2*6189)/E2&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
#Named column G dgln3_B-H_Pval_t15 and inputted the formula:&lt;br /&gt;
 =IF(F2&amp;lt;1,1,F2)&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
#How many genes have a Pvalue&amp;lt;0.05 at each timepoint?&lt;br /&gt;
#* 15: 1027 (16.59%)&lt;br /&gt;
#* 30: 1622 (26.21%)&lt;br /&gt;
#* 60: 628 (10.15%)&lt;br /&gt;
#* 90: 558 (9.11%)&lt;br /&gt;
#* 120: 403 (6.51%)&lt;br /&gt;
#Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&lt;br /&gt;
#* LogFC &amp;gt; 0.25&lt;br /&gt;
#** 15: 559 (9.03%)&lt;br /&gt;
#** 30: 897 (14.49%)&lt;br /&gt;
#** 60: 319 (5.15%)&lt;br /&gt;
#** 90: 265 (4.28%)&lt;br /&gt;
#** 120: 190 (3.07%)&lt;br /&gt;
#* LogFC &amp;lt; -0.25&lt;br /&gt;
#** 15: 458 (7.4%)&lt;br /&gt;
#** 30: 711 (11.49%)&lt;br /&gt;
#** 60: 304 (4.91%)&lt;br /&gt;
#** 90: 289 (4.67%)&lt;br /&gt;
#** 120: 207 (3.34%)&lt;br /&gt;
#* How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 5 (0.08%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 1 (0.016%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
Here is link to download my excel file including all data including ANOVA and ttest [https://lionshare.lmu.edu/Users/kmcgee3/KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx ]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Here is the Link to download my powerpoint slide including all pvalue data for gln3 [https://lionshare.lmu.edu/Users/kmcgee3/Sanity%20Check%20dGLN3%20Kevin%20McGee.ppt Sanity Check dGLN3 Kevin McGee]&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, navigated to the folder &amp;quot;Microarray analysis&amp;quot; containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose the &amp;quot;Microarray analysis&amp;quot; folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot; (Master_sheet), and the two strains that will be compared as the variables &amp;quot;wt&amp;quot; and &amp;quot;dGLN3&amp;quot;.&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
#Matlab will produce two files:&lt;br /&gt;
#*mat&lt;br /&gt;
#*xls&lt;br /&gt;
&lt;br /&gt;
upload these to lionshare&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
#* Inserted a new worksheet into your Excel workbook, and named it &amp;quot;dgln3_stem&amp;quot;.&lt;br /&gt;
#* Selected all of the data from &amp;quot;dgln3_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into dgln3_stem worksheet.&lt;br /&gt;
#**Renamed Master List this column to &amp;quot;SPOT&amp;quot; and ID to &amp;quot;Gene Symbol&amp;quot;.  Deleted &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filtered the data on the B-H corrected p value to be &amp;gt; 0.05 &lt;br /&gt;
#*** Once the data had been filtered, selected all of the rows and deleted the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undid the filter. &lt;br /&gt;
#** Deleted all of the data columns except for the Average Log Fold change columns for each timepoint.&lt;br /&gt;
#** Renamed the data columns with just the time and units&lt;br /&gt;
#***15m&lt;br /&gt;
#***30m&lt;br /&gt;
#***60m&lt;br /&gt;
#***90m&lt;br /&gt;
#***120m&lt;br /&gt;
#** Saved. Used Save As to save this spreadsheet as Text (Tab-delimited) *.txt file.  &lt;br /&gt;
# Downloaded and extracted the STEM software. &lt;br /&gt;
#*[http://www.cs.cmu.edu/~jernst/stem/ STEM web site].&lt;br /&gt;
#*[http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link for STEM Software]&lt;br /&gt;
#*Launched the STEM program&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select the file KevinM_GCAT_and_Ontario_Final_Normalized_Data_Stem.txt&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Ran into a problem with java timing out, STEM was not working&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;After investigation, it seems the problem is happening because the Gene Ontology site is down&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Viewing and Saving STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## A new window will open called &amp;quot;All STEM Profiles (1)&amp;quot;.  Each box corresponds to a model expression profile.  Colored profiles have a statistically significant number of genes assigned; they are arranged in order from most to least significant p value.  Profiles with the same color belong to the same cluster of profiles.  The number in each box is simply an ID number for the profile.&lt;br /&gt;
##* Click on the button that says &amp;quot;Interface Options...&amp;quot;.  At the bottom of the Interface Options window that appears below where it says &amp;quot;X-axis scale should be:&amp;quot;, click on the radio button that says &amp;quot;Based on real time&amp;quot;.  Then close the Interface Options window.&lt;br /&gt;
##*Take a screenshot of this window (on a PC, simultaneously press the &amp;lt;code&amp;gt;Alt&amp;lt;/code&amp;gt; and &amp;lt;code&amp;gt;PrintScreen&amp;lt;/code&amp;gt; buttons to save the view in the active window to the clipboard) and paste it into a PowerPoint presentation to save your figures.&lt;br /&gt;
## Click on each of the SIGNIFICANT profiles (the colored ones) to open a window showing a more detailed plot containing all of the genes in that profile.&lt;br /&gt;
##* Take a screenshot of each of the individual profile windows and save the images in your PowerPoint presentation.&lt;br /&gt;
##* At the bottom of each profile window, there are two yellow buttons &amp;quot;Profile Gene Table&amp;quot; and &amp;quot;Profile GO Table&amp;quot;.  For each of the profiles, click on the &amp;quot;Profile Gene Table&amp;quot; button to see the list of genes belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, &amp;quot;dgln3_profile#_genelist.txt&amp;quot;, where you replace the number symbol with the actual profile number.&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist. &lt;br /&gt;
##* For each of the significant profiles, click on the &amp;quot;Profile GO Table&amp;quot; to see the list of Gene Ontology terms belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;dgln3_profile#_GOlist.txt&amp;quot;.   At this point you have saved all of the primary data from the STEM software and it&amp;#039;s time to interpret the results!&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist.&lt;br /&gt;
&lt;br /&gt;
== Step 9: GenMAPP &amp;amp; MAPPFinder ==&lt;br /&gt;
&lt;br /&gt;
=== Preparing the Input File for GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Insert a new worksheet and name it dgln3_GenMAPP.&lt;br /&gt;
* Go back to the &amp;quot;ANOVA&amp;quot; worksheet for your strain and Select All and Copy.&lt;br /&gt;
* Go to your new sheet and click on cell A1 and select Paste Special, click on the Values radio button, and click OK.   &lt;br /&gt;
** Delete the columns containing the &amp;quot;ss&amp;quot; calculations, just retaining the individual log fold change data, the average log fold change data, the Fstat and p value.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Now go to your &amp;quot;dgln3_ttest&amp;quot; worksheet.  Copy just the columns containing the Fstats and P values for the individual timepoints and Paste special &amp;gt; Paste values into your GenMAPP worksheet to the right of the previous data.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Select all of the columns containing Fold Changes.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 2 decimal places.  Click OK.&lt;br /&gt;
* Select all of the columns containing T statistics or P values.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 4 decimal places. Click OK.&lt;br /&gt;
* We will now format this file for use with GenMAPP.&lt;br /&gt;
** Currently, the &amp;quot;MasterIndex&amp;quot; column is the first column in the worksheet.  We need the &amp;quot;ID&amp;quot; column to be the first column.  Select Column B and Cut.  Right-click on Cell A1 and select &amp;quot;Insert cut cells&amp;quot;.  This will reverse the position of the columns.&lt;br /&gt;
** Insert a new empty column in Column B.  Type &amp;quot;SystemCode&amp;quot; in the first cell and &amp;quot;D&amp;quot; in the second cell of this column.  Use our trick to fill this entire column with &amp;quot;D&amp;quot;.&lt;br /&gt;
** Make sure to save this work as your .xlsx file.  Now save this worksheet as a tab-delimited text file for use with GenMAPP in the next section.&lt;br /&gt;
&lt;br /&gt;
=== Running GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
Each time you launch GenMAPP, you need to make sure that the correct Gene Database (.gdb) is loaded.&lt;br /&gt;
* Look in the lower left-hand corner of the window to see which Gene Database has been selected.&lt;br /&gt;
* If you need to change the Gene Database, select Data &amp;gt; Choose Gene Database.  Navigate to the directory C:\GenMAPP 2 Data\Gene Databases and choose the correct one for your species.&lt;br /&gt;
* For the exercise today, if the yeast Gene Database is not present on your computer, you will need to download it. [https://lionshare.lmu.edu/Users/kdahlqui/BIOL478/Sc-Std_20060526.zip Click this link to download the yeast Gene Database.]&lt;br /&gt;
* Unzip the file and save it, Sc-Std_20060526.gdb, to the folder C:\GenMAPP 2 Data\Gene Databases.&lt;br /&gt;
&lt;br /&gt;
=== GenMAPP Expression Dataset Manager Procedure ===&lt;br /&gt;
&lt;br /&gt;
* Launch the GenMAPP Program.  Check to make sure the correct Gene Database is loaded.&lt;br /&gt;
* Select the Data menu from the main Drafting Board window and choose Expression Dataset Manager from the drop-down list. The Expression Dataset Manager window will open.&lt;br /&gt;
* Select New Dataset from the Expression Datasets menu. Select the tab-delimited text file that you formatted for GenMAPP (.txt) in the procedure above from the file dialog box that appears.&lt;br /&gt;
* The Data Type Specification window will appear.  GenMAPP is expecting that you are providing numerical data.  If any of your columns has text (character) data, check the box next to the field (column) name.&lt;br /&gt;
** The column &amp;#039;&amp;#039;StandardName&amp;#039;&amp;#039; has text data in it, but none of the rest do.&lt;br /&gt;
* Allow the Expression Dataset Manager to convert your data.&lt;br /&gt;
** This may take a few minutes depending on the size of the dataset and the computer’s memory and processor speed. When the process is complete, the converted dataset will be active in the Expression Dataset Manager window and the file will be saved in the same folder the raw data file was in, named the same except with a .gex extension; for example, MyExperiment.gex.&lt;br /&gt;
** A message may appear saying that the Expression Dataset Manager could not convert one or more lines of data. Lines that generate an error during the conversion of a raw data file are not added to the Expression Dataset. Instead, an exception file is created. The exception file is given the same name as your raw data file with .EX before the extension (e.g., MyExperiment.EX.txt). The exception file will contain all of your raw data, with the addition of a column named ~Error~. This column contains either error messages or, if the program finds no errors, a single space character.&lt;br /&gt;
*** &amp;#039;&amp;#039;&amp;#039;Record the number of errors in your lab notebook.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
* Customize the new Expression Dataset by creating new Color Sets which contain the instructions to GenMAPP for displaying data on MAPPs.&lt;br /&gt;
** Color Sets contain the instructions to GenMAPP for displaying data from an Expression Dataset on MAPPs. Create a Color Set by filling in the following different fields in the Color Set area of the Expression Dataset Manager:  a name for the Color Set, the gene value, and the criteria that determine how a gene object is colored on the MAPP. Enter a name in the Color Set Name field that is 20 characters or fewer.  You will have one Color Set per strain per time point.&lt;br /&gt;
** The Gene Value is the data displayed next to the gene box on a MAPP. Select the column of data to be used as the Gene Value from the drop down list or select [none].  We will use &amp;quot;Avg_LogFC_&amp;quot; for the the appropriate time point.&lt;br /&gt;
** Activate the Criteria Builder by clicking the New button.&lt;br /&gt;
** Enter a name for the criterion in the Label in Legend field.&lt;br /&gt;
** Choose a color for the criterion by left-clicking on the Color box. Choose a color from the Color window that appears and click OK.&lt;br /&gt;
** State the criterion for color-coding a gene in the Criterion field.&lt;br /&gt;
*** A criterion is stated with relationships such as &amp;quot;this column greater than this value&amp;quot; or &amp;quot;that column less than or equal to that value&amp;quot;. Individual relationships can be combined using as many ANDs and ORs as needed. A typical relationship is&lt;br /&gt;
 [ColumnName] RelationalOperator Value&lt;br /&gt;
with the column name always enclosed in brackets and character values enclosed in single quotes. For example:&lt;br /&gt;
 [Fold Change] &amp;gt;= 2&lt;br /&gt;
 [p value] &amp;lt; 0.05&lt;br /&gt;
 [Quality] = &amp;#039;high&amp;#039;&lt;br /&gt;
This is the equivalent to queries that you performed on the command line when working with the PostgreSQL movie database.  GenMAPP is using a graphical user interface (GUI) to help the user format the queries correctly.  The easiest and safest way to create criteria is by choosing items from the Columns and Ops (operators) lists shown in the Criteria Builder. The Columns list contains all of the column headings from your Expression Dataset. To choose a column from the list, click on the column heading. It will appear at the location of the cursor in the Criterion box. The Criteria Builder surrounds the column names with brackets.&lt;br /&gt;
&lt;br /&gt;
The Ops (operators) list contains the relational operators that may be used in the criteria: equals ( = )  greater than ( &amp;gt; ), less than ( &amp;lt; ), greater than or equal to &lt;br /&gt;
( &amp;gt;= ), less than or equal to ( &amp;lt;= ), is not equal to ( &amp;lt;&amp;gt; ). To choose an operator from the list, click on the symbol. It will appear at the location of the insertion bar (cursor) in the Criterion box. The Criteria Builder automatically surrounds the operators with spaces.&lt;br /&gt;
The Ops list also contains the conjunctions AND and OR, which may be used to make compound criteria. For example:&lt;br /&gt;
 [Fold Change] &amp;gt; 1.2 AND [p value] &amp;lt;= 0.05&lt;br /&gt;
Parentheses control the order of evaluation. Anything in parentheses is evaluated first. Parentheses may be nested. For example:&lt;br /&gt;
 [Control Average] = 100 AND ([Exp1 Average] &amp;gt; 100 OR [Exp2 Average] &amp;gt; 100)&lt;br /&gt;
Column names may be used anywhere a value can, for example: &lt;br /&gt;
 [Control Average] &amp;lt; [Experiment Average]&lt;br /&gt;
&lt;br /&gt;
* After completing a new criterion, add the criterion entry (label, criterion, and color) to the Criteria List by clicking the Add button.&lt;br /&gt;
** For the yeast dataset, you will create two criterion for each Color Set.  &amp;quot;Increased&amp;quot; will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;gt; 0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05 and &amp;quot;Decreased will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;lt; -0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05.  Make sure that the increased and decreased average log fold change values match the timepoint of the Color Set.&lt;br /&gt;
** You may continue to add criteria to the Color Set by using the previous steps.&lt;br /&gt;
*** The buttons to the right of the list represent actions that can be performed on individual criteria. To modify a criterion label, color, or the criterion itself, first select the criterion in the list by left-clicking on it, and then click the Edit button. This puts the selected criterion into the Criteria Builder to be modified. Click the Save button to save changes to the modified criterion; click the Add button to add it  to the list as a separate criterion. To remove a criterion from the list, left-click on the criterion to select it, and then click on the Delete button. The order of Criteria in the list has significance to GenMAPP. When applying an Expression Dataset and Color Set to a MAPP, GenMAPP examines the expression data for a particular gene object and applies the color for the first criterion in the list that is true. Therefore, it is imperative that when criteria overlap the user put the most important or least inclusive criteria in the list first. To change the order of the criteria in the list, left-click on the criterion to select it and then click the Move Up or Move Down buttons. No criteria met and Not found are always the last two positions in the list.&lt;br /&gt;
* You will also create two ColorSets to view the ANOVA p values for both strains, with criteria for viewing the unadjusted, Bonferroni-corrected, and B&amp;amp;H corrected p values.&lt;br /&gt;
* Save the entire Expression Dataset by selecting Save from the Expression Dataset menu. Changes made to a Color Set are not saved until you do this.&lt;br /&gt;
* Exit the Expression Dataset Manager to view the Color Sets on a MAPP. Choose Exit from the Expression Dataset menu or click the close box in the upper right hand corner of the window.&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;Upload your .gex file to Lionshare and share it with Dr. Dahlquist.&amp;#039;&amp;#039;&amp;#039;  E-mail the link to the file to Dr. Dahlquist.&lt;br /&gt;
* Dr. Dahlquist will provide a set of MAPPs with which to view your Expression Dataset. &lt;br /&gt;
** Links to a zipped archive of MAPPs and an Expression Dataset have been e-mailed to your lion e-mail accounts.&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T23:42:16Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: /* Step 7-8: Clustering and GO Term Enrichment with stem */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;br /&gt;
&lt;br /&gt;
=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
#In AM1, made title dgln3_Bonferoni_Pvalue_t15&lt;br /&gt;
#* Created column heading similar for t30, t60, t90, and t120&lt;br /&gt;
#*In AM2, inputted the formula&lt;br /&gt;
 =AH2*6189&lt;br /&gt;
&lt;br /&gt;
Did this for 30,60, 90 and 120 as well&lt;br /&gt;
&lt;br /&gt;
#*Copied and pasted these throughout the columns &lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
#Created a new sheet called dgln3_ttest_B-H&lt;br /&gt;
#*Copied and pasted Master index, ID, and Standard Name from the master sheet&lt;br /&gt;
#Copied and did a special values paste for all timepoints of the unadjusted Pvalues into columns D-H&lt;br /&gt;
#In the following steps, I will insert 3 coulmns in between each unadjusted Pvalue timepoint. Therfore, t30, t60, t90, and t120 will eventually be placed in columns H, L, P, and T respectively&lt;br /&gt;
#Selected columns A_D and sorted by ascending numbers in  D&lt;br /&gt;
#Named Column E &amp;quot;Rank&amp;quot;&lt;br /&gt;
#*From E2 down, numbered the cells 1-6190&lt;br /&gt;
#Named the next column Dgln3_ttest_B-H_t15 and inputted the following formula:&lt;br /&gt;
 =(D2*6189)/E2&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
#Named column G dgln3_B-H_Pval_t15 and inputted the formula:&lt;br /&gt;
 =IF(F2&amp;lt;1,1,F2)&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
#How many genes have a Pvalue&amp;lt;0.05 at each timepoint?&lt;br /&gt;
#* 15: 1027 (16.59%)&lt;br /&gt;
#* 30: 1622 (26.21%)&lt;br /&gt;
#* 60: 628 (10.15%)&lt;br /&gt;
#* 90: 558 (9.11%)&lt;br /&gt;
#* 120: 403 (6.51%)&lt;br /&gt;
#Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&lt;br /&gt;
#* LogFC &amp;gt; 0.25&lt;br /&gt;
#** 15: 559 (9.03%)&lt;br /&gt;
#** 30: 897 (14.49%)&lt;br /&gt;
#** 60: 319 (5.15%)&lt;br /&gt;
#** 90: 265 (4.28%)&lt;br /&gt;
#** 120: 190 (3.07%)&lt;br /&gt;
#* LogFC &amp;lt; -0.25&lt;br /&gt;
#** 15: 458 (7.4%)&lt;br /&gt;
#** 30: 711 (11.49%)&lt;br /&gt;
#** 60: 304 (4.91%)&lt;br /&gt;
#** 90: 289 (4.67%)&lt;br /&gt;
#** 120: 207 (3.34%)&lt;br /&gt;
#* How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 5 (0.08%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 1 (0.016%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
Here is link to download my excel file including all data including ANOVA and ttest [https://lionshare.lmu.edu/Users/kmcgee3/KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx ]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Here is the Link to download my powerpoint slide including all pvalue data for gln3 [https://lionshare.lmu.edu/Users/kmcgee3/Sanity%20Check%20dGLN3%20Kevin%20McGee.ppt Sanity Check dGLN3 Kevin McGee]&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, you will need to navigate to the folder containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose your folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input the name of the Excel file (&amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;) to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot;, and the two strains that will be compared as the variables &amp;quot;strain1&amp;quot; and &amp;quot;strain2&amp;quot;.&lt;br /&gt;
*** Note that we saved our Excel file above as &amp;lt;code&amp;gt;*.xlsx&amp;lt;/code&amp;gt;, not &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;.  We may have to go back and &amp;quot;Save as...&amp;quot; &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;, in order for the MATLAB script to work.&lt;br /&gt;
*** Also note that this script will not work for any comparison involving dSWI4 because it has been hard-coded to expect 5 timepoints instead of 4.&lt;br /&gt;
&lt;br /&gt;
 %% User must input filename, sheetname, and strains for comparison&lt;br /&gt;
 filename = &amp;#039;GCAT_and_Ontario_Final_Normalized_Data.xls&amp;#039;; % Name of input file&lt;br /&gt;
 sheetname  = &amp;#039;Master_Sheet&amp;#039;; % Name of sheet in input file containing data to analyze&lt;br /&gt;
 % % If one of the two strains you are working on is the wildtype, keep that&lt;br /&gt;
 % % wildtype as strain 1.&lt;br /&gt;
 strain1    = &amp;#039;wt&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
 % % Select strain 2 to be one of the other strains you would like to&lt;br /&gt;
 % % compare with the first strain.&lt;br /&gt;
 strain2    = &amp;#039;dZAP1&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
 disp(&amp;#039;Do you want to view plots for each gene with an unadjusted p-value &amp;lt; 0.05?&amp;#039;)&lt;br /&gt;
 graph = input(&amp;#039;If yes, enter &amp;quot;1&amp;quot;. If no, enter &amp;quot;0&amp;quot;. &amp;#039;);&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
#* Inserted a new worksheet into your Excel workbook, and named it &amp;quot;dgln3_stem&amp;quot;.&lt;br /&gt;
#* Selected all of the data from &amp;quot;dgln3_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into dgln3_stem worksheet.&lt;br /&gt;
#**Renamed Master List this column to &amp;quot;SPOT&amp;quot; and ID to &amp;quot;Gene Symbol&amp;quot;.  Deleted &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filtered the data on the B-H corrected p value to be &amp;gt; 0.05 &lt;br /&gt;
#*** Once the data had been filtered, selected all of the rows and deleted the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undid the filter. &lt;br /&gt;
#** Deleted all of the data columns except for the Average Log Fold change columns for each timepoint.&lt;br /&gt;
#** Renamed the data columns with just the time and units&lt;br /&gt;
#***15m&lt;br /&gt;
#***30m&lt;br /&gt;
#***60m&lt;br /&gt;
#***90m&lt;br /&gt;
#***120m&lt;br /&gt;
#** Saved. Used Save As to save this spreadsheet as Text (Tab-delimited) *.txt file.  &lt;br /&gt;
# Downloaded and extracted the STEM software. &lt;br /&gt;
#*[http://www.cs.cmu.edu/~jernst/stem/ STEM web site].&lt;br /&gt;
#*[http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link for STEM Software]&lt;br /&gt;
#*Launched the STEM program&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select the file KevinM_GCAT_and_Ontario_Final_Normalized_Data_Stem.txt&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Ran into a problem with java timing out, STEM was not working&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;After investigation, it seems the problem is happening because the Gene Ontology site is down&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Viewing and Saving STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## A new window will open called &amp;quot;All STEM Profiles (1)&amp;quot;.  Each box corresponds to a model expression profile.  Colored profiles have a statistically significant number of genes assigned; they are arranged in order from most to least significant p value.  Profiles with the same color belong to the same cluster of profiles.  The number in each box is simply an ID number for the profile.&lt;br /&gt;
##* Click on the button that says &amp;quot;Interface Options...&amp;quot;.  At the bottom of the Interface Options window that appears below where it says &amp;quot;X-axis scale should be:&amp;quot;, click on the radio button that says &amp;quot;Based on real time&amp;quot;.  Then close the Interface Options window.&lt;br /&gt;
##*Take a screenshot of this window (on a PC, simultaneously press the &amp;lt;code&amp;gt;Alt&amp;lt;/code&amp;gt; and &amp;lt;code&amp;gt;PrintScreen&amp;lt;/code&amp;gt; buttons to save the view in the active window to the clipboard) and paste it into a PowerPoint presentation to save your figures.&lt;br /&gt;
## Click on each of the SIGNIFICANT profiles (the colored ones) to open a window showing a more detailed plot containing all of the genes in that profile.&lt;br /&gt;
##* Take a screenshot of each of the individual profile windows and save the images in your PowerPoint presentation.&lt;br /&gt;
##* At the bottom of each profile window, there are two yellow buttons &amp;quot;Profile Gene Table&amp;quot; and &amp;quot;Profile GO Table&amp;quot;.  For each of the profiles, click on the &amp;quot;Profile Gene Table&amp;quot; button to see the list of genes belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, &amp;quot;dgln3_profile#_genelist.txt&amp;quot;, where you replace the number symbol with the actual profile number.&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist. &lt;br /&gt;
##* For each of the significant profiles, click on the &amp;quot;Profile GO Table&amp;quot; to see the list of Gene Ontology terms belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;dgln3_profile#_GOlist.txt&amp;quot;.   At this point you have saved all of the primary data from the STEM software and it&amp;#039;s time to interpret the results!&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist.&lt;br /&gt;
&lt;br /&gt;
== Step 9: GenMAPP &amp;amp; MAPPFinder ==&lt;br /&gt;
&lt;br /&gt;
=== Preparing the Input File for GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Insert a new worksheet and name it dgln3_GenMAPP.&lt;br /&gt;
* Go back to the &amp;quot;ANOVA&amp;quot; worksheet for your strain and Select All and Copy.&lt;br /&gt;
* Go to your new sheet and click on cell A1 and select Paste Special, click on the Values radio button, and click OK.   &lt;br /&gt;
** Delete the columns containing the &amp;quot;ss&amp;quot; calculations, just retaining the individual log fold change data, the average log fold change data, the Fstat and p value.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Now go to your &amp;quot;dgln3_ttest&amp;quot; worksheet.  Copy just the columns containing the Fstats and P values for the individual timepoints and Paste special &amp;gt; Paste values into your GenMAPP worksheet to the right of the previous data.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Select all of the columns containing Fold Changes.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 2 decimal places.  Click OK.&lt;br /&gt;
* Select all of the columns containing T statistics or P values.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 4 decimal places. Click OK.&lt;br /&gt;
* We will now format this file for use with GenMAPP.&lt;br /&gt;
** Currently, the &amp;quot;MasterIndex&amp;quot; column is the first column in the worksheet.  We need the &amp;quot;ID&amp;quot; column to be the first column.  Select Column B and Cut.  Right-click on Cell A1 and select &amp;quot;Insert cut cells&amp;quot;.  This will reverse the position of the columns.&lt;br /&gt;
** Insert a new empty column in Column B.  Type &amp;quot;SystemCode&amp;quot; in the first cell and &amp;quot;D&amp;quot; in the second cell of this column.  Use our trick to fill this entire column with &amp;quot;D&amp;quot;.&lt;br /&gt;
** Make sure to save this work as your .xlsx file.  Now save this worksheet as a tab-delimited text file for use with GenMAPP in the next section.&lt;br /&gt;
&lt;br /&gt;
=== Running GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
Each time you launch GenMAPP, you need to make sure that the correct Gene Database (.gdb) is loaded.&lt;br /&gt;
* Look in the lower left-hand corner of the window to see which Gene Database has been selected.&lt;br /&gt;
* If you need to change the Gene Database, select Data &amp;gt; Choose Gene Database.  Navigate to the directory C:\GenMAPP 2 Data\Gene Databases and choose the correct one for your species.&lt;br /&gt;
* For the exercise today, if the yeast Gene Database is not present on your computer, you will need to download it. [https://lionshare.lmu.edu/Users/kdahlqui/BIOL478/Sc-Std_20060526.zip Click this link to download the yeast Gene Database.]&lt;br /&gt;
* Unzip the file and save it, Sc-Std_20060526.gdb, to the folder C:\GenMAPP 2 Data\Gene Databases.&lt;br /&gt;
&lt;br /&gt;
=== GenMAPP Expression Dataset Manager Procedure ===&lt;br /&gt;
&lt;br /&gt;
* Launch the GenMAPP Program.  Check to make sure the correct Gene Database is loaded.&lt;br /&gt;
* Select the Data menu from the main Drafting Board window and choose Expression Dataset Manager from the drop-down list. The Expression Dataset Manager window will open.&lt;br /&gt;
* Select New Dataset from the Expression Datasets menu. Select the tab-delimited text file that you formatted for GenMAPP (.txt) in the procedure above from the file dialog box that appears.&lt;br /&gt;
* The Data Type Specification window will appear.  GenMAPP is expecting that you are providing numerical data.  If any of your columns has text (character) data, check the box next to the field (column) name.&lt;br /&gt;
** The column &amp;#039;&amp;#039;StandardName&amp;#039;&amp;#039; has text data in it, but none of the rest do.&lt;br /&gt;
* Allow the Expression Dataset Manager to convert your data.&lt;br /&gt;
** This may take a few minutes depending on the size of the dataset and the computer’s memory and processor speed. When the process is complete, the converted dataset will be active in the Expression Dataset Manager window and the file will be saved in the same folder the raw data file was in, named the same except with a .gex extension; for example, MyExperiment.gex.&lt;br /&gt;
** A message may appear saying that the Expression Dataset Manager could not convert one or more lines of data. Lines that generate an error during the conversion of a raw data file are not added to the Expression Dataset. Instead, an exception file is created. The exception file is given the same name as your raw data file with .EX before the extension (e.g., MyExperiment.EX.txt). The exception file will contain all of your raw data, with the addition of a column named ~Error~. This column contains either error messages or, if the program finds no errors, a single space character.&lt;br /&gt;
*** &amp;#039;&amp;#039;&amp;#039;Record the number of errors in your lab notebook.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
* Customize the new Expression Dataset by creating new Color Sets which contain the instructions to GenMAPP for displaying data on MAPPs.&lt;br /&gt;
** Color Sets contain the instructions to GenMAPP for displaying data from an Expression Dataset on MAPPs. Create a Color Set by filling in the following different fields in the Color Set area of the Expression Dataset Manager:  a name for the Color Set, the gene value, and the criteria that determine how a gene object is colored on the MAPP. Enter a name in the Color Set Name field that is 20 characters or fewer.  You will have one Color Set per strain per time point.&lt;br /&gt;
** The Gene Value is the data displayed next to the gene box on a MAPP. Select the column of data to be used as the Gene Value from the drop down list or select [none].  We will use &amp;quot;Avg_LogFC_&amp;quot; for the the appropriate time point.&lt;br /&gt;
** Activate the Criteria Builder by clicking the New button.&lt;br /&gt;
** Enter a name for the criterion in the Label in Legend field.&lt;br /&gt;
** Choose a color for the criterion by left-clicking on the Color box. Choose a color from the Color window that appears and click OK.&lt;br /&gt;
** State the criterion for color-coding a gene in the Criterion field.&lt;br /&gt;
*** A criterion is stated with relationships such as &amp;quot;this column greater than this value&amp;quot; or &amp;quot;that column less than or equal to that value&amp;quot;. Individual relationships can be combined using as many ANDs and ORs as needed. A typical relationship is&lt;br /&gt;
 [ColumnName] RelationalOperator Value&lt;br /&gt;
with the column name always enclosed in brackets and character values enclosed in single quotes. For example:&lt;br /&gt;
 [Fold Change] &amp;gt;= 2&lt;br /&gt;
 [p value] &amp;lt; 0.05&lt;br /&gt;
 [Quality] = &amp;#039;high&amp;#039;&lt;br /&gt;
This is the equivalent to queries that you performed on the command line when working with the PostgreSQL movie database.  GenMAPP is using a graphical user interface (GUI) to help the user format the queries correctly.  The easiest and safest way to create criteria is by choosing items from the Columns and Ops (operators) lists shown in the Criteria Builder. The Columns list contains all of the column headings from your Expression Dataset. To choose a column from the list, click on the column heading. It will appear at the location of the cursor in the Criterion box. The Criteria Builder surrounds the column names with brackets.&lt;br /&gt;
&lt;br /&gt;
The Ops (operators) list contains the relational operators that may be used in the criteria: equals ( = )  greater than ( &amp;gt; ), less than ( &amp;lt; ), greater than or equal to &lt;br /&gt;
( &amp;gt;= ), less than or equal to ( &amp;lt;= ), is not equal to ( &amp;lt;&amp;gt; ). To choose an operator from the list, click on the symbol. It will appear at the location of the insertion bar (cursor) in the Criterion box. The Criteria Builder automatically surrounds the operators with spaces.&lt;br /&gt;
The Ops list also contains the conjunctions AND and OR, which may be used to make compound criteria. For example:&lt;br /&gt;
 [Fold Change] &amp;gt; 1.2 AND [p value] &amp;lt;= 0.05&lt;br /&gt;
Parentheses control the order of evaluation. Anything in parentheses is evaluated first. Parentheses may be nested. For example:&lt;br /&gt;
 [Control Average] = 100 AND ([Exp1 Average] &amp;gt; 100 OR [Exp2 Average] &amp;gt; 100)&lt;br /&gt;
Column names may be used anywhere a value can, for example: &lt;br /&gt;
 [Control Average] &amp;lt; [Experiment Average]&lt;br /&gt;
&lt;br /&gt;
* After completing a new criterion, add the criterion entry (label, criterion, and color) to the Criteria List by clicking the Add button.&lt;br /&gt;
** For the yeast dataset, you will create two criterion for each Color Set.  &amp;quot;Increased&amp;quot; will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;gt; 0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05 and &amp;quot;Decreased will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;lt; -0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05.  Make sure that the increased and decreased average log fold change values match the timepoint of the Color Set.&lt;br /&gt;
** You may continue to add criteria to the Color Set by using the previous steps.&lt;br /&gt;
*** The buttons to the right of the list represent actions that can be performed on individual criteria. To modify a criterion label, color, or the criterion itself, first select the criterion in the list by left-clicking on it, and then click the Edit button. This puts the selected criterion into the Criteria Builder to be modified. Click the Save button to save changes to the modified criterion; click the Add button to add it  to the list as a separate criterion. To remove a criterion from the list, left-click on the criterion to select it, and then click on the Delete button. The order of Criteria in the list has significance to GenMAPP. When applying an Expression Dataset and Color Set to a MAPP, GenMAPP examines the expression data for a particular gene object and applies the color for the first criterion in the list that is true. Therefore, it is imperative that when criteria overlap the user put the most important or least inclusive criteria in the list first. To change the order of the criteria in the list, left-click on the criterion to select it and then click the Move Up or Move Down buttons. No criteria met and Not found are always the last two positions in the list.&lt;br /&gt;
* You will also create two ColorSets to view the ANOVA p values for both strains, with criteria for viewing the unadjusted, Bonferroni-corrected, and B&amp;amp;H corrected p values.&lt;br /&gt;
* Save the entire Expression Dataset by selecting Save from the Expression Dataset menu. Changes made to a Color Set are not saved until you do this.&lt;br /&gt;
* Exit the Expression Dataset Manager to view the Color Sets on a MAPP. Choose Exit from the Expression Dataset menu or click the close box in the upper right hand corner of the window.&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;Upload your .gex file to Lionshare and share it with Dr. Dahlquist.&amp;#039;&amp;#039;&amp;#039;  E-mail the link to the file to Dr. Dahlquist.&lt;br /&gt;
* Dr. Dahlquist will provide a set of MAPPs with which to view your Expression Dataset. &lt;br /&gt;
** Links to a zipped archive of MAPPs and an Expression Dataset have been e-mailed to your lion e-mail accounts.&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T23:41:30Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: /* Step 7-8: Clustering and GO Term Enrichment with stem */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;br /&gt;
&lt;br /&gt;
=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
#In AM1, made title dgln3_Bonferoni_Pvalue_t15&lt;br /&gt;
#* Created column heading similar for t30, t60, t90, and t120&lt;br /&gt;
#*In AM2, inputted the formula&lt;br /&gt;
 =AH2*6189&lt;br /&gt;
&lt;br /&gt;
Did this for 30,60, 90 and 120 as well&lt;br /&gt;
&lt;br /&gt;
#*Copied and pasted these throughout the columns &lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
#Created a new sheet called dgln3_ttest_B-H&lt;br /&gt;
#*Copied and pasted Master index, ID, and Standard Name from the master sheet&lt;br /&gt;
#Copied and did a special values paste for all timepoints of the unadjusted Pvalues into columns D-H&lt;br /&gt;
#In the following steps, I will insert 3 coulmns in between each unadjusted Pvalue timepoint. Therfore, t30, t60, t90, and t120 will eventually be placed in columns H, L, P, and T respectively&lt;br /&gt;
#Selected columns A_D and sorted by ascending numbers in  D&lt;br /&gt;
#Named Column E &amp;quot;Rank&amp;quot;&lt;br /&gt;
#*From E2 down, numbered the cells 1-6190&lt;br /&gt;
#Named the next column Dgln3_ttest_B-H_t15 and inputted the following formula:&lt;br /&gt;
 =(D2*6189)/E2&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
#Named column G dgln3_B-H_Pval_t15 and inputted the formula:&lt;br /&gt;
 =IF(F2&amp;lt;1,1,F2)&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
#How many genes have a Pvalue&amp;lt;0.05 at each timepoint?&lt;br /&gt;
#* 15: 1027 (16.59%)&lt;br /&gt;
#* 30: 1622 (26.21%)&lt;br /&gt;
#* 60: 628 (10.15%)&lt;br /&gt;
#* 90: 558 (9.11%)&lt;br /&gt;
#* 120: 403 (6.51%)&lt;br /&gt;
#Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&lt;br /&gt;
#* LogFC &amp;gt; 0.25&lt;br /&gt;
#** 15: 559 (9.03%)&lt;br /&gt;
#** 30: 897 (14.49%)&lt;br /&gt;
#** 60: 319 (5.15%)&lt;br /&gt;
#** 90: 265 (4.28%)&lt;br /&gt;
#** 120: 190 (3.07%)&lt;br /&gt;
#* LogFC &amp;lt; -0.25&lt;br /&gt;
#** 15: 458 (7.4%)&lt;br /&gt;
#** 30: 711 (11.49%)&lt;br /&gt;
#** 60: 304 (4.91%)&lt;br /&gt;
#** 90: 289 (4.67%)&lt;br /&gt;
#** 120: 207 (3.34%)&lt;br /&gt;
#* How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 5 (0.08%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 1 (0.016%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
Here is link to download my excel file including all data including ANOVA and ttest [https://lionshare.lmu.edu/Users/kmcgee3/KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx ]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Here is the Link to download my powerpoint slide including all pvalue data for gln3 [https://lionshare.lmu.edu/Users/kmcgee3/Sanity%20Check%20dGLN3%20Kevin%20McGee.ppt Sanity Check dGLN3 Kevin McGee]&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, you will need to navigate to the folder containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose your folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input the name of the Excel file (&amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;) to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot;, and the two strains that will be compared as the variables &amp;quot;strain1&amp;quot; and &amp;quot;strain2&amp;quot;.&lt;br /&gt;
*** Note that we saved our Excel file above as &amp;lt;code&amp;gt;*.xlsx&amp;lt;/code&amp;gt;, not &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;.  We may have to go back and &amp;quot;Save as...&amp;quot; &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;, in order for the MATLAB script to work.&lt;br /&gt;
*** Also note that this script will not work for any comparison involving dSWI4 because it has been hard-coded to expect 5 timepoints instead of 4.&lt;br /&gt;
&lt;br /&gt;
 %% User must input filename, sheetname, and strains for comparison&lt;br /&gt;
 filename = &amp;#039;GCAT_and_Ontario_Final_Normalized_Data.xls&amp;#039;; % Name of input file&lt;br /&gt;
 sheetname  = &amp;#039;Master_Sheet&amp;#039;; % Name of sheet in input file containing data to analyze&lt;br /&gt;
 % % If one of the two strains you are working on is the wildtype, keep that&lt;br /&gt;
 % % wildtype as strain 1.&lt;br /&gt;
 strain1    = &amp;#039;wt&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
 % % Select strain 2 to be one of the other strains you would like to&lt;br /&gt;
 % % compare with the first strain.&lt;br /&gt;
 strain2    = &amp;#039;dZAP1&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
 disp(&amp;#039;Do you want to view plots for each gene with an unadjusted p-value &amp;lt; 0.05?&amp;#039;)&lt;br /&gt;
 graph = input(&amp;#039;If yes, enter &amp;quot;1&amp;quot;. If no, enter &amp;quot;0&amp;quot;. &amp;#039;);&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
#* Inserted a new worksheet into your Excel workbook, and named it &amp;quot;dgln3_stem&amp;quot;.&lt;br /&gt;
#* Selected all of the data from &amp;quot;dgln3_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into dgln3_stem worksheet.&lt;br /&gt;
#**Renamed Master List this column to &amp;quot;SPOT&amp;quot; and ID to &amp;quot;Gene Symbol&amp;quot;.  Deleted &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filtered the data on the B-H corrected p value to be &amp;gt; 0.05 &lt;br /&gt;
#*** Once the data had been filtered, selected all of the rows and deleted the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undid the filter. &lt;br /&gt;
#** Deleted all of the data columns except for the Average Log Fold change columns for each timepoint.&lt;br /&gt;
#** Renamed the data columns with just the time and units&lt;br /&gt;
#***15m&lt;br /&gt;
#***30m&lt;br /&gt;
#***60m&lt;br /&gt;
#***90m&lt;br /&gt;
#***120m&lt;br /&gt;
#** Saved. Used Save As to save this spreadsheet as Text (Tab-delimited) *.txt file.  &lt;br /&gt;
# Downloaded and extracted the STEM software. &lt;br /&gt;
#*[http://www.cs.cmu.edu/~jernst/stem/ STEM web site].&lt;br /&gt;
#*[http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link for STEM Software]&lt;br /&gt;
#*Launched the STEM program&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select the file KevinM_GCAT_and_Ontario_Final_Normalized_Data_Stem.txt&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Ran into a problem with java timing out, STEM was not working&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;After investigation, it seems the problem is happening because the Gene Ontology site is down&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Viewing and Saving STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## A new window will open called &amp;quot;All STEM Profiles (1)&amp;quot;.  Each box corresponds to a model expression profile.  Colored profiles have a statistically significant number of genes assigned; they are arranged in order from most to least significant p value.  Profiles with the same color belong to the same cluster of profiles.  The number in each box is simply an ID number for the profile.&lt;br /&gt;
##* Click on the button that says &amp;quot;Interface Options...&amp;quot;.  At the bottom of the Interface Options window that appears below where it says &amp;quot;X-axis scale should be:&amp;quot;, click on the radio button that says &amp;quot;Based on real time&amp;quot;.  Then close the Interface Options window.&lt;br /&gt;
##*Take a screenshot of this window (on a PC, simultaneously press the &amp;lt;code&amp;gt;Alt&amp;lt;/code&amp;gt; and &amp;lt;code&amp;gt;PrintScreen&amp;lt;/code&amp;gt; buttons to save the view in the active window to the clipboard) and paste it into a PowerPoint presentation to save your figures.&lt;br /&gt;
## Click on each of the SIGNIFICANT profiles (the colored ones) to open a window showing a more detailed plot containing all of the genes in that profile.&lt;br /&gt;
##* Take a screenshot of each of the individual profile windows and save the images in your PowerPoint presentation.&lt;br /&gt;
##* At the bottom of each profile window, there are two yellow buttons &amp;quot;Profile Gene Table&amp;quot; and &amp;quot;Profile GO Table&amp;quot;.  For each of the profiles, click on the &amp;quot;Profile Gene Table&amp;quot; button to see the list of genes belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, &amp;quot;dgln3_profile#_genelist.txt&amp;quot;, where you replace the number symbol with the actual profile number.&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist. &lt;br /&gt;
##* For each of the significant profiles, click on the &amp;quot;Profile GO Table&amp;quot; to see the list of Gene Ontology terms belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;dgln3_profile#_GOlist.txt&amp;quot;.   At this point you have saved all of the primary data from the STEM software and it&amp;#039;s time to interpret the results!&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist. &lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Analyzing and Interpreting STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## Select &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;one&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; of the profiles you saved in the previous step for further intepretation of the data.  I suggest that you choose one that has a pattern of up- or down-regulated genes at the early (first three) timepoints.  You and your partner will choose the &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;same&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; profile so that you can compare your results between the two strains.  Answer the following:&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Why did you select this profile?  In other words, why was it interesting to you?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes were expected to belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;What is the p value for the enrichment of genes in this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Bear in mind that we just finished computing p values to determine whether each individual gene had a significant change in gene expression at each time point.  This p value determines whether the number of genes that show this particular expression profile across the time points is significantly more than expected.&lt;br /&gt;
##* Open the GO list file you saved for this profile in Excel.  This list shows all of the Gene Ontology terms that are associated with genes that fit this profile.  Select the third row and then choose from the menu Data &amp;gt; Filter &amp;gt; Autofilter.  Filter on the &amp;quot;p-value&amp;quot; column to show only GO terms that have a p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile at p &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  The GO list also has a column called &amp;quot;Corrected p-value&amp;quot;.  This correction is needed because the software has performed thousands of significance tests.  Filter on the &amp;quot;Corrected p-value&amp;quot; column to show only GO terms that have a corrected p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile with a corrected p value &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* Select 10 Gene Ontology terms from your filtered list (either p &amp;lt; 0.05 or corrected p &amp;lt; 0.05).  &lt;br /&gt;
##** Since you and your partner are going to compare the results from each strain for the same cluster, you can either:&lt;br /&gt;
##*** Choose the same 10 terms that are in common between strains.&lt;br /&gt;
##*** Choose 10 terms that are different between the strains (5 or so from each).&lt;br /&gt;
##*** Choose some that are the same and some that are different.&lt;br /&gt;
##**&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Look up the definitions for each of the terms at [http://geneontology.org http://geneontology.org].  For your final lab report, you will discuss the biological interpretation of these GO terms.  In other words, why does the cell react to cold shock by changing the expression of genes associated with these GO terms?  Also, what does this have to do with HAP4 being deleted?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##** To easily look up the definitions, go to [http://geneontology.org http://geneontology.org].&lt;br /&gt;
##** Copy and paste the GO ID (e.g. GO:0044848) into the search field at the upper left of the page called &amp;quot;Search GO Data&amp;quot;.&lt;br /&gt;
##** In the [http://amigo.geneontology.org/amigo/medial_search?q=GO%3A0044848 results] page, click on the button that says &amp;quot;Link to detailed information about &amp;lt;term&amp;gt;, in this case &amp;quot;biological phase&amp;quot;&amp;quot;. &lt;br /&gt;
##** The definition will be on the next results page, e.g. [http://amigo.geneontology.org/amigo/term/GO:0044848 here].&lt;br /&gt;
&lt;br /&gt;
== Step 9: GenMAPP &amp;amp; MAPPFinder ==&lt;br /&gt;
&lt;br /&gt;
=== Preparing the Input File for GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Insert a new worksheet and name it dgln3_GenMAPP.&lt;br /&gt;
* Go back to the &amp;quot;ANOVA&amp;quot; worksheet for your strain and Select All and Copy.&lt;br /&gt;
* Go to your new sheet and click on cell A1 and select Paste Special, click on the Values radio button, and click OK.   &lt;br /&gt;
** Delete the columns containing the &amp;quot;ss&amp;quot; calculations, just retaining the individual log fold change data, the average log fold change data, the Fstat and p value.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Now go to your &amp;quot;dgln3_ttest&amp;quot; worksheet.  Copy just the columns containing the Fstats and P values for the individual timepoints and Paste special &amp;gt; Paste values into your GenMAPP worksheet to the right of the previous data.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Select all of the columns containing Fold Changes.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 2 decimal places.  Click OK.&lt;br /&gt;
* Select all of the columns containing T statistics or P values.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 4 decimal places. Click OK.&lt;br /&gt;
* We will now format this file for use with GenMAPP.&lt;br /&gt;
** Currently, the &amp;quot;MasterIndex&amp;quot; column is the first column in the worksheet.  We need the &amp;quot;ID&amp;quot; column to be the first column.  Select Column B and Cut.  Right-click on Cell A1 and select &amp;quot;Insert cut cells&amp;quot;.  This will reverse the position of the columns.&lt;br /&gt;
** Insert a new empty column in Column B.  Type &amp;quot;SystemCode&amp;quot; in the first cell and &amp;quot;D&amp;quot; in the second cell of this column.  Use our trick to fill this entire column with &amp;quot;D&amp;quot;.&lt;br /&gt;
** Make sure to save this work as your .xlsx file.  Now save this worksheet as a tab-delimited text file for use with GenMAPP in the next section.&lt;br /&gt;
&lt;br /&gt;
=== Running GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
Each time you launch GenMAPP, you need to make sure that the correct Gene Database (.gdb) is loaded.&lt;br /&gt;
* Look in the lower left-hand corner of the window to see which Gene Database has been selected.&lt;br /&gt;
* If you need to change the Gene Database, select Data &amp;gt; Choose Gene Database.  Navigate to the directory C:\GenMAPP 2 Data\Gene Databases and choose the correct one for your species.&lt;br /&gt;
* For the exercise today, if the yeast Gene Database is not present on your computer, you will need to download it. [https://lionshare.lmu.edu/Users/kdahlqui/BIOL478/Sc-Std_20060526.zip Click this link to download the yeast Gene Database.]&lt;br /&gt;
* Unzip the file and save it, Sc-Std_20060526.gdb, to the folder C:\GenMAPP 2 Data\Gene Databases.&lt;br /&gt;
&lt;br /&gt;
=== GenMAPP Expression Dataset Manager Procedure ===&lt;br /&gt;
&lt;br /&gt;
* Launch the GenMAPP Program.  Check to make sure the correct Gene Database is loaded.&lt;br /&gt;
* Select the Data menu from the main Drafting Board window and choose Expression Dataset Manager from the drop-down list. The Expression Dataset Manager window will open.&lt;br /&gt;
* Select New Dataset from the Expression Datasets menu. Select the tab-delimited text file that you formatted for GenMAPP (.txt) in the procedure above from the file dialog box that appears.&lt;br /&gt;
* The Data Type Specification window will appear.  GenMAPP is expecting that you are providing numerical data.  If any of your columns has text (character) data, check the box next to the field (column) name.&lt;br /&gt;
** The column &amp;#039;&amp;#039;StandardName&amp;#039;&amp;#039; has text data in it, but none of the rest do.&lt;br /&gt;
* Allow the Expression Dataset Manager to convert your data.&lt;br /&gt;
** This may take a few minutes depending on the size of the dataset and the computer’s memory and processor speed. When the process is complete, the converted dataset will be active in the Expression Dataset Manager window and the file will be saved in the same folder the raw data file was in, named the same except with a .gex extension; for example, MyExperiment.gex.&lt;br /&gt;
** A message may appear saying that the Expression Dataset Manager could not convert one or more lines of data. Lines that generate an error during the conversion of a raw data file are not added to the Expression Dataset. Instead, an exception file is created. The exception file is given the same name as your raw data file with .EX before the extension (e.g., MyExperiment.EX.txt). The exception file will contain all of your raw data, with the addition of a column named ~Error~. This column contains either error messages or, if the program finds no errors, a single space character.&lt;br /&gt;
*** &amp;#039;&amp;#039;&amp;#039;Record the number of errors in your lab notebook.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
* Customize the new Expression Dataset by creating new Color Sets which contain the instructions to GenMAPP for displaying data on MAPPs.&lt;br /&gt;
** Color Sets contain the instructions to GenMAPP for displaying data from an Expression Dataset on MAPPs. Create a Color Set by filling in the following different fields in the Color Set area of the Expression Dataset Manager:  a name for the Color Set, the gene value, and the criteria that determine how a gene object is colored on the MAPP. Enter a name in the Color Set Name field that is 20 characters or fewer.  You will have one Color Set per strain per time point.&lt;br /&gt;
** The Gene Value is the data displayed next to the gene box on a MAPP. Select the column of data to be used as the Gene Value from the drop down list or select [none].  We will use &amp;quot;Avg_LogFC_&amp;quot; for the the appropriate time point.&lt;br /&gt;
** Activate the Criteria Builder by clicking the New button.&lt;br /&gt;
** Enter a name for the criterion in the Label in Legend field.&lt;br /&gt;
** Choose a color for the criterion by left-clicking on the Color box. Choose a color from the Color window that appears and click OK.&lt;br /&gt;
** State the criterion for color-coding a gene in the Criterion field.&lt;br /&gt;
*** A criterion is stated with relationships such as &amp;quot;this column greater than this value&amp;quot; or &amp;quot;that column less than or equal to that value&amp;quot;. Individual relationships can be combined using as many ANDs and ORs as needed. A typical relationship is&lt;br /&gt;
 [ColumnName] RelationalOperator Value&lt;br /&gt;
with the column name always enclosed in brackets and character values enclosed in single quotes. For example:&lt;br /&gt;
 [Fold Change] &amp;gt;= 2&lt;br /&gt;
 [p value] &amp;lt; 0.05&lt;br /&gt;
 [Quality] = &amp;#039;high&amp;#039;&lt;br /&gt;
This is the equivalent to queries that you performed on the command line when working with the PostgreSQL movie database.  GenMAPP is using a graphical user interface (GUI) to help the user format the queries correctly.  The easiest and safest way to create criteria is by choosing items from the Columns and Ops (operators) lists shown in the Criteria Builder. The Columns list contains all of the column headings from your Expression Dataset. To choose a column from the list, click on the column heading. It will appear at the location of the cursor in the Criterion box. The Criteria Builder surrounds the column names with brackets.&lt;br /&gt;
&lt;br /&gt;
The Ops (operators) list contains the relational operators that may be used in the criteria: equals ( = )  greater than ( &amp;gt; ), less than ( &amp;lt; ), greater than or equal to &lt;br /&gt;
( &amp;gt;= ), less than or equal to ( &amp;lt;= ), is not equal to ( &amp;lt;&amp;gt; ). To choose an operator from the list, click on the symbol. It will appear at the location of the insertion bar (cursor) in the Criterion box. The Criteria Builder automatically surrounds the operators with spaces.&lt;br /&gt;
The Ops list also contains the conjunctions AND and OR, which may be used to make compound criteria. For example:&lt;br /&gt;
 [Fold Change] &amp;gt; 1.2 AND [p value] &amp;lt;= 0.05&lt;br /&gt;
Parentheses control the order of evaluation. Anything in parentheses is evaluated first. Parentheses may be nested. For example:&lt;br /&gt;
 [Control Average] = 100 AND ([Exp1 Average] &amp;gt; 100 OR [Exp2 Average] &amp;gt; 100)&lt;br /&gt;
Column names may be used anywhere a value can, for example: &lt;br /&gt;
 [Control Average] &amp;lt; [Experiment Average]&lt;br /&gt;
&lt;br /&gt;
* After completing a new criterion, add the criterion entry (label, criterion, and color) to the Criteria List by clicking the Add button.&lt;br /&gt;
** For the yeast dataset, you will create two criterion for each Color Set.  &amp;quot;Increased&amp;quot; will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;gt; 0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05 and &amp;quot;Decreased will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;lt; -0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05.  Make sure that the increased and decreased average log fold change values match the timepoint of the Color Set.&lt;br /&gt;
** You may continue to add criteria to the Color Set by using the previous steps.&lt;br /&gt;
*** The buttons to the right of the list represent actions that can be performed on individual criteria. To modify a criterion label, color, or the criterion itself, first select the criterion in the list by left-clicking on it, and then click the Edit button. This puts the selected criterion into the Criteria Builder to be modified. Click the Save button to save changes to the modified criterion; click the Add button to add it  to the list as a separate criterion. To remove a criterion from the list, left-click on the criterion to select it, and then click on the Delete button. The order of Criteria in the list has significance to GenMAPP. When applying an Expression Dataset and Color Set to a MAPP, GenMAPP examines the expression data for a particular gene object and applies the color for the first criterion in the list that is true. Therefore, it is imperative that when criteria overlap the user put the most important or least inclusive criteria in the list first. To change the order of the criteria in the list, left-click on the criterion to select it and then click the Move Up or Move Down buttons. No criteria met and Not found are always the last two positions in the list.&lt;br /&gt;
* You will also create two ColorSets to view the ANOVA p values for both strains, with criteria for viewing the unadjusted, Bonferroni-corrected, and B&amp;amp;H corrected p values.&lt;br /&gt;
* Save the entire Expression Dataset by selecting Save from the Expression Dataset menu. Changes made to a Color Set are not saved until you do this.&lt;br /&gt;
* Exit the Expression Dataset Manager to view the Color Sets on a MAPP. Choose Exit from the Expression Dataset menu or click the close box in the upper right hand corner of the window.&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;Upload your .gex file to Lionshare and share it with Dr. Dahlquist.&amp;#039;&amp;#039;&amp;#039;  E-mail the link to the file to Dr. Dahlquist.&lt;br /&gt;
* Dr. Dahlquist will provide a set of MAPPs with which to view your Expression Dataset. &lt;br /&gt;
** Links to a zipped archive of MAPPs and an Expression Dataset have been e-mailed to your lion e-mail accounts.&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T23:19:32Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: /* Step 7-8: Clustering and GO Term Enrichment with stem */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;br /&gt;
&lt;br /&gt;
=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
#In AM1, made title dgln3_Bonferoni_Pvalue_t15&lt;br /&gt;
#* Created column heading similar for t30, t60, t90, and t120&lt;br /&gt;
#*In AM2, inputted the formula&lt;br /&gt;
 =AH2*6189&lt;br /&gt;
&lt;br /&gt;
Did this for 30,60, 90 and 120 as well&lt;br /&gt;
&lt;br /&gt;
#*Copied and pasted these throughout the columns &lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
#Created a new sheet called dgln3_ttest_B-H&lt;br /&gt;
#*Copied and pasted Master index, ID, and Standard Name from the master sheet&lt;br /&gt;
#Copied and did a special values paste for all timepoints of the unadjusted Pvalues into columns D-H&lt;br /&gt;
#In the following steps, I will insert 3 coulmns in between each unadjusted Pvalue timepoint. Therfore, t30, t60, t90, and t120 will eventually be placed in columns H, L, P, and T respectively&lt;br /&gt;
#Selected columns A_D and sorted by ascending numbers in  D&lt;br /&gt;
#Named Column E &amp;quot;Rank&amp;quot;&lt;br /&gt;
#*From E2 down, numbered the cells 1-6190&lt;br /&gt;
#Named the next column Dgln3_ttest_B-H_t15 and inputted the following formula:&lt;br /&gt;
 =(D2*6189)/E2&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
#Named column G dgln3_B-H_Pval_t15 and inputted the formula:&lt;br /&gt;
 =IF(F2&amp;lt;1,1,F2)&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
#How many genes have a Pvalue&amp;lt;0.05 at each timepoint?&lt;br /&gt;
#* 15: 1027 (16.59%)&lt;br /&gt;
#* 30: 1622 (26.21%)&lt;br /&gt;
#* 60: 628 (10.15%)&lt;br /&gt;
#* 90: 558 (9.11%)&lt;br /&gt;
#* 120: 403 (6.51%)&lt;br /&gt;
#Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&lt;br /&gt;
#* LogFC &amp;gt; 0.25&lt;br /&gt;
#** 15: 559 (9.03%)&lt;br /&gt;
#** 30: 897 (14.49%)&lt;br /&gt;
#** 60: 319 (5.15%)&lt;br /&gt;
#** 90: 265 (4.28%)&lt;br /&gt;
#** 120: 190 (3.07%)&lt;br /&gt;
#* LogFC &amp;lt; -0.25&lt;br /&gt;
#** 15: 458 (7.4%)&lt;br /&gt;
#** 30: 711 (11.49%)&lt;br /&gt;
#** 60: 304 (4.91%)&lt;br /&gt;
#** 90: 289 (4.67%)&lt;br /&gt;
#** 120: 207 (3.34%)&lt;br /&gt;
#* How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 5 (0.08%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 1 (0.016%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
Here is link to download my excel file including all data including ANOVA and ttest [https://lionshare.lmu.edu/Users/kmcgee3/KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx ]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Here is the Link to download my powerpoint slide including all pvalue data for gln3 [https://lionshare.lmu.edu/Users/kmcgee3/Sanity%20Check%20dGLN3%20Kevin%20McGee.ppt Sanity Check dGLN3 Kevin McGee]&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, you will need to navigate to the folder containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose your folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input the name of the Excel file (&amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;) to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot;, and the two strains that will be compared as the variables &amp;quot;strain1&amp;quot; and &amp;quot;strain2&amp;quot;.&lt;br /&gt;
*** Note that we saved our Excel file above as &amp;lt;code&amp;gt;*.xlsx&amp;lt;/code&amp;gt;, not &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;.  We may have to go back and &amp;quot;Save as...&amp;quot; &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;, in order for the MATLAB script to work.&lt;br /&gt;
*** Also note that this script will not work for any comparison involving dSWI4 because it has been hard-coded to expect 5 timepoints instead of 4.&lt;br /&gt;
&lt;br /&gt;
 %% User must input filename, sheetname, and strains for comparison&lt;br /&gt;
 filename = &amp;#039;GCAT_and_Ontario_Final_Normalized_Data.xls&amp;#039;; % Name of input file&lt;br /&gt;
 sheetname  = &amp;#039;Master_Sheet&amp;#039;; % Name of sheet in input file containing data to analyze&lt;br /&gt;
 % % If one of the two strains you are working on is the wildtype, keep that&lt;br /&gt;
 % % wildtype as strain 1.&lt;br /&gt;
 strain1    = &amp;#039;wt&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
 % % Select strain 2 to be one of the other strains you would like to&lt;br /&gt;
 % % compare with the first strain.&lt;br /&gt;
 strain2    = &amp;#039;dZAP1&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
 disp(&amp;#039;Do you want to view plots for each gene with an unadjusted p-value &amp;lt; 0.05?&amp;#039;)&lt;br /&gt;
 graph = input(&amp;#039;If yes, enter &amp;quot;1&amp;quot;. If no, enter &amp;quot;0&amp;quot;. &amp;#039;);&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
#* Inserted a new worksheet into your Excel workbook, and named it &amp;quot;dgln3_stem&amp;quot;.&lt;br /&gt;
#* Selected all of the data from &amp;quot;dgln3_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into dgln3_stem worksheet.&lt;br /&gt;
#**Renamed Master List this column to &amp;quot;SPOT&amp;quot; and ID to &amp;quot;Gene Symbol&amp;quot;.  Deleted &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filtered the data on the B-H corrected p value to be &amp;gt; 0.05 &lt;br /&gt;
#*** Once the data had been filtered, selected all of the rows and deleted the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undid the filter. &lt;br /&gt;
#** Deleted all of the data columns except for the Average Log Fold change columns for each timepoint.&lt;br /&gt;
#** Renamed the data columns with just the time and units&lt;br /&gt;
#***15m&lt;br /&gt;
#***30m&lt;br /&gt;
#***60m&lt;br /&gt;
#***90m&lt;br /&gt;
#***120m&lt;br /&gt;
#** Saved. Used Save As to save this spreadsheet as Text (Tab-delimited) *.txt file.  &lt;br /&gt;
# Downloaded and extracted the STEM software. &lt;br /&gt;
#*[http://www.cs.cmu.edu/~jernst/stem/ STEM web site].&lt;br /&gt;
#*[http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link for STEM Software]&lt;br /&gt;
#*Launched the STEM program&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select the file KevinM_GCAT_and_Ontario_Final_Normalized_Data_Stem.txt&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Ran into a problem with java timing out, STEM was not working&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;After investigation, it seems the problem is happening because the Gene Ontology site is down&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Viewing and Saving STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## A new window will open called &amp;quot;All STEM Profiles (1)&amp;quot;.  Each box corresponds to a model expression profile.  Colored profiles have a statistically significant number of genes assigned; they are arranged in order from most to least significant p value.  Profiles with the same color belong to the same cluster of profiles.  The number in each box is simply an ID number for the profile.&lt;br /&gt;
##* Click on the button that says &amp;quot;Interface Options...&amp;quot;.  At the bottom of the Interface Options window that appears below where it says &amp;quot;X-axis scale should be:&amp;quot;, click on the radio button that says &amp;quot;Based on real time&amp;quot;.  Then close the Interface Options window.&lt;br /&gt;
##*Take a screenshot of this window (on a PC, simultaneously press the &amp;lt;code&amp;gt;Alt&amp;lt;/code&amp;gt; and &amp;lt;code&amp;gt;PrintScreen&amp;lt;/code&amp;gt; buttons to save the view in the active window to the clipboard) and paste it into a PowerPoint presentation to save your figures.&lt;br /&gt;
## Click on each of the SIGNIFICANT profiles (the colored ones) to open a window showing a more detailed plot containing all of the genes in that profile.&lt;br /&gt;
##* Take a screenshot of each of the individual profile windows and save the images in your PowerPoint presentation.&lt;br /&gt;
##* At the bottom of each profile window, there are two yellow buttons &amp;quot;Profile Gene Table&amp;quot; and &amp;quot;Profile GO Table&amp;quot;.  For each of the profiles, click on the &amp;quot;Profile Gene Table&amp;quot; button to see the list of genes belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_genelist.txt&amp;quot;, where you replace the number symbol with the actual profile number.&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist.  (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
##* For each of the significant profiles, click on the &amp;quot;Profile GO Table&amp;quot; to see the list of Gene Ontology terms belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_GOlist.txt&amp;quot;, where you use &amp;quot;wt&amp;quot;, &amp;quot;dGLN3&amp;quot;, etc. to indicate the dataset and where you replace the number symbol with the actual profile number.  At this point you have saved all of the primary data from the STEM software and it&amp;#039;s time to interpret the results!&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist. (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Analyzing and Interpreting STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## Select &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;one&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; of the profiles you saved in the previous step for further intepretation of the data.  I suggest that you choose one that has a pattern of up- or down-regulated genes at the early (first three) timepoints.  You and your partner will choose the &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;same&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; profile so that you can compare your results between the two strains.  Answer the following:&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Why did you select this profile?  In other words, why was it interesting to you?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes were expected to belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;What is the p value for the enrichment of genes in this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Bear in mind that we just finished computing p values to determine whether each individual gene had a significant change in gene expression at each time point.  This p value determines whether the number of genes that show this particular expression profile across the time points is significantly more than expected.&lt;br /&gt;
##* Open the GO list file you saved for this profile in Excel.  This list shows all of the Gene Ontology terms that are associated with genes that fit this profile.  Select the third row and then choose from the menu Data &amp;gt; Filter &amp;gt; Autofilter.  Filter on the &amp;quot;p-value&amp;quot; column to show only GO terms that have a p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile at p &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  The GO list also has a column called &amp;quot;Corrected p-value&amp;quot;.  This correction is needed because the software has performed thousands of significance tests.  Filter on the &amp;quot;Corrected p-value&amp;quot; column to show only GO terms that have a corrected p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile with a corrected p value &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* Select 10 Gene Ontology terms from your filtered list (either p &amp;lt; 0.05 or corrected p &amp;lt; 0.05).  &lt;br /&gt;
##** Since you and your partner are going to compare the results from each strain for the same cluster, you can either:&lt;br /&gt;
##*** Choose the same 10 terms that are in common between strains.&lt;br /&gt;
##*** Choose 10 terms that are different between the strains (5 or so from each).&lt;br /&gt;
##*** Choose some that are the same and some that are different.&lt;br /&gt;
##**&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Look up the definitions for each of the terms at [http://geneontology.org http://geneontology.org].  For your final lab report, you will discuss the biological interpretation of these GO terms.  In other words, why does the cell react to cold shock by changing the expression of genes associated with these GO terms?  Also, what does this have to do with HAP4 being deleted?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##** To easily look up the definitions, go to [http://geneontology.org http://geneontology.org].&lt;br /&gt;
##** Copy and paste the GO ID (e.g. GO:0044848) into the search field at the upper left of the page called &amp;quot;Search GO Data&amp;quot;.&lt;br /&gt;
##** In the [http://amigo.geneontology.org/amigo/medial_search?q=GO%3A0044848 results] page, click on the button that says &amp;quot;Link to detailed information about &amp;lt;term&amp;gt;, in this case &amp;quot;biological phase&amp;quot;&amp;quot;. &lt;br /&gt;
##** The definition will be on the next results page, e.g. [http://amigo.geneontology.org/amigo/term/GO:0044848 here].&lt;br /&gt;
&lt;br /&gt;
== Step 9: GenMAPP &amp;amp; MAPPFinder ==&lt;br /&gt;
&lt;br /&gt;
=== Preparing the Input File for GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Insert a new worksheet and name it dgln3_GenMAPP.&lt;br /&gt;
* Go back to the &amp;quot;ANOVA&amp;quot; worksheet for your strain and Select All and Copy.&lt;br /&gt;
* Go to your new sheet and click on cell A1 and select Paste Special, click on the Values radio button, and click OK.   &lt;br /&gt;
** Delete the columns containing the &amp;quot;ss&amp;quot; calculations, just retaining the individual log fold change data, the average log fold change data, the Fstat and p value.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Now go to your &amp;quot;dgln3_ttest&amp;quot; worksheet.  Copy just the columns containing the Fstats and P values for the individual timepoints and Paste special &amp;gt; Paste values into your GenMAPP worksheet to the right of the previous data.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Select all of the columns containing Fold Changes.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 2 decimal places.  Click OK.&lt;br /&gt;
* Select all of the columns containing T statistics or P values.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 4 decimal places. Click OK.&lt;br /&gt;
* We will now format this file for use with GenMAPP.&lt;br /&gt;
** Currently, the &amp;quot;MasterIndex&amp;quot; column is the first column in the worksheet.  We need the &amp;quot;ID&amp;quot; column to be the first column.  Select Column B and Cut.  Right-click on Cell A1 and select &amp;quot;Insert cut cells&amp;quot;.  This will reverse the position of the columns.&lt;br /&gt;
** Insert a new empty column in Column B.  Type &amp;quot;SystemCode&amp;quot; in the first cell and &amp;quot;D&amp;quot; in the second cell of this column.  Use our trick to fill this entire column with &amp;quot;D&amp;quot;.&lt;br /&gt;
** Make sure to save this work as your .xlsx file.  Now save this worksheet as a tab-delimited text file for use with GenMAPP in the next section.&lt;br /&gt;
&lt;br /&gt;
=== Running GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
Each time you launch GenMAPP, you need to make sure that the correct Gene Database (.gdb) is loaded.&lt;br /&gt;
* Look in the lower left-hand corner of the window to see which Gene Database has been selected.&lt;br /&gt;
* If you need to change the Gene Database, select Data &amp;gt; Choose Gene Database.  Navigate to the directory C:\GenMAPP 2 Data\Gene Databases and choose the correct one for your species.&lt;br /&gt;
* For the exercise today, if the yeast Gene Database is not present on your computer, you will need to download it. [https://lionshare.lmu.edu/Users/kdahlqui/BIOL478/Sc-Std_20060526.zip Click this link to download the yeast Gene Database.]&lt;br /&gt;
* Unzip the file and save it, Sc-Std_20060526.gdb, to the folder C:\GenMAPP 2 Data\Gene Databases.&lt;br /&gt;
&lt;br /&gt;
=== GenMAPP Expression Dataset Manager Procedure ===&lt;br /&gt;
&lt;br /&gt;
* Launch the GenMAPP Program.  Check to make sure the correct Gene Database is loaded.&lt;br /&gt;
* Select the Data menu from the main Drafting Board window and choose Expression Dataset Manager from the drop-down list. The Expression Dataset Manager window will open.&lt;br /&gt;
* Select New Dataset from the Expression Datasets menu. Select the tab-delimited text file that you formatted for GenMAPP (.txt) in the procedure above from the file dialog box that appears.&lt;br /&gt;
* The Data Type Specification window will appear.  GenMAPP is expecting that you are providing numerical data.  If any of your columns has text (character) data, check the box next to the field (column) name.&lt;br /&gt;
** The column &amp;#039;&amp;#039;StandardName&amp;#039;&amp;#039; has text data in it, but none of the rest do.&lt;br /&gt;
* Allow the Expression Dataset Manager to convert your data.&lt;br /&gt;
** This may take a few minutes depending on the size of the dataset and the computer’s memory and processor speed. When the process is complete, the converted dataset will be active in the Expression Dataset Manager window and the file will be saved in the same folder the raw data file was in, named the same except with a .gex extension; for example, MyExperiment.gex.&lt;br /&gt;
** A message may appear saying that the Expression Dataset Manager could not convert one or more lines of data. Lines that generate an error during the conversion of a raw data file are not added to the Expression Dataset. Instead, an exception file is created. The exception file is given the same name as your raw data file with .EX before the extension (e.g., MyExperiment.EX.txt). The exception file will contain all of your raw data, with the addition of a column named ~Error~. This column contains either error messages or, if the program finds no errors, a single space character.&lt;br /&gt;
*** &amp;#039;&amp;#039;&amp;#039;Record the number of errors in your lab notebook.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
* Customize the new Expression Dataset by creating new Color Sets which contain the instructions to GenMAPP for displaying data on MAPPs.&lt;br /&gt;
** Color Sets contain the instructions to GenMAPP for displaying data from an Expression Dataset on MAPPs. Create a Color Set by filling in the following different fields in the Color Set area of the Expression Dataset Manager:  a name for the Color Set, the gene value, and the criteria that determine how a gene object is colored on the MAPP. Enter a name in the Color Set Name field that is 20 characters or fewer.  You will have one Color Set per strain per time point.&lt;br /&gt;
** The Gene Value is the data displayed next to the gene box on a MAPP. Select the column of data to be used as the Gene Value from the drop down list or select [none].  We will use &amp;quot;Avg_LogFC_&amp;quot; for the the appropriate time point.&lt;br /&gt;
** Activate the Criteria Builder by clicking the New button.&lt;br /&gt;
** Enter a name for the criterion in the Label in Legend field.&lt;br /&gt;
** Choose a color for the criterion by left-clicking on the Color box. Choose a color from the Color window that appears and click OK.&lt;br /&gt;
** State the criterion for color-coding a gene in the Criterion field.&lt;br /&gt;
*** A criterion is stated with relationships such as &amp;quot;this column greater than this value&amp;quot; or &amp;quot;that column less than or equal to that value&amp;quot;. Individual relationships can be combined using as many ANDs and ORs as needed. A typical relationship is&lt;br /&gt;
 [ColumnName] RelationalOperator Value&lt;br /&gt;
with the column name always enclosed in brackets and character values enclosed in single quotes. For example:&lt;br /&gt;
 [Fold Change] &amp;gt;= 2&lt;br /&gt;
 [p value] &amp;lt; 0.05&lt;br /&gt;
 [Quality] = &amp;#039;high&amp;#039;&lt;br /&gt;
This is the equivalent to queries that you performed on the command line when working with the PostgreSQL movie database.  GenMAPP is using a graphical user interface (GUI) to help the user format the queries correctly.  The easiest and safest way to create criteria is by choosing items from the Columns and Ops (operators) lists shown in the Criteria Builder. The Columns list contains all of the column headings from your Expression Dataset. To choose a column from the list, click on the column heading. It will appear at the location of the cursor in the Criterion box. The Criteria Builder surrounds the column names with brackets.&lt;br /&gt;
&lt;br /&gt;
The Ops (operators) list contains the relational operators that may be used in the criteria: equals ( = )  greater than ( &amp;gt; ), less than ( &amp;lt; ), greater than or equal to &lt;br /&gt;
( &amp;gt;= ), less than or equal to ( &amp;lt;= ), is not equal to ( &amp;lt;&amp;gt; ). To choose an operator from the list, click on the symbol. It will appear at the location of the insertion bar (cursor) in the Criterion box. The Criteria Builder automatically surrounds the operators with spaces.&lt;br /&gt;
The Ops list also contains the conjunctions AND and OR, which may be used to make compound criteria. For example:&lt;br /&gt;
 [Fold Change] &amp;gt; 1.2 AND [p value] &amp;lt;= 0.05&lt;br /&gt;
Parentheses control the order of evaluation. Anything in parentheses is evaluated first. Parentheses may be nested. For example:&lt;br /&gt;
 [Control Average] = 100 AND ([Exp1 Average] &amp;gt; 100 OR [Exp2 Average] &amp;gt; 100)&lt;br /&gt;
Column names may be used anywhere a value can, for example: &lt;br /&gt;
 [Control Average] &amp;lt; [Experiment Average]&lt;br /&gt;
&lt;br /&gt;
* After completing a new criterion, add the criterion entry (label, criterion, and color) to the Criteria List by clicking the Add button.&lt;br /&gt;
** For the yeast dataset, you will create two criterion for each Color Set.  &amp;quot;Increased&amp;quot; will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;gt; 0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05 and &amp;quot;Decreased will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;lt; -0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05.  Make sure that the increased and decreased average log fold change values match the timepoint of the Color Set.&lt;br /&gt;
** You may continue to add criteria to the Color Set by using the previous steps.&lt;br /&gt;
*** The buttons to the right of the list represent actions that can be performed on individual criteria. To modify a criterion label, color, or the criterion itself, first select the criterion in the list by left-clicking on it, and then click the Edit button. This puts the selected criterion into the Criteria Builder to be modified. Click the Save button to save changes to the modified criterion; click the Add button to add it  to the list as a separate criterion. To remove a criterion from the list, left-click on the criterion to select it, and then click on the Delete button. The order of Criteria in the list has significance to GenMAPP. When applying an Expression Dataset and Color Set to a MAPP, GenMAPP examines the expression data for a particular gene object and applies the color for the first criterion in the list that is true. Therefore, it is imperative that when criteria overlap the user put the most important or least inclusive criteria in the list first. To change the order of the criteria in the list, left-click on the criterion to select it and then click the Move Up or Move Down buttons. No criteria met and Not found are always the last two positions in the list.&lt;br /&gt;
* You will also create two ColorSets to view the ANOVA p values for both strains, with criteria for viewing the unadjusted, Bonferroni-corrected, and B&amp;amp;H corrected p values.&lt;br /&gt;
* Save the entire Expression Dataset by selecting Save from the Expression Dataset menu. Changes made to a Color Set are not saved until you do this.&lt;br /&gt;
* Exit the Expression Dataset Manager to view the Color Sets on a MAPP. Choose Exit from the Expression Dataset menu or click the close box in the upper right hand corner of the window.&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;Upload your .gex file to Lionshare and share it with Dr. Dahlquist.&amp;#039;&amp;#039;&amp;#039;  E-mail the link to the file to Dr. Dahlquist.&lt;br /&gt;
* Dr. Dahlquist will provide a set of MAPPs with which to view your Expression Dataset. &lt;br /&gt;
** Links to a zipped archive of MAPPs and an Expression Dataset have been e-mailed to your lion e-mail accounts.&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T21:20:41Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: /* Step 9: GenMAPP &amp;amp; MAPPFinder */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;br /&gt;
&lt;br /&gt;
=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
#In AM1, made title dgln3_Bonferoni_Pvalue_t15&lt;br /&gt;
#* Created column heading similar for t30, t60, t90, and t120&lt;br /&gt;
#*In AM2, inputted the formula&lt;br /&gt;
 =AH2*6189&lt;br /&gt;
&lt;br /&gt;
Did this for 30,60, 90 and 120 as well&lt;br /&gt;
&lt;br /&gt;
#*Copied and pasted these throughout the columns &lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
#Created a new sheet called dgln3_ttest_B-H&lt;br /&gt;
#*Copied and pasted Master index, ID, and Standard Name from the master sheet&lt;br /&gt;
#Copied and did a special values paste for all timepoints of the unadjusted Pvalues into columns D-H&lt;br /&gt;
#In the following steps, I will insert 3 coulmns in between each unadjusted Pvalue timepoint. Therfore, t30, t60, t90, and t120 will eventually be placed in columns H, L, P, and T respectively&lt;br /&gt;
#Selected columns A_D and sorted by ascending numbers in  D&lt;br /&gt;
#Named Column E &amp;quot;Rank&amp;quot;&lt;br /&gt;
#*From E2 down, numbered the cells 1-6190&lt;br /&gt;
#Named the next column Dgln3_ttest_B-H_t15 and inputted the following formula:&lt;br /&gt;
 =(D2*6189)/E2&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
#Named column G dgln3_B-H_Pval_t15 and inputted the formula:&lt;br /&gt;
 =IF(F2&amp;lt;1,1,F2)&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
#How many genes have a Pvalue&amp;lt;0.05 at each timepoint?&lt;br /&gt;
#* 15: 1027 (16.59%)&lt;br /&gt;
#* 30: 1622 (26.21%)&lt;br /&gt;
#* 60: 628 (10.15%)&lt;br /&gt;
#* 90: 558 (9.11%)&lt;br /&gt;
#* 120: 403 (6.51%)&lt;br /&gt;
#Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&lt;br /&gt;
#* LogFC &amp;gt; 0.25&lt;br /&gt;
#** 15: 559 (9.03%)&lt;br /&gt;
#** 30: 897 (14.49%)&lt;br /&gt;
#** 60: 319 (5.15%)&lt;br /&gt;
#** 90: 265 (4.28%)&lt;br /&gt;
#** 120: 190 (3.07%)&lt;br /&gt;
#* LogFC &amp;lt; -0.25&lt;br /&gt;
#** 15: 458 (7.4%)&lt;br /&gt;
#** 30: 711 (11.49%)&lt;br /&gt;
#** 60: 304 (4.91%)&lt;br /&gt;
#** 90: 289 (4.67%)&lt;br /&gt;
#** 120: 207 (3.34%)&lt;br /&gt;
#* How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 5 (0.08%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 1 (0.016%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
Here is link to download my excel file including all data including ANOVA and ttest [https://lionshare.lmu.edu/Users/kmcgee3/KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx ]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Here is the Link to download my powerpoint slide including all pvalue data for gln3 [https://lionshare.lmu.edu/Users/kmcgee3/Sanity%20Check%20dGLN3%20Kevin%20McGee.ppt Sanity Check dGLN3 Kevin McGee]&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, you will need to navigate to the folder containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose your folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input the name of the Excel file (&amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;) to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot;, and the two strains that will be compared as the variables &amp;quot;strain1&amp;quot; and &amp;quot;strain2&amp;quot;.&lt;br /&gt;
*** Note that we saved our Excel file above as &amp;lt;code&amp;gt;*.xlsx&amp;lt;/code&amp;gt;, not &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;.  We may have to go back and &amp;quot;Save as...&amp;quot; &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;, in order for the MATLAB script to work.&lt;br /&gt;
*** Also note that this script will not work for any comparison involving dSWI4 because it has been hard-coded to expect 5 timepoints instead of 4.&lt;br /&gt;
&lt;br /&gt;
 %% User must input filename, sheetname, and strains for comparison&lt;br /&gt;
 filename = &amp;#039;GCAT_and_Ontario_Final_Normalized_Data.xls&amp;#039;; % Name of input file&lt;br /&gt;
 sheetname  = &amp;#039;Master_Sheet&amp;#039;; % Name of sheet in input file containing data to analyze&lt;br /&gt;
 % % If one of the two strains you are working on is the wildtype, keep that&lt;br /&gt;
 % % wildtype as strain 1.&lt;br /&gt;
 strain1    = &amp;#039;wt&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
 % % Select strain 2 to be one of the other strains you would like to&lt;br /&gt;
 % % compare with the first strain.&lt;br /&gt;
 strain2    = &amp;#039;dZAP1&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
 disp(&amp;#039;Do you want to view plots for each gene with an unadjusted p-value &amp;lt; 0.05?&amp;#039;)&lt;br /&gt;
 graph = input(&amp;#039;If yes, enter &amp;quot;1&amp;quot;. If no, enter &amp;quot;0&amp;quot;. &amp;#039;);&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
#* Inserted a new worksheet into your Excel workbook, and named it &amp;quot;dgln3_stem&amp;quot;.&lt;br /&gt;
#* Selected all of the data from &amp;quot;dgln3_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into dgln3_stem worksheet.&lt;br /&gt;
#**Renamed Master List this column to &amp;quot;SPOT&amp;quot; and ID to &amp;quot;Gene Symbol&amp;quot;.  Deleted &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filtered the data on the B-H corrected p value to be &amp;gt; 0.05 &lt;br /&gt;
#*** Once the data had been filtered, selected all of the rows and deleted the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undid the filter. &lt;br /&gt;
#** Deleted all of the data columns except for the Average Log Fold change columns for each timepoint.&lt;br /&gt;
#** Renamed the data columns with just the time and units&lt;br /&gt;
#***15m&lt;br /&gt;
#***30m&lt;br /&gt;
#***60m&lt;br /&gt;
#***90m&lt;br /&gt;
#***120m&lt;br /&gt;
#** Saved. Used Save As to save this spreadsheet as Text (Tab-delimited) *.txt file.  &lt;br /&gt;
# Downloaded and extracted the STEM software. &lt;br /&gt;
#*[http://www.cs.cmu.edu/~jernst/stem/ STEM web site].&lt;br /&gt;
#*[http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link for STEM Software]&lt;br /&gt;
#*Launched the STEM program&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select the file KevinM_GCAT_and_Ontario_Final_Normalized_Data_Stem.txt&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Ran into a problem with java timing out, STEM was not working&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;After investigation, it seems the problem is happening because the Gene Ontology site is down&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
== Step 9: GenMAPP &amp;amp; MAPPFinder ==&lt;br /&gt;
&lt;br /&gt;
=== Preparing the Input File for GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Insert a new worksheet and name it dgln3_GenMAPP.&lt;br /&gt;
* Go back to the &amp;quot;ANOVA&amp;quot; worksheet for your strain and Select All and Copy.&lt;br /&gt;
* Go to your new sheet and click on cell A1 and select Paste Special, click on the Values radio button, and click OK.   &lt;br /&gt;
** Delete the columns containing the &amp;quot;ss&amp;quot; calculations, just retaining the individual log fold change data, the average log fold change data, the Fstat and p value.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Now go to your &amp;quot;dgln3_ttest&amp;quot; worksheet.  Copy just the columns containing the Fstats and P values for the individual timepoints and Paste special &amp;gt; Paste values into your GenMAPP worksheet to the right of the previous data.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Select all of the columns containing Fold Changes.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 2 decimal places.  Click OK.&lt;br /&gt;
* Select all of the columns containing T statistics or P values.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 4 decimal places. Click OK.&lt;br /&gt;
* We will now format this file for use with GenMAPP.&lt;br /&gt;
** Currently, the &amp;quot;MasterIndex&amp;quot; column is the first column in the worksheet.  We need the &amp;quot;ID&amp;quot; column to be the first column.  Select Column B and Cut.  Right-click on Cell A1 and select &amp;quot;Insert cut cells&amp;quot;.  This will reverse the position of the columns.&lt;br /&gt;
** Insert a new empty column in Column B.  Type &amp;quot;SystemCode&amp;quot; in the first cell and &amp;quot;D&amp;quot; in the second cell of this column.  Use our trick to fill this entire column with &amp;quot;D&amp;quot;.&lt;br /&gt;
** Make sure to save this work as your .xlsx file.  Now save this worksheet as a tab-delimited text file for use with GenMAPP in the next section.&lt;br /&gt;
&lt;br /&gt;
=== Running GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
Each time you launch GenMAPP, you need to make sure that the correct Gene Database (.gdb) is loaded.&lt;br /&gt;
* Look in the lower left-hand corner of the window to see which Gene Database has been selected.&lt;br /&gt;
* If you need to change the Gene Database, select Data &amp;gt; Choose Gene Database.  Navigate to the directory C:\GenMAPP 2 Data\Gene Databases and choose the correct one for your species.&lt;br /&gt;
* For the exercise today, if the yeast Gene Database is not present on your computer, you will need to download it. [https://lionshare.lmu.edu/Users/kdahlqui/BIOL478/Sc-Std_20060526.zip Click this link to download the yeast Gene Database.]&lt;br /&gt;
* Unzip the file and save it, Sc-Std_20060526.gdb, to the folder C:\GenMAPP 2 Data\Gene Databases.&lt;br /&gt;
&lt;br /&gt;
=== GenMAPP Expression Dataset Manager Procedure ===&lt;br /&gt;
&lt;br /&gt;
* Launch the GenMAPP Program.  Check to make sure the correct Gene Database is loaded.&lt;br /&gt;
* Select the Data menu from the main Drafting Board window and choose Expression Dataset Manager from the drop-down list. The Expression Dataset Manager window will open.&lt;br /&gt;
* Select New Dataset from the Expression Datasets menu. Select the tab-delimited text file that you formatted for GenMAPP (.txt) in the procedure above from the file dialog box that appears.&lt;br /&gt;
* The Data Type Specification window will appear.  GenMAPP is expecting that you are providing numerical data.  If any of your columns has text (character) data, check the box next to the field (column) name.&lt;br /&gt;
** The column &amp;#039;&amp;#039;StandardName&amp;#039;&amp;#039; has text data in it, but none of the rest do.&lt;br /&gt;
* Allow the Expression Dataset Manager to convert your data.&lt;br /&gt;
** This may take a few minutes depending on the size of the dataset and the computer’s memory and processor speed. When the process is complete, the converted dataset will be active in the Expression Dataset Manager window and the file will be saved in the same folder the raw data file was in, named the same except with a .gex extension; for example, MyExperiment.gex.&lt;br /&gt;
** A message may appear saying that the Expression Dataset Manager could not convert one or more lines of data. Lines that generate an error during the conversion of a raw data file are not added to the Expression Dataset. Instead, an exception file is created. The exception file is given the same name as your raw data file with .EX before the extension (e.g., MyExperiment.EX.txt). The exception file will contain all of your raw data, with the addition of a column named ~Error~. This column contains either error messages or, if the program finds no errors, a single space character.&lt;br /&gt;
*** &amp;#039;&amp;#039;&amp;#039;Record the number of errors in your lab notebook.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
* Customize the new Expression Dataset by creating new Color Sets which contain the instructions to GenMAPP for displaying data on MAPPs.&lt;br /&gt;
** Color Sets contain the instructions to GenMAPP for displaying data from an Expression Dataset on MAPPs. Create a Color Set by filling in the following different fields in the Color Set area of the Expression Dataset Manager:  a name for the Color Set, the gene value, and the criteria that determine how a gene object is colored on the MAPP. Enter a name in the Color Set Name field that is 20 characters or fewer.  You will have one Color Set per strain per time point.&lt;br /&gt;
** The Gene Value is the data displayed next to the gene box on a MAPP. Select the column of data to be used as the Gene Value from the drop down list or select [none].  We will use &amp;quot;Avg_LogFC_&amp;quot; for the the appropriate time point.&lt;br /&gt;
** Activate the Criteria Builder by clicking the New button.&lt;br /&gt;
** Enter a name for the criterion in the Label in Legend field.&lt;br /&gt;
** Choose a color for the criterion by left-clicking on the Color box. Choose a color from the Color window that appears and click OK.&lt;br /&gt;
** State the criterion for color-coding a gene in the Criterion field.&lt;br /&gt;
*** A criterion is stated with relationships such as &amp;quot;this column greater than this value&amp;quot; or &amp;quot;that column less than or equal to that value&amp;quot;. Individual relationships can be combined using as many ANDs and ORs as needed. A typical relationship is&lt;br /&gt;
 [ColumnName] RelationalOperator Value&lt;br /&gt;
with the column name always enclosed in brackets and character values enclosed in single quotes. For example:&lt;br /&gt;
 [Fold Change] &amp;gt;= 2&lt;br /&gt;
 [p value] &amp;lt; 0.05&lt;br /&gt;
 [Quality] = &amp;#039;high&amp;#039;&lt;br /&gt;
This is the equivalent to queries that you performed on the command line when working with the PostgreSQL movie database.  GenMAPP is using a graphical user interface (GUI) to help the user format the queries correctly.  The easiest and safest way to create criteria is by choosing items from the Columns and Ops (operators) lists shown in the Criteria Builder. The Columns list contains all of the column headings from your Expression Dataset. To choose a column from the list, click on the column heading. It will appear at the location of the cursor in the Criterion box. The Criteria Builder surrounds the column names with brackets.&lt;br /&gt;
&lt;br /&gt;
The Ops (operators) list contains the relational operators that may be used in the criteria: equals ( = )  greater than ( &amp;gt; ), less than ( &amp;lt; ), greater than or equal to &lt;br /&gt;
( &amp;gt;= ), less than or equal to ( &amp;lt;= ), is not equal to ( &amp;lt;&amp;gt; ). To choose an operator from the list, click on the symbol. It will appear at the location of the insertion bar (cursor) in the Criterion box. The Criteria Builder automatically surrounds the operators with spaces.&lt;br /&gt;
The Ops list also contains the conjunctions AND and OR, which may be used to make compound criteria. For example:&lt;br /&gt;
 [Fold Change] &amp;gt; 1.2 AND [p value] &amp;lt;= 0.05&lt;br /&gt;
Parentheses control the order of evaluation. Anything in parentheses is evaluated first. Parentheses may be nested. For example:&lt;br /&gt;
 [Control Average] = 100 AND ([Exp1 Average] &amp;gt; 100 OR [Exp2 Average] &amp;gt; 100)&lt;br /&gt;
Column names may be used anywhere a value can, for example: &lt;br /&gt;
 [Control Average] &amp;lt; [Experiment Average]&lt;br /&gt;
&lt;br /&gt;
* After completing a new criterion, add the criterion entry (label, criterion, and color) to the Criteria List by clicking the Add button.&lt;br /&gt;
** For the yeast dataset, you will create two criterion for each Color Set.  &amp;quot;Increased&amp;quot; will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;gt; 0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05 and &amp;quot;Decreased will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;lt; -0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05.  Make sure that the increased and decreased average log fold change values match the timepoint of the Color Set.&lt;br /&gt;
** You may continue to add criteria to the Color Set by using the previous steps.&lt;br /&gt;
*** The buttons to the right of the list represent actions that can be performed on individual criteria. To modify a criterion label, color, or the criterion itself, first select the criterion in the list by left-clicking on it, and then click the Edit button. This puts the selected criterion into the Criteria Builder to be modified. Click the Save button to save changes to the modified criterion; click the Add button to add it  to the list as a separate criterion. To remove a criterion from the list, left-click on the criterion to select it, and then click on the Delete button. The order of Criteria in the list has significance to GenMAPP. When applying an Expression Dataset and Color Set to a MAPP, GenMAPP examines the expression data for a particular gene object and applies the color for the first criterion in the list that is true. Therefore, it is imperative that when criteria overlap the user put the most important or least inclusive criteria in the list first. To change the order of the criteria in the list, left-click on the criterion to select it and then click the Move Up or Move Down buttons. No criteria met and Not found are always the last two positions in the list.&lt;br /&gt;
* You will also create two ColorSets to view the ANOVA p values for both strains, with criteria for viewing the unadjusted, Bonferroni-corrected, and B&amp;amp;H corrected p values.&lt;br /&gt;
* Save the entire Expression Dataset by selecting Save from the Expression Dataset menu. Changes made to a Color Set are not saved until you do this.&lt;br /&gt;
* Exit the Expression Dataset Manager to view the Color Sets on a MAPP. Choose Exit from the Expression Dataset menu or click the close box in the upper right hand corner of the window.&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;Upload your .gex file to Lionshare and share it with Dr. Dahlquist.&amp;#039;&amp;#039;&amp;#039;  E-mail the link to the file to Dr. Dahlquist.&lt;br /&gt;
* Dr. Dahlquist will provide a set of MAPPs with which to view your Expression Dataset. &lt;br /&gt;
** Links to a zipped archive of MAPPs and an Expression Dataset have been e-mailed to your lion e-mail accounts.&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T20:32:36Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: /* Step 7-8: Clustering and GO Term Enrichment with stem */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;br /&gt;
&lt;br /&gt;
=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
#In AM1, made title dgln3_Bonferoni_Pvalue_t15&lt;br /&gt;
#* Created column heading similar for t30, t60, t90, and t120&lt;br /&gt;
#*In AM2, inputted the formula&lt;br /&gt;
 =AH2*6189&lt;br /&gt;
&lt;br /&gt;
Did this for 30,60, 90 and 120 as well&lt;br /&gt;
&lt;br /&gt;
#*Copied and pasted these throughout the columns &lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
#Created a new sheet called dgln3_ttest_B-H&lt;br /&gt;
#*Copied and pasted Master index, ID, and Standard Name from the master sheet&lt;br /&gt;
#Copied and did a special values paste for all timepoints of the unadjusted Pvalues into columns D-H&lt;br /&gt;
#In the following steps, I will insert 3 coulmns in between each unadjusted Pvalue timepoint. Therfore, t30, t60, t90, and t120 will eventually be placed in columns H, L, P, and T respectively&lt;br /&gt;
#Selected columns A_D and sorted by ascending numbers in  D&lt;br /&gt;
#Named Column E &amp;quot;Rank&amp;quot;&lt;br /&gt;
#*From E2 down, numbered the cells 1-6190&lt;br /&gt;
#Named the next column Dgln3_ttest_B-H_t15 and inputted the following formula:&lt;br /&gt;
 =(D2*6189)/E2&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
#Named column G dgln3_B-H_Pval_t15 and inputted the formula:&lt;br /&gt;
 =IF(F2&amp;lt;1,1,F2)&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
#How many genes have a Pvalue&amp;lt;0.05 at each timepoint?&lt;br /&gt;
#* 15: 1027 (16.59%)&lt;br /&gt;
#* 30: 1622 (26.21%)&lt;br /&gt;
#* 60: 628 (10.15%)&lt;br /&gt;
#* 90: 558 (9.11%)&lt;br /&gt;
#* 120: 403 (6.51%)&lt;br /&gt;
#Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&lt;br /&gt;
#* LogFC &amp;gt; 0.25&lt;br /&gt;
#** 15: 559 (9.03%)&lt;br /&gt;
#** 30: 897 (14.49%)&lt;br /&gt;
#** 60: 319 (5.15%)&lt;br /&gt;
#** 90: 265 (4.28%)&lt;br /&gt;
#** 120: 190 (3.07%)&lt;br /&gt;
#* LogFC &amp;lt; -0.25&lt;br /&gt;
#** 15: 458 (7.4%)&lt;br /&gt;
#** 30: 711 (11.49%)&lt;br /&gt;
#** 60: 304 (4.91%)&lt;br /&gt;
#** 90: 289 (4.67%)&lt;br /&gt;
#** 120: 207 (3.34%)&lt;br /&gt;
#* How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 5 (0.08%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 1 (0.016%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
Here is link to download my excel file including all data including ANOVA and ttest [https://lionshare.lmu.edu/Users/kmcgee3/KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx ]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Here is the Link to download my powerpoint slide including all pvalue data for gln3 [https://lionshare.lmu.edu/Users/kmcgee3/Sanity%20Check%20dGLN3%20Kevin%20McGee.ppt Sanity Check dGLN3 Kevin McGee]&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, you will need to navigate to the folder containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose your folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input the name of the Excel file (&amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;) to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot;, and the two strains that will be compared as the variables &amp;quot;strain1&amp;quot; and &amp;quot;strain2&amp;quot;.&lt;br /&gt;
*** Note that we saved our Excel file above as &amp;lt;code&amp;gt;*.xlsx&amp;lt;/code&amp;gt;, not &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;.  We may have to go back and &amp;quot;Save as...&amp;quot; &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;, in order for the MATLAB script to work.&lt;br /&gt;
*** Also note that this script will not work for any comparison involving dSWI4 because it has been hard-coded to expect 5 timepoints instead of 4.&lt;br /&gt;
&lt;br /&gt;
 %% User must input filename, sheetname, and strains for comparison&lt;br /&gt;
 filename = &amp;#039;GCAT_and_Ontario_Final_Normalized_Data.xls&amp;#039;; % Name of input file&lt;br /&gt;
 sheetname  = &amp;#039;Master_Sheet&amp;#039;; % Name of sheet in input file containing data to analyze&lt;br /&gt;
 % % If one of the two strains you are working on is the wildtype, keep that&lt;br /&gt;
 % % wildtype as strain 1.&lt;br /&gt;
 strain1    = &amp;#039;wt&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
 % % Select strain 2 to be one of the other strains you would like to&lt;br /&gt;
 % % compare with the first strain.&lt;br /&gt;
 strain2    = &amp;#039;dZAP1&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
 disp(&amp;#039;Do you want to view plots for each gene with an unadjusted p-value &amp;lt; 0.05?&amp;#039;)&lt;br /&gt;
 graph = input(&amp;#039;If yes, enter &amp;quot;1&amp;quot;. If no, enter &amp;quot;0&amp;quot;. &amp;#039;);&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
#* Inserted a new worksheet into your Excel workbook, and named it &amp;quot;dgln3_stem&amp;quot;.&lt;br /&gt;
#* Selected all of the data from &amp;quot;dgln3_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into dgln3_stem worksheet.&lt;br /&gt;
#**Renamed Master List this column to &amp;quot;SPOT&amp;quot; and ID to &amp;quot;Gene Symbol&amp;quot;.  Deleted &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filtered the data on the B-H corrected p value to be &amp;gt; 0.05 &lt;br /&gt;
#*** Once the data had been filtered, selected all of the rows and deleted the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undid the filter. &lt;br /&gt;
#** Deleted all of the data columns except for the Average Log Fold change columns for each timepoint.&lt;br /&gt;
#** Renamed the data columns with just the time and units&lt;br /&gt;
#***15m&lt;br /&gt;
#***30m&lt;br /&gt;
#***60m&lt;br /&gt;
#***90m&lt;br /&gt;
#***120m&lt;br /&gt;
#** Saved. Used Save As to save this spreadsheet as Text (Tab-delimited) *.txt file.  &lt;br /&gt;
# Downloaded and extracted the STEM software. &lt;br /&gt;
#*[http://www.cs.cmu.edu/~jernst/stem/ STEM web site].&lt;br /&gt;
#*[http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link for STEM Software]&lt;br /&gt;
#*Launched the STEM program&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select the file KevinM_GCAT_and_Ontario_Final_Normalized_Data_Stem.txt&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Ran into a problem with java timing out, STEM was not working&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;After investigation, it seems the problem is happening because the Gene Ontology site is down&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
== Step 9: GenMAPP &amp;amp; MAPPFinder ==&lt;br /&gt;
&lt;br /&gt;
=== Preparing the Input File for GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
* Insert a new worksheet and name it STRAIN_GenMAPP.&lt;br /&gt;
* Go back to the &amp;quot;ANOVA&amp;quot; worksheet for your strain and Select All and Copy.&lt;br /&gt;
* Go to your new sheet and click on cell A1 and select Paste Special, click on the Values radio button, and click OK.   &lt;br /&gt;
** Delete the columns containing the &amp;quot;ss&amp;quot; calculations, just retaining the individual log fold change data, the average log fold change data, the Fstat and p value.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Now go to your &amp;quot;_ttest&amp;quot; worksheet.  Copy just the columns containing the Fstats and P values for the individual timepoints and Paste special &amp;gt; Paste values into your GenMAPP worksheet to the right of the previous data.  For the Bonferroni and B&amp;amp;H p values, just keep one column where we replaced all values &amp;gt; 1 with 1.&lt;br /&gt;
* Select all of the columns containing Fold Changes.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 2 decimal places.  Click OK.&lt;br /&gt;
* Select all of the columns containing T statistics or P values.  Select the menu item Format &amp;gt; Cells.  Under the number tab, select 4 decimal places. Click OK.&lt;br /&gt;
* We will now format this file for use with GenMAPP.&lt;br /&gt;
** Currently, the &amp;quot;MasterIndex&amp;quot; column is the first column in the worksheet.  We need the &amp;quot;ID&amp;quot; column to be the first column.  Select Column B and Cut.  Right-click on Cell A1 and select &amp;quot;Insert cut cells&amp;quot;.  This will reverse the position of the columns.&lt;br /&gt;
** Insert a new empty column in Column B.  Type &amp;quot;SystemCode&amp;quot; in the first cell and &amp;quot;D&amp;quot; in the second cell of this column.  Use our trick to fill this entire column with &amp;quot;D&amp;quot;.&lt;br /&gt;
** Make sure to save this work as your .xlsx file.  Now save this worksheet as a tab-delimited text file for use with GenMAPP in the next section.&lt;br /&gt;
&lt;br /&gt;
=== Running GenMAPP ===&lt;br /&gt;
&lt;br /&gt;
Each time you launch GenMAPP, you need to make sure that the correct Gene Database (.gdb) is loaded.&lt;br /&gt;
* Look in the lower left-hand corner of the window to see which Gene Database has been selected.&lt;br /&gt;
* If you need to change the Gene Database, select Data &amp;gt; Choose Gene Database.  Navigate to the directory C:\GenMAPP 2 Data\Gene Databases and choose the correct one for your species.&lt;br /&gt;
* For the exercise today, if the yeast Gene Database is not present on your computer, you will need to download it. [https://lionshare.lmu.edu/Users/kdahlqui/BIOL478/Sc-Std_20060526.zip Click this link to download the yeast Gene Database.]&lt;br /&gt;
* Unzip the file and save it, Sc-Std_20060526.gdb, to the folder C:\GenMAPP 2 Data\Gene Databases.&lt;br /&gt;
&lt;br /&gt;
=== GenMAPP Expression Dataset Manager Procedure ===&lt;br /&gt;
&lt;br /&gt;
* Launch the GenMAPP Program.  Check to make sure the correct Gene Database is loaded.&lt;br /&gt;
* Select the Data menu from the main Drafting Board window and choose Expression Dataset Manager from the drop-down list. The Expression Dataset Manager window will open.&lt;br /&gt;
* Select New Dataset from the Expression Datasets menu. Select the tab-delimited text file that you formatted for GenMAPP (.txt) in the procedure above from the file dialog box that appears.&lt;br /&gt;
* The Data Type Specification window will appear.  GenMAPP is expecting that you are providing numerical data.  If any of your columns has text (character) data, check the box next to the field (column) name.&lt;br /&gt;
** The column &amp;#039;&amp;#039;StandardName&amp;#039;&amp;#039; has text data in it, but none of the rest do.&lt;br /&gt;
* Allow the Expression Dataset Manager to convert your data.&lt;br /&gt;
** This may take a few minutes depending on the size of the dataset and the computer’s memory and processor speed. When the process is complete, the converted dataset will be active in the Expression Dataset Manager window and the file will be saved in the same folder the raw data file was in, named the same except with a .gex extension; for example, MyExperiment.gex.&lt;br /&gt;
** A message may appear saying that the Expression Dataset Manager could not convert one or more lines of data. Lines that generate an error during the conversion of a raw data file are not added to the Expression Dataset. Instead, an exception file is created. The exception file is given the same name as your raw data file with .EX before the extension (e.g., MyExperiment.EX.txt). The exception file will contain all of your raw data, with the addition of a column named ~Error~. This column contains either error messages or, if the program finds no errors, a single space character.&lt;br /&gt;
*** &amp;#039;&amp;#039;&amp;#039;Record the number of errors in your lab notebook.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
* Customize the new Expression Dataset by creating new Color Sets which contain the instructions to GenMAPP for displaying data on MAPPs.&lt;br /&gt;
** Color Sets contain the instructions to GenMAPP for displaying data from an Expression Dataset on MAPPs. Create a Color Set by filling in the following different fields in the Color Set area of the Expression Dataset Manager:  a name for the Color Set, the gene value, and the criteria that determine how a gene object is colored on the MAPP. Enter a name in the Color Set Name field that is 20 characters or fewer.  You will have one Color Set per strain per time point.&lt;br /&gt;
** The Gene Value is the data displayed next to the gene box on a MAPP. Select the column of data to be used as the Gene Value from the drop down list or select [none].  We will use &amp;quot;Avg_LogFC_&amp;quot; for the the appropriate time point.&lt;br /&gt;
** Activate the Criteria Builder by clicking the New button.&lt;br /&gt;
** Enter a name for the criterion in the Label in Legend field.&lt;br /&gt;
** Choose a color for the criterion by left-clicking on the Color box. Choose a color from the Color window that appears and click OK.&lt;br /&gt;
** State the criterion for color-coding a gene in the Criterion field.&lt;br /&gt;
*** A criterion is stated with relationships such as &amp;quot;this column greater than this value&amp;quot; or &amp;quot;that column less than or equal to that value&amp;quot;. Individual relationships can be combined using as many ANDs and ORs as needed. A typical relationship is&lt;br /&gt;
 [ColumnName] RelationalOperator Value&lt;br /&gt;
with the column name always enclosed in brackets and character values enclosed in single quotes. For example:&lt;br /&gt;
 [Fold Change] &amp;gt;= 2&lt;br /&gt;
 [p value] &amp;lt; 0.05&lt;br /&gt;
 [Quality] = &amp;#039;high&amp;#039;&lt;br /&gt;
This is the equivalent to queries that you performed on the command line when working with the PostgreSQL movie database.  GenMAPP is using a graphical user interface (GUI) to help the user format the queries correctly.  The easiest and safest way to create criteria is by choosing items from the Columns and Ops (operators) lists shown in the Criteria Builder. The Columns list contains all of the column headings from your Expression Dataset. To choose a column from the list, click on the column heading. It will appear at the location of the cursor in the Criterion box. The Criteria Builder surrounds the column names with brackets.&lt;br /&gt;
&lt;br /&gt;
The Ops (operators) list contains the relational operators that may be used in the criteria: equals ( = )  greater than ( &amp;gt; ), less than ( &amp;lt; ), greater than or equal to &lt;br /&gt;
( &amp;gt;= ), less than or equal to ( &amp;lt;= ), is not equal to ( &amp;lt;&amp;gt; ). To choose an operator from the list, click on the symbol. It will appear at the location of the insertion bar (cursor) in the Criterion box. The Criteria Builder automatically surrounds the operators with spaces.&lt;br /&gt;
The Ops list also contains the conjunctions AND and OR, which may be used to make compound criteria. For example:&lt;br /&gt;
 [Fold Change] &amp;gt; 1.2 AND [p value] &amp;lt;= 0.05&lt;br /&gt;
Parentheses control the order of evaluation. Anything in parentheses is evaluated first. Parentheses may be nested. For example:&lt;br /&gt;
 [Control Average] = 100 AND ([Exp1 Average] &amp;gt; 100 OR [Exp2 Average] &amp;gt; 100)&lt;br /&gt;
Column names may be used anywhere a value can, for example: &lt;br /&gt;
 [Control Average] &amp;lt; [Experiment Average]&lt;br /&gt;
&lt;br /&gt;
* After completing a new criterion, add the criterion entry (label, criterion, and color) to the Criteria List by clicking the Add button.&lt;br /&gt;
** For the yeast dataset, you will create two criterion for each Color Set.  &amp;quot;Increased&amp;quot; will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;gt; 0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05 and &amp;quot;Decreased will be [&amp;lt;strain&amp;gt;_Avg_LogFC_&amp;lt;timepoint&amp;gt;] &amp;lt; -0.25 AND [&amp;lt;strain&amp;gt;Pval_&amp;lt;timepoint&amp;gt;] &amp;lt; 0.05.  Make sure that the increased and decreased average log fold change values match the timepoint of the Color Set.&lt;br /&gt;
** You may continue to add criteria to the Color Set by using the previous steps.&lt;br /&gt;
*** The buttons to the right of the list represent actions that can be performed on individual criteria. To modify a criterion label, color, or the criterion itself, first select the criterion in the list by left-clicking on it, and then click the Edit button. This puts the selected criterion into the Criteria Builder to be modified. Click the Save button to save changes to the modified criterion; click the Add button to add it  to the list as a separate criterion. To remove a criterion from the list, left-click on the criterion to select it, and then click on the Delete button. The order of Criteria in the list has significance to GenMAPP. When applying an Expression Dataset and Color Set to a MAPP, GenMAPP examines the expression data for a particular gene object and applies the color for the first criterion in the list that is true. Therefore, it is imperative that when criteria overlap the user put the most important or least inclusive criteria in the list first. To change the order of the criteria in the list, left-click on the criterion to select it and then click the Move Up or Move Down buttons. No criteria met and Not found are always the last two positions in the list.&lt;br /&gt;
* You will also create two ColorSets to view the ANOVA p values for both strains, with criteria for viewing the unadjusted, Bonferroni-corrected, and B&amp;amp;H corrected p values.&lt;br /&gt;
* Save the entire Expression Dataset by selecting Save from the Expression Dataset menu. Changes made to a Color Set are not saved until you do this.&lt;br /&gt;
* Exit the Expression Dataset Manager to view the Color Sets on a MAPP. Choose Exit from the Expression Dataset menu or click the close box in the upper right hand corner of the window.&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;Upload your .gex file to Lionshare and share it with Dr. Dahlquist.&amp;#039;&amp;#039;&amp;#039;  E-mail the link to the file to Dr. Dahlquist.&lt;br /&gt;
* Dr. Dahlquist will provide a set of MAPPs with which to view your Expression Dataset. &lt;br /&gt;
** Links to a zipped archive of MAPPs and an Expression Dataset have been e-mailed to your lion e-mail accounts.&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T18:26:14Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;br /&gt;
&lt;br /&gt;
=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
#In AM1, made title dgln3_Bonferoni_Pvalue_t15&lt;br /&gt;
#* Created column heading similar for t30, t60, t90, and t120&lt;br /&gt;
#*In AM2, inputted the formula&lt;br /&gt;
 =AH2*6189&lt;br /&gt;
&lt;br /&gt;
Did this for 30,60, 90 and 120 as well&lt;br /&gt;
&lt;br /&gt;
#*Copied and pasted these throughout the columns &lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
#Created a new sheet called dgln3_ttest_B-H&lt;br /&gt;
#*Copied and pasted Master index, ID, and Standard Name from the master sheet&lt;br /&gt;
#Copied and did a special values paste for all timepoints of the unadjusted Pvalues into columns D-H&lt;br /&gt;
#In the following steps, I will insert 3 coulmns in between each unadjusted Pvalue timepoint. Therfore, t30, t60, t90, and t120 will eventually be placed in columns H, L, P, and T respectively&lt;br /&gt;
#Selected columns A_D and sorted by ascending numbers in  D&lt;br /&gt;
#Named Column E &amp;quot;Rank&amp;quot;&lt;br /&gt;
#*From E2 down, numbered the cells 1-6190&lt;br /&gt;
#Named the next column Dgln3_ttest_B-H_t15 and inputted the following formula:&lt;br /&gt;
 =(D2*6189)/E2&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
#Named column G dgln3_B-H_Pval_t15 and inputted the formula:&lt;br /&gt;
 =IF(F2&amp;lt;1,1,F2)&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
#How many genes have a Pvalue&amp;lt;0.05 at each timepoint?&lt;br /&gt;
#* 15: 1027 (16.59%)&lt;br /&gt;
#* 30: 1622 (26.21%)&lt;br /&gt;
#* 60: 628 (10.15%)&lt;br /&gt;
#* 90: 558 (9.11%)&lt;br /&gt;
#* 120: 403 (6.51%)&lt;br /&gt;
#Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&lt;br /&gt;
#* LogFC &amp;gt; 0.25&lt;br /&gt;
#** 15: 559 (9.03%)&lt;br /&gt;
#** 30: 897 (14.49%)&lt;br /&gt;
#** 60: 319 (5.15%)&lt;br /&gt;
#** 90: 265 (4.28%)&lt;br /&gt;
#** 120: 190 (3.07%)&lt;br /&gt;
#* LogFC &amp;lt; -0.25&lt;br /&gt;
#** 15: 458 (7.4%)&lt;br /&gt;
#** 30: 711 (11.49%)&lt;br /&gt;
#** 60: 304 (4.91%)&lt;br /&gt;
#** 90: 289 (4.67%)&lt;br /&gt;
#** 120: 207 (3.34%)&lt;br /&gt;
#* How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 5 (0.08%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 1 (0.016%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
Here is link to download my excel file including all data including ANOVA and ttest [https://lionshare.lmu.edu/Users/kmcgee3/KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx KevinM_GCAT_and_Ontario_Final_Normalized_Data.xlsx ]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Here is the Link to download my powerpoint slide including all pvalue data for gln3 [https://lionshare.lmu.edu/Users/kmcgee3/Sanity%20Check%20dGLN3%20Kevin%20McGee.ppt Sanity Check dGLN3 Kevin McGee]&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, you will need to navigate to the folder containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose your folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input the name of the Excel file (&amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;) to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot;, and the two strains that will be compared as the variables &amp;quot;strain1&amp;quot; and &amp;quot;strain2&amp;quot;.&lt;br /&gt;
*** Note that we saved our Excel file above as &amp;lt;code&amp;gt;*.xlsx&amp;lt;/code&amp;gt;, not &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;.  We may have to go back and &amp;quot;Save as...&amp;quot; &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;, in order for the MATLAB script to work.&lt;br /&gt;
*** Also note that this script will not work for any comparison involving dSWI4 because it has been hard-coded to expect 5 timepoints instead of 4.&lt;br /&gt;
&lt;br /&gt;
 %% User must input filename, sheetname, and strains for comparison&lt;br /&gt;
 filename = &amp;#039;GCAT_and_Ontario_Final_Normalized_Data.xls&amp;#039;; % Name of input file&lt;br /&gt;
 sheetname  = &amp;#039;Master_Sheet&amp;#039;; % Name of sheet in input file containing data to analyze&lt;br /&gt;
 % % If one of the two strains you are working on is the wildtype, keep that&lt;br /&gt;
 % % wildtype as strain 1.&lt;br /&gt;
 strain1    = &amp;#039;wt&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
 % % Select strain 2 to be one of the other strains you would like to&lt;br /&gt;
 % % compare with the first strain.&lt;br /&gt;
 strain2    = &amp;#039;dZAP1&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
 disp(&amp;#039;Do you want to view plots for each gene with an unadjusted p-value &amp;lt; 0.05?&amp;#039;)&lt;br /&gt;
 graph = input(&amp;#039;If yes, enter &amp;quot;1&amp;quot;. If no, enter &amp;quot;0&amp;quot;. &amp;#039;);&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Prepare your microarray data file for loading into STEM.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
#* Insert a new worksheet into your Excel workbook, and name it &amp;quot;(STRAIN)_stem&amp;quot;.&lt;br /&gt;
#* Select all of the data from your &amp;quot;(STRAIN)_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into your &amp;quot;(STRAIN)_stem&amp;quot; worksheet.&lt;br /&gt;
#** Your leftmost column should have the column header &amp;quot;MasterIndex&amp;quot;.  Rename this column to &amp;quot;SPOT&amp;quot;.  Column B should be named &amp;quot;ID&amp;quot;.  Rename this column to &amp;quot;Gene Symbol&amp;quot;.  Delete the column named &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filter the data on the B-H corrected p value to be &amp;gt; 0.05 (that&amp;#039;s &amp;#039;&amp;#039;&amp;#039;greater than&amp;#039;&amp;#039;&amp;#039; in this case).&lt;br /&gt;
#*** Once the data has been filtered, select all of the rows (except for your header row) and delete the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undo the filter.  This ensures that we will cluster only the genes with a &amp;quot;significant&amp;quot; change in expression and not the noise.&lt;br /&gt;
#** Delete all of the data columns &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;EXCEPT&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; for the Average Log Fold change columns for each timepoint (for example, wt_AvgLogFC_t15, etc.).&lt;br /&gt;
#** Rename the data columns with just the time and units (for example, 15m, 30m, etc.).&lt;br /&gt;
#** Save your work.  Then use &amp;#039;&amp;#039;Save As&amp;#039;&amp;#039; to save this spreadsheet as Text (Tab-delimited) (*.txt).  Click OK to the warnings and close your file.&lt;br /&gt;
#*** Note that you should turn on the file extensions if you have not already done so.&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Now download and extract the STEM software.&amp;#039;&amp;#039;&amp;#039;  [http://www.cs.cmu.edu/~jernst/stem/ Click here to go to the STEM web site].&lt;br /&gt;
#* Click on the [http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link], register, and download the &amp;lt;code&amp;gt;stem.zip&amp;lt;/code&amp;gt; file to your Desktop.&lt;br /&gt;
#* Unzip the file.  In Seaver 120, you can right click on the file icon and select the menu item &amp;#039;&amp;#039;7-zip &amp;gt; Extract Here&amp;#039;&amp;#039;.&lt;br /&gt;
#* This will create a folder called &amp;lt;code&amp;gt;stem&amp;lt;/code&amp;gt;.  Inside the folder, double-click on the &amp;lt;code&amp;gt;stem.cmd&amp;lt;/code&amp;gt; or the &amp;lt;code&amp;gt;stem.jar&amp;lt;/code&amp;gt; to launch the STEM program.&lt;br /&gt;
&amp;lt;!--#** In Seaver 120, we encountered an issue where the program would not launch on the Windows XP machines due to a lack of memory. (Even though the computers have been upgraded to Windows 7, do this to launch the program.)  To get around this problem, launch STEM from the command line.&lt;br /&gt;
#*** Go to the start menu and click on &amp;#039;&amp;#039;Programs &amp;gt; Accessories &amp;gt; Command Prompt&amp;#039;&amp;#039;.&lt;br /&gt;
#*** You will need to navigate to the directory (folder) in which the STEM program resides.  If you followed the instructions above and extracted the stem folder to the Desktop, type the following:  &amp;lt;code&amp;gt;cd Desktop\stem&amp;lt;/code&amp;gt;  and press &amp;quot;Enter&amp;quot;.&lt;br /&gt;
#*** To launch the program then type:  &amp;lt;code&amp;gt;java -mx512M -jar stem.jar -d defaults.txt&amp;lt;/code&amp;gt;  and press &amp;quot;Enter&amp;quot;.  This will launch the program with less memory allocated to it.--&amp;gt;&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select your file.&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Viewing and Saving STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## A new window will open called &amp;quot;All STEM Profiles (1)&amp;quot;.  Each box corresponds to a model expression profile.  Colored profiles have a statistically significant number of genes assigned; they are arranged in order from most to least significant p value.  Profiles with the same color belong to the same cluster of profiles.  The number in each box is simply an ID number for the profile.&lt;br /&gt;
##* Click on the button that says &amp;quot;Interface Options...&amp;quot;.  At the bottom of the Interface Options window that appears below where it says &amp;quot;X-axis scale should be:&amp;quot;, click on the radio button that says &amp;quot;Based on real time&amp;quot;.  Then close the Interface Options window.&lt;br /&gt;
##*Take a screenshot of this window (on a PC, simultaneously press the &amp;lt;code&amp;gt;Alt&amp;lt;/code&amp;gt; and &amp;lt;code&amp;gt;PrintScreen&amp;lt;/code&amp;gt; buttons to save the view in the active window to the clipboard) and paste it into a PowerPoint presentation to save your figures.&lt;br /&gt;
## Click on each of the SIGNIFICANT profiles (the colored ones) to open a window showing a more detailed plot containing all of the genes in that profile.&lt;br /&gt;
##* Take a screenshot of each of the individual profile windows and save the images in your PowerPoint presentation.&lt;br /&gt;
##* At the bottom of each profile window, there are two yellow buttons &amp;quot;Profile Gene Table&amp;quot; and &amp;quot;Profile GO Table&amp;quot;.  For each of the profiles, click on the &amp;quot;Profile Gene Table&amp;quot; button to see the list of genes belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_genelist.txt&amp;quot;, where you replace the number symbol with the actual profile number.&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist.  (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
##* For each of the significant profiles, click on the &amp;quot;Profile GO Table&amp;quot; to see the list of Gene Ontology terms belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_GOlist.txt&amp;quot;, where you use &amp;quot;wt&amp;quot;, &amp;quot;dGLN3&amp;quot;, etc. to indicate the dataset and where you replace the number symbol with the actual profile number.  At this point you have saved all of the primary data from the STEM software and it&amp;#039;s time to interpret the results!&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist. (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Analyzing and Interpreting STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## Select &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;one&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; of the profiles you saved in the previous step for further intepretation of the data.  I suggest that you choose one that has a pattern of up- or down-regulated genes at the early (first three) timepoints.  You and your partner will choose the &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;same&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; profile so that you can compare your results between the two strains.  Answer the following:&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Why did you select this profile?  In other words, why was it interesting to you?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes were expected to belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;What is the p value for the enrichment of genes in this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Bear in mind that we just finished computing p values to determine whether each individual gene had a significant change in gene expression at each time point.  This p value determines whether the number of genes that show this particular expression profile across the time points is significantly more than expected.&lt;br /&gt;
##* Open the GO list file you saved for this profile in Excel.  This list shows all of the Gene Ontology terms that are associated with genes that fit this profile.  Select the third row and then choose from the menu Data &amp;gt; Filter &amp;gt; Autofilter.  Filter on the &amp;quot;p-value&amp;quot; column to show only GO terms that have a p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile at p &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  The GO list also has a column called &amp;quot;Corrected p-value&amp;quot;.  This correction is needed because the software has performed thousands of significance tests.  Filter on the &amp;quot;Corrected p-value&amp;quot; column to show only GO terms that have a corrected p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile with a corrected p value &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* Select 10 Gene Ontology terms from your filtered list (either p &amp;lt; 0.05 or corrected p &amp;lt; 0.05).  &lt;br /&gt;
##** Since you and your partner are going to compare the results from each strain for the same cluster, you can either:&lt;br /&gt;
##*** Choose the same 10 terms that are in common between strains.&lt;br /&gt;
##*** Choose 10 terms that are different between the strains (5 or so from each).&lt;br /&gt;
##*** Choose some that are the same and some that are different.&lt;br /&gt;
##**&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Look up the definitions for each of the terms at [http://geneontology.org http://geneontology.org].  For your final lab report, you will discuss the biological interpretation of these GO terms.  In other words, why does the cell react to cold shock by changing the expression of genes associated with these GO terms?  Also, what does this have to do with HAP4 being deleted?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##** To easily look up the definitions, go to [http://geneontology.org http://geneontology.org].&lt;br /&gt;
##** Copy and paste the GO ID (e.g. GO:0044848) into the search field at the upper left of the page called &amp;quot;Search GO Data&amp;quot;.&lt;br /&gt;
##** In the [http://amigo.geneontology.org/amigo/medial_search?q=GO%3A0044848 results] page, click on the button that says &amp;quot;Link to detailed information about &amp;lt;term&amp;gt;, in this case &amp;quot;biological phase&amp;quot;&amp;quot;. &lt;br /&gt;
##** The definition will be on the next results page, e.g. [http://amigo.geneontology.org/amigo/term/GO:0044848 here].&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T18:13:54Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
#In AM1, made title dgln3_Bonferoni_Pvalue_t15&lt;br /&gt;
#* Created column heading similar for t30, t60, t90, and t120&lt;br /&gt;
#*In AM2, inputted the formula&lt;br /&gt;
 =AH2*6189&lt;br /&gt;
&lt;br /&gt;
Did this for 30,60, 90 and 120 as well&lt;br /&gt;
&lt;br /&gt;
#*Copied and pasted these throughout the columns &lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
#Created a new sheet called dgln3_ttest_B-H&lt;br /&gt;
#*Copied and pasted Master index, ID, and Standard Name from the master sheet&lt;br /&gt;
#Copied and did a special values paste for all timepoints of the unadjusted Pvalues into columns D-H&lt;br /&gt;
#In the following steps, I will insert 3 coulmns in between each unadjusted Pvalue timepoint. Therfore, t30, t60, t90, and t120 will eventually be placed in columns H, L, P, and T respectively&lt;br /&gt;
#Selected columns A_D and sorted by ascending numbers in  D&lt;br /&gt;
#Named Column E &amp;quot;Rank&amp;quot;&lt;br /&gt;
#*From E2 down, numbered the cells 1-6190&lt;br /&gt;
#Named the next column Dgln3_ttest_B-H_t15 and inputted the following formula:&lt;br /&gt;
 =(D2*6189)/E2&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
#Named column G dgln3_B-H_Pval_t15 and inputted the formula:&lt;br /&gt;
 =IF(F2&amp;lt;1,1,F2)&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
#How many genes have a Pvalue&amp;lt;0.05 at each timepoint?&lt;br /&gt;
#* 15: 1027 (16.59%)&lt;br /&gt;
#* 30: 1622 (26.21%)&lt;br /&gt;
#* 60: 628 (10.15%)&lt;br /&gt;
#* 90: 558 (9.11%)&lt;br /&gt;
#* 120: 403 (6.51%)&lt;br /&gt;
#Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&lt;br /&gt;
#* LogFC &amp;gt; 0.25&lt;br /&gt;
#** 15: 559 (9.03%)&lt;br /&gt;
#** 30: 897 (14.49%)&lt;br /&gt;
#** 60: 319 (5.15%)&lt;br /&gt;
#** 90: 265 (4.28%)&lt;br /&gt;
#** 120: 190 (3.07%)&lt;br /&gt;
#* LogFC &amp;lt; -0.25&lt;br /&gt;
#** 15: 458 (7.4%)&lt;br /&gt;
#** 30: 711 (11.49%)&lt;br /&gt;
#** 60: 304 (4.91%)&lt;br /&gt;
#** 90: 289 (4.67%)&lt;br /&gt;
#** 120: 207 (3.34%)&lt;br /&gt;
#* How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 5 (0.08%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
#** 15: 0 (0%)&lt;br /&gt;
#** 30: 1 (0.016%)&lt;br /&gt;
#** 60: 0 (0%)&lt;br /&gt;
#** 90: 0 (0%)&lt;br /&gt;
#** 120: 0 (0%)&lt;br /&gt;
#* Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, you will need to navigate to the folder containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose your folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input the name of the Excel file (&amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;) to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot;, and the two strains that will be compared as the variables &amp;quot;strain1&amp;quot; and &amp;quot;strain2&amp;quot;.&lt;br /&gt;
*** Note that we saved our Excel file above as &amp;lt;code&amp;gt;*.xlsx&amp;lt;/code&amp;gt;, not &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;.  We may have to go back and &amp;quot;Save as...&amp;quot; &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;, in order for the MATLAB script to work.&lt;br /&gt;
*** Also note that this script will not work for any comparison involving dSWI4 because it has been hard-coded to expect 5 timepoints instead of 4.&lt;br /&gt;
&lt;br /&gt;
 %% User must input filename, sheetname, and strains for comparison&lt;br /&gt;
 filename = &amp;#039;GCAT_and_Ontario_Final_Normalized_Data.xls&amp;#039;; % Name of input file&lt;br /&gt;
 sheetname  = &amp;#039;Master_Sheet&amp;#039;; % Name of sheet in input file containing data to analyze&lt;br /&gt;
 % % If one of the two strains you are working on is the wildtype, keep that&lt;br /&gt;
 % % wildtype as strain 1.&lt;br /&gt;
 strain1    = &amp;#039;wt&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
 % % Select strain 2 to be one of the other strains you would like to&lt;br /&gt;
 % % compare with the first strain.&lt;br /&gt;
 strain2    = &amp;#039;dZAP1&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
 disp(&amp;#039;Do you want to view plots for each gene with an unadjusted p-value &amp;lt; 0.05?&amp;#039;)&lt;br /&gt;
 graph = input(&amp;#039;If yes, enter &amp;quot;1&amp;quot;. If no, enter &amp;quot;0&amp;quot;. &amp;#039;);&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Prepare your microarray data file for loading into STEM.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
#* Insert a new worksheet into your Excel workbook, and name it &amp;quot;(STRAIN)_stem&amp;quot;.&lt;br /&gt;
#* Select all of the data from your &amp;quot;(STRAIN)_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into your &amp;quot;(STRAIN)_stem&amp;quot; worksheet.&lt;br /&gt;
#** Your leftmost column should have the column header &amp;quot;MasterIndex&amp;quot;.  Rename this column to &amp;quot;SPOT&amp;quot;.  Column B should be named &amp;quot;ID&amp;quot;.  Rename this column to &amp;quot;Gene Symbol&amp;quot;.  Delete the column named &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filter the data on the B-H corrected p value to be &amp;gt; 0.05 (that&amp;#039;s &amp;#039;&amp;#039;&amp;#039;greater than&amp;#039;&amp;#039;&amp;#039; in this case).&lt;br /&gt;
#*** Once the data has been filtered, select all of the rows (except for your header row) and delete the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undo the filter.  This ensures that we will cluster only the genes with a &amp;quot;significant&amp;quot; change in expression and not the noise.&lt;br /&gt;
#** Delete all of the data columns &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;EXCEPT&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; for the Average Log Fold change columns for each timepoint (for example, wt_AvgLogFC_t15, etc.).&lt;br /&gt;
#** Rename the data columns with just the time and units (for example, 15m, 30m, etc.).&lt;br /&gt;
#** Save your work.  Then use &amp;#039;&amp;#039;Save As&amp;#039;&amp;#039; to save this spreadsheet as Text (Tab-delimited) (*.txt).  Click OK to the warnings and close your file.&lt;br /&gt;
#*** Note that you should turn on the file extensions if you have not already done so.&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Now download and extract the STEM software.&amp;#039;&amp;#039;&amp;#039;  [http://www.cs.cmu.edu/~jernst/stem/ Click here to go to the STEM web site].&lt;br /&gt;
#* Click on the [http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link], register, and download the &amp;lt;code&amp;gt;stem.zip&amp;lt;/code&amp;gt; file to your Desktop.&lt;br /&gt;
#* Unzip the file.  In Seaver 120, you can right click on the file icon and select the menu item &amp;#039;&amp;#039;7-zip &amp;gt; Extract Here&amp;#039;&amp;#039;.&lt;br /&gt;
#* This will create a folder called &amp;lt;code&amp;gt;stem&amp;lt;/code&amp;gt;.  Inside the folder, double-click on the &amp;lt;code&amp;gt;stem.cmd&amp;lt;/code&amp;gt; or the &amp;lt;code&amp;gt;stem.jar&amp;lt;/code&amp;gt; to launch the STEM program.&lt;br /&gt;
&amp;lt;!--#** In Seaver 120, we encountered an issue where the program would not launch on the Windows XP machines due to a lack of memory. (Even though the computers have been upgraded to Windows 7, do this to launch the program.)  To get around this problem, launch STEM from the command line.&lt;br /&gt;
#*** Go to the start menu and click on &amp;#039;&amp;#039;Programs &amp;gt; Accessories &amp;gt; Command Prompt&amp;#039;&amp;#039;.&lt;br /&gt;
#*** You will need to navigate to the directory (folder) in which the STEM program resides.  If you followed the instructions above and extracted the stem folder to the Desktop, type the following:  &amp;lt;code&amp;gt;cd Desktop\stem&amp;lt;/code&amp;gt;  and press &amp;quot;Enter&amp;quot;.&lt;br /&gt;
#*** To launch the program then type:  &amp;lt;code&amp;gt;java -mx512M -jar stem.jar -d defaults.txt&amp;lt;/code&amp;gt;  and press &amp;quot;Enter&amp;quot;.  This will launch the program with less memory allocated to it.--&amp;gt;&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select your file.&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Viewing and Saving STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## A new window will open called &amp;quot;All STEM Profiles (1)&amp;quot;.  Each box corresponds to a model expression profile.  Colored profiles have a statistically significant number of genes assigned; they are arranged in order from most to least significant p value.  Profiles with the same color belong to the same cluster of profiles.  The number in each box is simply an ID number for the profile.&lt;br /&gt;
##* Click on the button that says &amp;quot;Interface Options...&amp;quot;.  At the bottom of the Interface Options window that appears below where it says &amp;quot;X-axis scale should be:&amp;quot;, click on the radio button that says &amp;quot;Based on real time&amp;quot;.  Then close the Interface Options window.&lt;br /&gt;
##*Take a screenshot of this window (on a PC, simultaneously press the &amp;lt;code&amp;gt;Alt&amp;lt;/code&amp;gt; and &amp;lt;code&amp;gt;PrintScreen&amp;lt;/code&amp;gt; buttons to save the view in the active window to the clipboard) and paste it into a PowerPoint presentation to save your figures.&lt;br /&gt;
## Click on each of the SIGNIFICANT profiles (the colored ones) to open a window showing a more detailed plot containing all of the genes in that profile.&lt;br /&gt;
##* Take a screenshot of each of the individual profile windows and save the images in your PowerPoint presentation.&lt;br /&gt;
##* At the bottom of each profile window, there are two yellow buttons &amp;quot;Profile Gene Table&amp;quot; and &amp;quot;Profile GO Table&amp;quot;.  For each of the profiles, click on the &amp;quot;Profile Gene Table&amp;quot; button to see the list of genes belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_genelist.txt&amp;quot;, where you replace the number symbol with the actual profile number.&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist.  (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
##* For each of the significant profiles, click on the &amp;quot;Profile GO Table&amp;quot; to see the list of Gene Ontology terms belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_GOlist.txt&amp;quot;, where you use &amp;quot;wt&amp;quot;, &amp;quot;dGLN3&amp;quot;, etc. to indicate the dataset and where you replace the number symbol with the actual profile number.  At this point you have saved all of the primary data from the STEM software and it&amp;#039;s time to interpret the results!&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist. (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Analyzing and Interpreting STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## Select &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;one&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; of the profiles you saved in the previous step for further intepretation of the data.  I suggest that you choose one that has a pattern of up- or down-regulated genes at the early (first three) timepoints.  You and your partner will choose the &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;same&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; profile so that you can compare your results between the two strains.  Answer the following:&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Why did you select this profile?  In other words, why was it interesting to you?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes were expected to belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;What is the p value for the enrichment of genes in this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Bear in mind that we just finished computing p values to determine whether each individual gene had a significant change in gene expression at each time point.  This p value determines whether the number of genes that show this particular expression profile across the time points is significantly more than expected.&lt;br /&gt;
##* Open the GO list file you saved for this profile in Excel.  This list shows all of the Gene Ontology terms that are associated with genes that fit this profile.  Select the third row and then choose from the menu Data &amp;gt; Filter &amp;gt; Autofilter.  Filter on the &amp;quot;p-value&amp;quot; column to show only GO terms that have a p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile at p &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  The GO list also has a column called &amp;quot;Corrected p-value&amp;quot;.  This correction is needed because the software has performed thousands of significance tests.  Filter on the &amp;quot;Corrected p-value&amp;quot; column to show only GO terms that have a corrected p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile with a corrected p value &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* Select 10 Gene Ontology terms from your filtered list (either p &amp;lt; 0.05 or corrected p &amp;lt; 0.05).  &lt;br /&gt;
##** Since you and your partner are going to compare the results from each strain for the same cluster, you can either:&lt;br /&gt;
##*** Choose the same 10 terms that are in common between strains.&lt;br /&gt;
##*** Choose 10 terms that are different between the strains (5 or so from each).&lt;br /&gt;
##*** Choose some that are the same and some that are different.&lt;br /&gt;
##**&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Look up the definitions for each of the terms at [http://geneontology.org http://geneontology.org].  For your final lab report, you will discuss the biological interpretation of these GO terms.  In other words, why does the cell react to cold shock by changing the expression of genes associated with these GO terms?  Also, what does this have to do with HAP4 being deleted?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##** To easily look up the definitions, go to [http://geneontology.org http://geneontology.org].&lt;br /&gt;
##** Copy and paste the GO ID (e.g. GO:0044848) into the search field at the upper left of the page called &amp;quot;Search GO Data&amp;quot;.&lt;br /&gt;
##** In the [http://amigo.geneontology.org/amigo/medial_search?q=GO%3A0044848 results] page, click on the button that says &amp;quot;Link to detailed information about &amp;lt;term&amp;gt;, in this case &amp;quot;biological phase&amp;quot;&amp;quot;. &lt;br /&gt;
##** The definition will be on the next results page, e.g. [http://amigo.geneontology.org/amigo/term/GO:0044848 here].&lt;br /&gt;
&lt;br /&gt;
=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T18:01:35Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
#In AM1, made title dgln3_Bonferoni_Pvalue_t15&lt;br /&gt;
#* Created column heading similar for t30, t60, t90, and t120&lt;br /&gt;
#*In AM2, inputted the formula&lt;br /&gt;
 =AH2*6189&lt;br /&gt;
&lt;br /&gt;
Did this for 30,60, 90 and 120 as well&lt;br /&gt;
&lt;br /&gt;
#*Copied and pasted these throughout the columns &lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
#Created a new sheet called dgln3_ttest_B-H&lt;br /&gt;
#*Copied and pasted Master index, ID, and Standard Name from the master sheet&lt;br /&gt;
#Copied and did a special values paste for all timepoints of the unadjusted Pvalues into columns D-H&lt;br /&gt;
#In the following steps, I will insert 3 coulmns in between each unadjusted Pvalue timepoint. Therfore, t30, t60, t90, and t120 will eventually be placed in columns H, L, P, and T respectively&lt;br /&gt;
#Selected columns A_D and sorted by ascending numbers in  D&lt;br /&gt;
#Named Column E &amp;quot;Rank&amp;quot;&lt;br /&gt;
#*From E2 down, numbered the cells 1-6190&lt;br /&gt;
#Named the next column Dgln3_ttest_B-H_t15 and inputted the following formula:&lt;br /&gt;
 =(D2*6189)/E2&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
#Named column G dgln3_B-H_Pval_t15 and inputted the formula:&lt;br /&gt;
 =IF(F2&amp;lt;1,1,F2)&lt;br /&gt;
Copied this throughout the column&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
#How many genes have a Pvalue&amp;lt;0.05 at each timepoint?&lt;br /&gt;
#Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&lt;br /&gt;
#* How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
#* How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
#* Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, you will need to navigate to the folder containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose your folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input the name of the Excel file (&amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;) to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot;, and the two strains that will be compared as the variables &amp;quot;strain1&amp;quot; and &amp;quot;strain2&amp;quot;.&lt;br /&gt;
*** Note that we saved our Excel file above as &amp;lt;code&amp;gt;*.xlsx&amp;lt;/code&amp;gt;, not &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;.  We may have to go back and &amp;quot;Save as...&amp;quot; &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;, in order for the MATLAB script to work.&lt;br /&gt;
*** Also note that this script will not work for any comparison involving dSWI4 because it has been hard-coded to expect 5 timepoints instead of 4.&lt;br /&gt;
&lt;br /&gt;
 %% User must input filename, sheetname, and strains for comparison&lt;br /&gt;
 filename = &amp;#039;GCAT_and_Ontario_Final_Normalized_Data.xls&amp;#039;; % Name of input file&lt;br /&gt;
 sheetname  = &amp;#039;Master_Sheet&amp;#039;; % Name of sheet in input file containing data to analyze&lt;br /&gt;
 % % If one of the two strains you are working on is the wildtype, keep that&lt;br /&gt;
 % % wildtype as strain 1.&lt;br /&gt;
 strain1    = &amp;#039;wt&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
 % % Select strain 2 to be one of the other strains you would like to&lt;br /&gt;
 % % compare with the first strain.&lt;br /&gt;
 strain2    = &amp;#039;dZAP1&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
 disp(&amp;#039;Do you want to view plots for each gene with an unadjusted p-value &amp;lt; 0.05?&amp;#039;)&lt;br /&gt;
 graph = input(&amp;#039;If yes, enter &amp;quot;1&amp;quot;. If no, enter &amp;quot;0&amp;quot;. &amp;#039;);&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Prepare your microarray data file for loading into STEM.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
#* Insert a new worksheet into your Excel workbook, and name it &amp;quot;(STRAIN)_stem&amp;quot;.&lt;br /&gt;
#* Select all of the data from your &amp;quot;(STRAIN)_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into your &amp;quot;(STRAIN)_stem&amp;quot; worksheet.&lt;br /&gt;
#** Your leftmost column should have the column header &amp;quot;MasterIndex&amp;quot;.  Rename this column to &amp;quot;SPOT&amp;quot;.  Column B should be named &amp;quot;ID&amp;quot;.  Rename this column to &amp;quot;Gene Symbol&amp;quot;.  Delete the column named &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filter the data on the B-H corrected p value to be &amp;gt; 0.05 (that&amp;#039;s &amp;#039;&amp;#039;&amp;#039;greater than&amp;#039;&amp;#039;&amp;#039; in this case).&lt;br /&gt;
#*** Once the data has been filtered, select all of the rows (except for your header row) and delete the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undo the filter.  This ensures that we will cluster only the genes with a &amp;quot;significant&amp;quot; change in expression and not the noise.&lt;br /&gt;
#** Delete all of the data columns &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;EXCEPT&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; for the Average Log Fold change columns for each timepoint (for example, wt_AvgLogFC_t15, etc.).&lt;br /&gt;
#** Rename the data columns with just the time and units (for example, 15m, 30m, etc.).&lt;br /&gt;
#** Save your work.  Then use &amp;#039;&amp;#039;Save As&amp;#039;&amp;#039; to save this spreadsheet as Text (Tab-delimited) (*.txt).  Click OK to the warnings and close your file.&lt;br /&gt;
#*** Note that you should turn on the file extensions if you have not already done so.&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Now download and extract the STEM software.&amp;#039;&amp;#039;&amp;#039;  [http://www.cs.cmu.edu/~jernst/stem/ Click here to go to the STEM web site].&lt;br /&gt;
#* Click on the [http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link], register, and download the &amp;lt;code&amp;gt;stem.zip&amp;lt;/code&amp;gt; file to your Desktop.&lt;br /&gt;
#* Unzip the file.  In Seaver 120, you can right click on the file icon and select the menu item &amp;#039;&amp;#039;7-zip &amp;gt; Extract Here&amp;#039;&amp;#039;.&lt;br /&gt;
#* This will create a folder called &amp;lt;code&amp;gt;stem&amp;lt;/code&amp;gt;.  Inside the folder, double-click on the &amp;lt;code&amp;gt;stem.cmd&amp;lt;/code&amp;gt; or the &amp;lt;code&amp;gt;stem.jar&amp;lt;/code&amp;gt; to launch the STEM program.&lt;br /&gt;
&amp;lt;!--#** In Seaver 120, we encountered an issue where the program would not launch on the Windows XP machines due to a lack of memory. (Even though the computers have been upgraded to Windows 7, do this to launch the program.)  To get around this problem, launch STEM from the command line.&lt;br /&gt;
#*** Go to the start menu and click on &amp;#039;&amp;#039;Programs &amp;gt; Accessories &amp;gt; Command Prompt&amp;#039;&amp;#039;.&lt;br /&gt;
#*** You will need to navigate to the directory (folder) in which the STEM program resides.  If you followed the instructions above and extracted the stem folder to the Desktop, type the following:  &amp;lt;code&amp;gt;cd Desktop\stem&amp;lt;/code&amp;gt;  and press &amp;quot;Enter&amp;quot;.&lt;br /&gt;
#*** To launch the program then type:  &amp;lt;code&amp;gt;java -mx512M -jar stem.jar -d defaults.txt&amp;lt;/code&amp;gt;  and press &amp;quot;Enter&amp;quot;.  This will launch the program with less memory allocated to it.--&amp;gt;&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select your file.&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Viewing and Saving STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## A new window will open called &amp;quot;All STEM Profiles (1)&amp;quot;.  Each box corresponds to a model expression profile.  Colored profiles have a statistically significant number of genes assigned; they are arranged in order from most to least significant p value.  Profiles with the same color belong to the same cluster of profiles.  The number in each box is simply an ID number for the profile.&lt;br /&gt;
##* Click on the button that says &amp;quot;Interface Options...&amp;quot;.  At the bottom of the Interface Options window that appears below where it says &amp;quot;X-axis scale should be:&amp;quot;, click on the radio button that says &amp;quot;Based on real time&amp;quot;.  Then close the Interface Options window.&lt;br /&gt;
##*Take a screenshot of this window (on a PC, simultaneously press the &amp;lt;code&amp;gt;Alt&amp;lt;/code&amp;gt; and &amp;lt;code&amp;gt;PrintScreen&amp;lt;/code&amp;gt; buttons to save the view in the active window to the clipboard) and paste it into a PowerPoint presentation to save your figures.&lt;br /&gt;
## Click on each of the SIGNIFICANT profiles (the colored ones) to open a window showing a more detailed plot containing all of the genes in that profile.&lt;br /&gt;
##* Take a screenshot of each of the individual profile windows and save the images in your PowerPoint presentation.&lt;br /&gt;
##* At the bottom of each profile window, there are two yellow buttons &amp;quot;Profile Gene Table&amp;quot; and &amp;quot;Profile GO Table&amp;quot;.  For each of the profiles, click on the &amp;quot;Profile Gene Table&amp;quot; button to see the list of genes belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_genelist.txt&amp;quot;, where you replace the number symbol with the actual profile number.&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist.  (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
##* For each of the significant profiles, click on the &amp;quot;Profile GO Table&amp;quot; to see the list of Gene Ontology terms belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_GOlist.txt&amp;quot;, where you use &amp;quot;wt&amp;quot;, &amp;quot;dGLN3&amp;quot;, etc. to indicate the dataset and where you replace the number symbol with the actual profile number.  At this point you have saved all of the primary data from the STEM software and it&amp;#039;s time to interpret the results!&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist. (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Analyzing and Interpreting STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## Select &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;one&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; of the profiles you saved in the previous step for further intepretation of the data.  I suggest that you choose one that has a pattern of up- or down-regulated genes at the early (first three) timepoints.  You and your partner will choose the &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;same&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; profile so that you can compare your results between the two strains.  Answer the following:&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Why did you select this profile?  In other words, why was it interesting to you?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes were expected to belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;What is the p value for the enrichment of genes in this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Bear in mind that we just finished computing p values to determine whether each individual gene had a significant change in gene expression at each time point.  This p value determines whether the number of genes that show this particular expression profile across the time points is significantly more than expected.&lt;br /&gt;
##* Open the GO list file you saved for this profile in Excel.  This list shows all of the Gene Ontology terms that are associated with genes that fit this profile.  Select the third row and then choose from the menu Data &amp;gt; Filter &amp;gt; Autofilter.  Filter on the &amp;quot;p-value&amp;quot; column to show only GO terms that have a p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile at p &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  The GO list also has a column called &amp;quot;Corrected p-value&amp;quot;.  This correction is needed because the software has performed thousands of significance tests.  Filter on the &amp;quot;Corrected p-value&amp;quot; column to show only GO terms that have a corrected p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile with a corrected p value &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* Select 10 Gene Ontology terms from your filtered list (either p &amp;lt; 0.05 or corrected p &amp;lt; 0.05).  &lt;br /&gt;
##** Since you and your partner are going to compare the results from each strain for the same cluster, you can either:&lt;br /&gt;
##*** Choose the same 10 terms that are in common between strains.&lt;br /&gt;
##*** Choose 10 terms that are different between the strains (5 or so from each).&lt;br /&gt;
##*** Choose some that are the same and some that are different.&lt;br /&gt;
##**&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Look up the definitions for each of the terms at [http://geneontology.org http://geneontology.org].  For your final lab report, you will discuss the biological interpretation of these GO terms.  In other words, why does the cell react to cold shock by changing the expression of genes associated with these GO terms?  Also, what does this have to do with HAP4 being deleted?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##** To easily look up the definitions, go to [http://geneontology.org http://geneontology.org].&lt;br /&gt;
##** Copy and paste the GO ID (e.g. GO:0044848) into the search field at the upper left of the page called &amp;quot;Search GO Data&amp;quot;.&lt;br /&gt;
##** In the [http://amigo.geneontology.org/amigo/medial_search?q=GO%3A0044848 results] page, click on the button that says &amp;quot;Link to detailed information about &amp;lt;term&amp;gt;, in this case &amp;quot;biological phase&amp;quot;&amp;quot;. &lt;br /&gt;
##** The definition will be on the next results page, e.g. [http://amigo.geneontology.org/amigo/term/GO:0044848 here].&lt;br /&gt;
&lt;br /&gt;
=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T17:20:43Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
#In AM1, made title dgln3_Bonferoni_Pvalue_t15&lt;br /&gt;
#* Created column heading similar for t30, t60, t90, and t120&lt;br /&gt;
#*In AM2, inputted the formula&lt;br /&gt;
 =AH2*6189&lt;br /&gt;
&lt;br /&gt;
Did this for 30,60, 90 and 120 as well&lt;br /&gt;
&lt;br /&gt;
#*Copied and pasted these throughout the columns &lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
&lt;br /&gt;
* We need to perform the Benjamini &amp;amp; Hochberg correction to each p value similar to what we did for the within-strain ANOVA.&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
* We will also perform the &amp;quot;sanity check&amp;quot; as follows:&lt;br /&gt;
** &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Determine how many genes have a p value &amp;lt; 0.05 at each timepoint.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
**  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
** How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
** How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
** Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, you will need to navigate to the folder containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose your folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input the name of the Excel file (&amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;) to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot;, and the two strains that will be compared as the variables &amp;quot;strain1&amp;quot; and &amp;quot;strain2&amp;quot;.&lt;br /&gt;
*** Note that we saved our Excel file above as &amp;lt;code&amp;gt;*.xlsx&amp;lt;/code&amp;gt;, not &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;.  We may have to go back and &amp;quot;Save as...&amp;quot; &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;, in order for the MATLAB script to work.&lt;br /&gt;
*** Also note that this script will not work for any comparison involving dSWI4 because it has been hard-coded to expect 5 timepoints instead of 4.&lt;br /&gt;
&lt;br /&gt;
 %% User must input filename, sheetname, and strains for comparison&lt;br /&gt;
 filename = &amp;#039;GCAT_and_Ontario_Final_Normalized_Data.xls&amp;#039;; % Name of input file&lt;br /&gt;
 sheetname  = &amp;#039;Master_Sheet&amp;#039;; % Name of sheet in input file containing data to analyze&lt;br /&gt;
 % % If one of the two strains you are working on is the wildtype, keep that&lt;br /&gt;
 % % wildtype as strain 1.&lt;br /&gt;
 strain1    = &amp;#039;wt&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
 % % Select strain 2 to be one of the other strains you would like to&lt;br /&gt;
 % % compare with the first strain.&lt;br /&gt;
 strain2    = &amp;#039;dZAP1&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
 disp(&amp;#039;Do you want to view plots for each gene with an unadjusted p-value &amp;lt; 0.05?&amp;#039;)&lt;br /&gt;
 graph = input(&amp;#039;If yes, enter &amp;quot;1&amp;quot;. If no, enter &amp;quot;0&amp;quot;. &amp;#039;);&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Prepare your microarray data file for loading into STEM.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
#* Insert a new worksheet into your Excel workbook, and name it &amp;quot;(STRAIN)_stem&amp;quot;.&lt;br /&gt;
#* Select all of the data from your &amp;quot;(STRAIN)_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into your &amp;quot;(STRAIN)_stem&amp;quot; worksheet.&lt;br /&gt;
#** Your leftmost column should have the column header &amp;quot;MasterIndex&amp;quot;.  Rename this column to &amp;quot;SPOT&amp;quot;.  Column B should be named &amp;quot;ID&amp;quot;.  Rename this column to &amp;quot;Gene Symbol&amp;quot;.  Delete the column named &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filter the data on the B-H corrected p value to be &amp;gt; 0.05 (that&amp;#039;s &amp;#039;&amp;#039;&amp;#039;greater than&amp;#039;&amp;#039;&amp;#039; in this case).&lt;br /&gt;
#*** Once the data has been filtered, select all of the rows (except for your header row) and delete the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undo the filter.  This ensures that we will cluster only the genes with a &amp;quot;significant&amp;quot; change in expression and not the noise.&lt;br /&gt;
#** Delete all of the data columns &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;EXCEPT&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; for the Average Log Fold change columns for each timepoint (for example, wt_AvgLogFC_t15, etc.).&lt;br /&gt;
#** Rename the data columns with just the time and units (for example, 15m, 30m, etc.).&lt;br /&gt;
#** Save your work.  Then use &amp;#039;&amp;#039;Save As&amp;#039;&amp;#039; to save this spreadsheet as Text (Tab-delimited) (*.txt).  Click OK to the warnings and close your file.&lt;br /&gt;
#*** Note that you should turn on the file extensions if you have not already done so.&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Now download and extract the STEM software.&amp;#039;&amp;#039;&amp;#039;  [http://www.cs.cmu.edu/~jernst/stem/ Click here to go to the STEM web site].&lt;br /&gt;
#* Click on the [http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link], register, and download the &amp;lt;code&amp;gt;stem.zip&amp;lt;/code&amp;gt; file to your Desktop.&lt;br /&gt;
#* Unzip the file.  In Seaver 120, you can right click on the file icon and select the menu item &amp;#039;&amp;#039;7-zip &amp;gt; Extract Here&amp;#039;&amp;#039;.&lt;br /&gt;
#* This will create a folder called &amp;lt;code&amp;gt;stem&amp;lt;/code&amp;gt;.  Inside the folder, double-click on the &amp;lt;code&amp;gt;stem.cmd&amp;lt;/code&amp;gt; or the &amp;lt;code&amp;gt;stem.jar&amp;lt;/code&amp;gt; to launch the STEM program.&lt;br /&gt;
&amp;lt;!--#** In Seaver 120, we encountered an issue where the program would not launch on the Windows XP machines due to a lack of memory. (Even though the computers have been upgraded to Windows 7, do this to launch the program.)  To get around this problem, launch STEM from the command line.&lt;br /&gt;
#*** Go to the start menu and click on &amp;#039;&amp;#039;Programs &amp;gt; Accessories &amp;gt; Command Prompt&amp;#039;&amp;#039;.&lt;br /&gt;
#*** You will need to navigate to the directory (folder) in which the STEM program resides.  If you followed the instructions above and extracted the stem folder to the Desktop, type the following:  &amp;lt;code&amp;gt;cd Desktop\stem&amp;lt;/code&amp;gt;  and press &amp;quot;Enter&amp;quot;.&lt;br /&gt;
#*** To launch the program then type:  &amp;lt;code&amp;gt;java -mx512M -jar stem.jar -d defaults.txt&amp;lt;/code&amp;gt;  and press &amp;quot;Enter&amp;quot;.  This will launch the program with less memory allocated to it.--&amp;gt;&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select your file.&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Viewing and Saving STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## A new window will open called &amp;quot;All STEM Profiles (1)&amp;quot;.  Each box corresponds to a model expression profile.  Colored profiles have a statistically significant number of genes assigned; they are arranged in order from most to least significant p value.  Profiles with the same color belong to the same cluster of profiles.  The number in each box is simply an ID number for the profile.&lt;br /&gt;
##* Click on the button that says &amp;quot;Interface Options...&amp;quot;.  At the bottom of the Interface Options window that appears below where it says &amp;quot;X-axis scale should be:&amp;quot;, click on the radio button that says &amp;quot;Based on real time&amp;quot;.  Then close the Interface Options window.&lt;br /&gt;
##*Take a screenshot of this window (on a PC, simultaneously press the &amp;lt;code&amp;gt;Alt&amp;lt;/code&amp;gt; and &amp;lt;code&amp;gt;PrintScreen&amp;lt;/code&amp;gt; buttons to save the view in the active window to the clipboard) and paste it into a PowerPoint presentation to save your figures.&lt;br /&gt;
## Click on each of the SIGNIFICANT profiles (the colored ones) to open a window showing a more detailed plot containing all of the genes in that profile.&lt;br /&gt;
##* Take a screenshot of each of the individual profile windows and save the images in your PowerPoint presentation.&lt;br /&gt;
##* At the bottom of each profile window, there are two yellow buttons &amp;quot;Profile Gene Table&amp;quot; and &amp;quot;Profile GO Table&amp;quot;.  For each of the profiles, click on the &amp;quot;Profile Gene Table&amp;quot; button to see the list of genes belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_genelist.txt&amp;quot;, where you replace the number symbol with the actual profile number.&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist.  (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
##* For each of the significant profiles, click on the &amp;quot;Profile GO Table&amp;quot; to see the list of Gene Ontology terms belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_GOlist.txt&amp;quot;, where you use &amp;quot;wt&amp;quot;, &amp;quot;dGLN3&amp;quot;, etc. to indicate the dataset and where you replace the number symbol with the actual profile number.  At this point you have saved all of the primary data from the STEM software and it&amp;#039;s time to interpret the results!&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist. (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Analyzing and Interpreting STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## Select &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;one&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; of the profiles you saved in the previous step for further intepretation of the data.  I suggest that you choose one that has a pattern of up- or down-regulated genes at the early (first three) timepoints.  You and your partner will choose the &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;same&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; profile so that you can compare your results between the two strains.  Answer the following:&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Why did you select this profile?  In other words, why was it interesting to you?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes were expected to belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;What is the p value for the enrichment of genes in this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Bear in mind that we just finished computing p values to determine whether each individual gene had a significant change in gene expression at each time point.  This p value determines whether the number of genes that show this particular expression profile across the time points is significantly more than expected.&lt;br /&gt;
##* Open the GO list file you saved for this profile in Excel.  This list shows all of the Gene Ontology terms that are associated with genes that fit this profile.  Select the third row and then choose from the menu Data &amp;gt; Filter &amp;gt; Autofilter.  Filter on the &amp;quot;p-value&amp;quot; column to show only GO terms that have a p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile at p &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  The GO list also has a column called &amp;quot;Corrected p-value&amp;quot;.  This correction is needed because the software has performed thousands of significance tests.  Filter on the &amp;quot;Corrected p-value&amp;quot; column to show only GO terms that have a corrected p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile with a corrected p value &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* Select 10 Gene Ontology terms from your filtered list (either p &amp;lt; 0.05 or corrected p &amp;lt; 0.05).  &lt;br /&gt;
##** Since you and your partner are going to compare the results from each strain for the same cluster, you can either:&lt;br /&gt;
##*** Choose the same 10 terms that are in common between strains.&lt;br /&gt;
##*** Choose 10 terms that are different between the strains (5 or so from each).&lt;br /&gt;
##*** Choose some that are the same and some that are different.&lt;br /&gt;
##**&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Look up the definitions for each of the terms at [http://geneontology.org http://geneontology.org].  For your final lab report, you will discuss the biological interpretation of these GO terms.  In other words, why does the cell react to cold shock by changing the expression of genes associated with these GO terms?  Also, what does this have to do with HAP4 being deleted?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##** To easily look up the definitions, go to [http://geneontology.org http://geneontology.org].&lt;br /&gt;
##** Copy and paste the GO ID (e.g. GO:0044848) into the search field at the upper left of the page called &amp;quot;Search GO Data&amp;quot;.&lt;br /&gt;
##** In the [http://amigo.geneontology.org/amigo/medial_search?q=GO%3A0044848 results] page, click on the button that says &amp;quot;Link to detailed information about &amp;lt;term&amp;gt;, in this case &amp;quot;biological phase&amp;quot;&amp;quot;. &lt;br /&gt;
##** The definition will be on the next results page, e.g. [http://amigo.geneontology.org/amigo/term/GO:0044848 here].&lt;br /&gt;
&lt;br /&gt;
=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T17:13:55Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/19/2015=&lt;br /&gt;
==Modified t test for each timepoint==&lt;br /&gt;
#Inserted a new worksheet into excel called &amp;quot;dgln3_ttest&amp;quot;&lt;br /&gt;
#*Copied over everything from &amp;quot;Master Sheet&amp;quot;&lt;br /&gt;
#*Removed all data not having to do with dgln3&lt;br /&gt;
#Recalculated average log Fold changes for each timepoint&lt;br /&gt;
#*t15: =AVERAGE(D2:G2)&lt;br /&gt;
#*t30: =AVERAGE(H2:K2)&lt;br /&gt;
#*t60: =AVERAGE(L2:O2)&lt;br /&gt;
#*t90: =AVERAGE(P2:S2)&lt;br /&gt;
#*t120:=AVERAGE(T2:W2)&lt;br /&gt;
&lt;br /&gt;
#Created new column headings in AC1 named with the pattern dgln3_Tstat_t15&lt;br /&gt;
#*Entered the equation into the second cell below the column heading:  &lt;br /&gt;
 =AVERAGE(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/(STDEV(&amp;#039;&amp;#039;range of cells&amp;#039;&amp;#039;)/SQRT(&amp;#039;&amp;#039;number of replicates&amp;#039;&amp;#039;))&lt;br /&gt;
#*Actually inputted&lt;br /&gt;
#**t15: =AVERAGE(D2:G2)/(STDEV(D2:G2)/SQRT(4))&lt;br /&gt;
#**t30: =AVERAGE(H2:K2)/(STDEV(H2:K2)/SQRT(4))&lt;br /&gt;
#**t60: =AVERAGE(L2:O2)/(STDEV(L2:O2)/SQRT(4))&lt;br /&gt;
#**t90: =AVERAGE(P2:S2)/(STDEV(P2:S2)/SQRT(4))&lt;br /&gt;
#**t120:==AVERAGE(T2:W2)/(STDEV(T2:W2)/SQRT(4))&lt;br /&gt;
#*Created a new column headings in AH1 and named them with the pattern dgln3_Pval_&amp;lt;tx&amp;gt; where you use the appropriate text within the &amp;lt;&amp;gt; and where x is the time.  For example, &amp;quot;dHAP4_Pval_t15&amp;quot;.  In the cell below the label, enter the equation:  &lt;br /&gt;
 =TDIST(ABS(&amp;#039;&amp;#039;cell containing T statistic&amp;#039;&amp;#039;),&amp;#039;&amp;#039;degrees of freedom&amp;#039;&amp;#039;,2)&lt;br /&gt;
#*Actually Inputted&lt;br /&gt;
#**t15=TDIST(ABS(AC2), 3, 2)&lt;br /&gt;
#**t30=TDIST(ABS(AD2), 3, 2)&lt;br /&gt;
#**t60=TDIST(ABS(AE2), 3, 2)&lt;br /&gt;
#**t90=TDIST(ABS(AF2), 3, 2)&lt;br /&gt;
#**t120=TDIST(ABS(AG2), 3, 2)&lt;br /&gt;
The number of degrees of freedom is the number of replicates minus one.  Copy the equation and paste it into all rows in that column.&lt;br /&gt;
* As with the ANOVA, we encounter the multiple testing problem here as well.&lt;br /&gt;
&lt;br /&gt;
==== Bonferroni Correction ====&lt;br /&gt;
&lt;br /&gt;
* We need to perform the Bonferroni correction to each p value similar to what we did for the within-strain ANOVA.&lt;br /&gt;
&lt;br /&gt;
==== Benjamini &amp;amp; Hochberg Correction ====&lt;br /&gt;
&lt;br /&gt;
* We need to perform the Benjamini &amp;amp; Hochberg correction to each p value similar to what we did for the within-strain ANOVA.&lt;br /&gt;
&lt;br /&gt;
==== Sanity Check ====&lt;br /&gt;
&lt;br /&gt;
* We will also perform the &amp;quot;sanity check&amp;quot; as follows:&lt;br /&gt;
** &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Determine how many genes have a p value &amp;lt; 0.05 at each timepoint.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
**  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Keeping the &amp;quot;Pval&amp;quot; filter at p &amp;lt; 0.05, How many have an average log fold change of &amp;gt; 0.25 and p &amp;lt; 0.05 at each timepoint? How many have an average log fold change of &amp;lt; -0.25 and p &amp;lt; 0.05 at each timepoint? (These log fold change cut-offs represent about a 20% fold change in expression.)&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
** How many genes have B&amp;amp;H corrected p &amp;lt; 0.05?&lt;br /&gt;
** How many genes have a Bonferroni corrected p &amp;lt; 0.05?&lt;br /&gt;
** Use this [[Media: BIOL398-04_S15_sample_p-value_slide.pptx | sample PowerPoint slide]] to see how your table should be formatted.&lt;br /&gt;
&lt;br /&gt;
=== Between-strain ANOVA ===&lt;br /&gt;
&lt;br /&gt;
The detailed description of how this is done can be found on [[Dahlquist:Modified_ANOVA_and_p_value_Corrections_for_Microarray_Data#Comparing_Significant_Changes_in_Expression_Between_Two_Strains | this page.]] A brief version of the protocol appears below.&lt;br /&gt;
&lt;br /&gt;
* All two strain comparisons were performed in MATLAB using the script [[Media:Two_strain_compare_corrected_20140813_3pm.zip | Two_strain_compare_corrected_20140813_3pm.zip (within a zip file)]]:&lt;br /&gt;
** Download the zipped script file, extract it to the folder that contains your Excel file with the worksheet named &amp;quot;Master_Sheet&amp;quot;.  (The script and Excel file must be in the same folder to work.)&lt;br /&gt;
** Launch MATLAB version 2014b.&lt;br /&gt;
** In MATLAB, you will need to navigate to the folder containing the script and the Excel file.&lt;br /&gt;
*** Near the top of the page, you will see a a field that contains the path to the working directory.  Just to the left of it, there is an icon that looks like a folder opening with a green down arrow.  Click on this icon to open a dialog box where you can choose your folder containing the script and Excel file.&lt;br /&gt;
*** Once you have selected your folder, the left-hand pane should display the contents of that folder.  To open the MATLAB script, you can double-click on it from that pane.  The code for the script will appear in the center pane.&lt;br /&gt;
* You will need to make a few edits to the code, depending on which strain comparison you want to make.&lt;br /&gt;
** For the first block of code, the user must input the name of the Excel file (&amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;) to be imported as the variable &amp;quot;filename&amp;quot;, the sheet from which the data will be imported as the variable &amp;quot;sheetname&amp;quot;, and the two strains that will be compared as the variables &amp;quot;strain1&amp;quot; and &amp;quot;strain2&amp;quot;.&lt;br /&gt;
*** Note that we saved our Excel file above as &amp;lt;code&amp;gt;*.xlsx&amp;lt;/code&amp;gt;, not &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;.  We may have to go back and &amp;quot;Save as...&amp;quot; &amp;lt;code&amp;gt;*.xls&amp;lt;/code&amp;gt;, in order for the MATLAB script to work.&lt;br /&gt;
*** Also note that this script will not work for any comparison involving dSWI4 because it has been hard-coded to expect 5 timepoints instead of 4.&lt;br /&gt;
&lt;br /&gt;
 %% User must input filename, sheetname, and strains for comparison&lt;br /&gt;
 filename = &amp;#039;GCAT_and_Ontario_Final_Normalized_Data.xls&amp;#039;; % Name of input file&lt;br /&gt;
 sheetname  = &amp;#039;Master_Sheet&amp;#039;; % Name of sheet in input file containing data to analyze&lt;br /&gt;
 % % If one of the two strains you are working on is the wildtype, keep that&lt;br /&gt;
 % % wildtype as strain 1.&lt;br /&gt;
 strain1    = &amp;#039;wt&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
 % % Select strain 2 to be one of the other strains you would like to&lt;br /&gt;
 % % compare with the first strain.&lt;br /&gt;
 strain2    = &amp;#039;dZAP1&amp;#039;; %Here should be wt, dCIN5, dGLN3, dHAP4, dHMO1, dZAP1, or Spar&lt;br /&gt;
&lt;br /&gt;
* The user does not have to modify any of the code from here on.&lt;br /&gt;
* The next two lines of code ask the user whether or not they would like to see plots for each gene with an unadjusted p-value &amp;lt; 0.05. If the user does want to see these plots, they enter &amp;quot;1&amp;quot;. If they would not like to see these plots, the user enters &amp;quot;0&amp;quot;.  When prompted, enter a &amp;quot;1&amp;quot; to see the plots displayed.&lt;br /&gt;
 &lt;br /&gt;
 disp(&amp;#039;Do you want to view plots for each gene with an unadjusted p-value &amp;lt; 0.05?&amp;#039;)&lt;br /&gt;
 graph = input(&amp;#039;If yes, enter &amp;quot;1&amp;quot;. If no, enter &amp;quot;0&amp;quot;. &amp;#039;);&lt;br /&gt;
&lt;br /&gt;
== Step 7-8: Clustering and GO Term Enrichment with stem ==&lt;br /&gt;
&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Prepare your microarray data file for loading into STEM.&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
#* Insert a new worksheet into your Excel workbook, and name it &amp;quot;(STRAIN)_stem&amp;quot;.&lt;br /&gt;
#* Select all of the data from your &amp;quot;(STRAIN)_ANOVA&amp;quot; worksheet and Paste special &amp;gt; paste values into your &amp;quot;(STRAIN)_stem&amp;quot; worksheet.&lt;br /&gt;
#** Your leftmost column should have the column header &amp;quot;MasterIndex&amp;quot;.  Rename this column to &amp;quot;SPOT&amp;quot;.  Column B should be named &amp;quot;ID&amp;quot;.  Rename this column to &amp;quot;Gene Symbol&amp;quot;.  Delete the column named &amp;quot;StandardName&amp;quot;.&lt;br /&gt;
#** Filter the data on the B-H corrected p value to be &amp;gt; 0.05 (that&amp;#039;s &amp;#039;&amp;#039;&amp;#039;greater than&amp;#039;&amp;#039;&amp;#039; in this case).&lt;br /&gt;
#*** Once the data has been filtered, select all of the rows (except for your header row) and delete the rows by right-clicking and choosing &amp;quot;Delete Row&amp;quot; from the context menu.  Undo the filter.  This ensures that we will cluster only the genes with a &amp;quot;significant&amp;quot; change in expression and not the noise.&lt;br /&gt;
#** Delete all of the data columns &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;EXCEPT&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; for the Average Log Fold change columns for each timepoint (for example, wt_AvgLogFC_t15, etc.).&lt;br /&gt;
#** Rename the data columns with just the time and units (for example, 15m, 30m, etc.).&lt;br /&gt;
#** Save your work.  Then use &amp;#039;&amp;#039;Save As&amp;#039;&amp;#039; to save this spreadsheet as Text (Tab-delimited) (*.txt).  Click OK to the warnings and close your file.&lt;br /&gt;
#*** Note that you should turn on the file extensions if you have not already done so.&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Now download and extract the STEM software.&amp;#039;&amp;#039;&amp;#039;  [http://www.cs.cmu.edu/~jernst/stem/ Click here to go to the STEM web site].&lt;br /&gt;
#* Click on the [http://www.andrew.cmu.edu/user/zivbj/stemreg.html download link], register, and download the &amp;lt;code&amp;gt;stem.zip&amp;lt;/code&amp;gt; file to your Desktop.&lt;br /&gt;
#* Unzip the file.  In Seaver 120, you can right click on the file icon and select the menu item &amp;#039;&amp;#039;7-zip &amp;gt; Extract Here&amp;#039;&amp;#039;.&lt;br /&gt;
#* This will create a folder called &amp;lt;code&amp;gt;stem&amp;lt;/code&amp;gt;.  Inside the folder, double-click on the &amp;lt;code&amp;gt;stem.cmd&amp;lt;/code&amp;gt; or the &amp;lt;code&amp;gt;stem.jar&amp;lt;/code&amp;gt; to launch the STEM program.&lt;br /&gt;
&amp;lt;!--#** In Seaver 120, we encountered an issue where the program would not launch on the Windows XP machines due to a lack of memory. (Even though the computers have been upgraded to Windows 7, do this to launch the program.)  To get around this problem, launch STEM from the command line.&lt;br /&gt;
#*** Go to the start menu and click on &amp;#039;&amp;#039;Programs &amp;gt; Accessories &amp;gt; Command Prompt&amp;#039;&amp;#039;.&lt;br /&gt;
#*** You will need to navigate to the directory (folder) in which the STEM program resides.  If you followed the instructions above and extracted the stem folder to the Desktop, type the following:  &amp;lt;code&amp;gt;cd Desktop\stem&amp;lt;/code&amp;gt;  and press &amp;quot;Enter&amp;quot;.&lt;br /&gt;
#*** To launch the program then type:  &amp;lt;code&amp;gt;java -mx512M -jar stem.jar -d defaults.txt&amp;lt;/code&amp;gt;  and press &amp;quot;Enter&amp;quot;.  This will launch the program with less memory allocated to it.--&amp;gt;&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Running STEM&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## In section 1 (Expression Data Info) of the the main STEM interface window, click on the &amp;#039;&amp;#039;Browse...&amp;#039;&amp;#039; button to navigate to and select your file.&lt;br /&gt;
##* Click on the radio button &amp;#039;&amp;#039;No normalization/add 0&amp;#039;&amp;#039;.&lt;br /&gt;
##* Check the box next to &amp;#039;&amp;#039;Spot IDs included in the data file&amp;#039;&amp;#039;.&lt;br /&gt;
## In section 2 (Gene Info) of the main STEM interface window, select &amp;#039;&amp;#039;Saccharomyces cerevisiae (SGD)&amp;#039;&amp;#039;, from the drop-down menu for Gene Annotation Source.  Select &amp;#039;&amp;#039;No cross references&amp;#039;&amp;#039;, from the Cross Reference Source drop-down menu.  Select &amp;#039;&amp;#039;No Gene Locations&amp;#039;&amp;#039; from the Gene Location Source drop-down menu.&lt;br /&gt;
## In section 3 (Options) of the main STEM interface window, make sure that the Clustering Method says &amp;quot;STEM Clustering Method&amp;quot; and do not change the defaults for Maximum Number of Model Profiles or Maximum Unit Change in Model Profiles between Time Points.&lt;br /&gt;
## In section 4 (Execute) click on the yellow Execute button to run STEM.&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Viewing and Saving STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## A new window will open called &amp;quot;All STEM Profiles (1)&amp;quot;.  Each box corresponds to a model expression profile.  Colored profiles have a statistically significant number of genes assigned; they are arranged in order from most to least significant p value.  Profiles with the same color belong to the same cluster of profiles.  The number in each box is simply an ID number for the profile.&lt;br /&gt;
##* Click on the button that says &amp;quot;Interface Options...&amp;quot;.  At the bottom of the Interface Options window that appears below where it says &amp;quot;X-axis scale should be:&amp;quot;, click on the radio button that says &amp;quot;Based on real time&amp;quot;.  Then close the Interface Options window.&lt;br /&gt;
##*Take a screenshot of this window (on a PC, simultaneously press the &amp;lt;code&amp;gt;Alt&amp;lt;/code&amp;gt; and &amp;lt;code&amp;gt;PrintScreen&amp;lt;/code&amp;gt; buttons to save the view in the active window to the clipboard) and paste it into a PowerPoint presentation to save your figures.&lt;br /&gt;
## Click on each of the SIGNIFICANT profiles (the colored ones) to open a window showing a more detailed plot containing all of the genes in that profile.&lt;br /&gt;
##* Take a screenshot of each of the individual profile windows and save the images in your PowerPoint presentation.&lt;br /&gt;
##* At the bottom of each profile window, there are two yellow buttons &amp;quot;Profile Gene Table&amp;quot; and &amp;quot;Profile GO Table&amp;quot;.  For each of the profiles, click on the &amp;quot;Profile Gene Table&amp;quot; button to see the list of genes belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_genelist.txt&amp;quot;, where you replace the number symbol with the actual profile number.&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist.  (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
##* For each of the significant profiles, click on the &amp;quot;Profile GO Table&amp;quot; to see the list of Gene Ontology terms belonging to the profile.  In the window that appears, click on the &amp;quot;Save Table&amp;quot; button and save the file to your desktop.  Make your filename descriptive of the contents, e.g. &amp;quot;wt_profile#_GOlist.txt&amp;quot;, where you use &amp;quot;wt&amp;quot;, &amp;quot;dGLN3&amp;quot;, etc. to indicate the dataset and where you replace the number symbol with the actual profile number.  At this point you have saved all of the primary data from the STEM software and it&amp;#039;s time to interpret the results!&lt;br /&gt;
##** Upload these files to [http://lionshare.lmu.edu LionShare] and e-mail a link to Dr. Dahlquist. (It will be easier to [[BIOL398-04/S15:Help#Compressing_Files_with_7-Zip | zip all the files together]] and upload them as one file).&lt;br /&gt;
# &amp;#039;&amp;#039;&amp;#039;Analyzing and Interpreting STEM Results&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
## Select &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;one&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; of the profiles you saved in the previous step for further intepretation of the data.  I suggest that you choose one that has a pattern of up- or down-regulated genes at the early (first three) timepoints.  You and your partner will choose the &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;same&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039; profile so that you can compare your results between the two strains.  Answer the following:&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Why did you select this profile?  In other words, why was it interesting to you?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many genes were expected to belong to this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;What is the p value for the enrichment of genes in this profile?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Bear in mind that we just finished computing p values to determine whether each individual gene had a significant change in gene expression at each time point.  This p value determines whether the number of genes that show this particular expression profile across the time points is significantly more than expected.&lt;br /&gt;
##* Open the GO list file you saved for this profile in Excel.  This list shows all of the Gene Ontology terms that are associated with genes that fit this profile.  Select the third row and then choose from the menu Data &amp;gt; Filter &amp;gt; Autofilter.  Filter on the &amp;quot;p-value&amp;quot; column to show only GO terms that have a p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile at p &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  The GO list also has a column called &amp;quot;Corrected p-value&amp;quot;.  This correction is needed because the software has performed thousands of significance tests.  Filter on the &amp;quot;Corrected p-value&amp;quot; column to show only GO terms that have a corrected p value of &amp;lt; 0.05.  &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;How many GO terms are associated with this profile with a corrected p value &amp;lt; 0.05?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##* Select 10 Gene Ontology terms from your filtered list (either p &amp;lt; 0.05 or corrected p &amp;lt; 0.05).  &lt;br /&gt;
##** Since you and your partner are going to compare the results from each strain for the same cluster, you can either:&lt;br /&gt;
##*** Choose the same 10 terms that are in common between strains.&lt;br /&gt;
##*** Choose 10 terms that are different between the strains (5 or so from each).&lt;br /&gt;
##*** Choose some that are the same and some that are different.&lt;br /&gt;
##**&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Look up the definitions for each of the terms at [http://geneontology.org http://geneontology.org].  For your final lab report, you will discuss the biological interpretation of these GO terms.  In other words, why does the cell react to cold shock by changing the expression of genes associated with these GO terms?  Also, what does this have to do with HAP4 being deleted?&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
##** To easily look up the definitions, go to [http://geneontology.org http://geneontology.org].&lt;br /&gt;
##** Copy and paste the GO ID (e.g. GO:0044848) into the search field at the upper left of the page called &amp;quot;Search GO Data&amp;quot;.&lt;br /&gt;
##** In the [http://amigo.geneontology.org/amigo/medial_search?q=GO%3A0044848 results] page, click on the button that says &amp;quot;Link to detailed information about &amp;lt;term&amp;gt;, in this case &amp;quot;biological phase&amp;quot;&amp;quot;. &lt;br /&gt;
##** The definition will be on the next results page, e.g. [http://amigo.geneontology.org/amigo/term/GO:0044848 here].&lt;br /&gt;
&lt;br /&gt;
=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T00:26:57Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(dgln3_ss_HO-dgln3_SS_full)/dgln3_SS_full&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;dgln3_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check===&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T00:24:17Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(&amp;lt;(STRAIN)_ss_HO&amp;gt;-&amp;lt;(STRAIN)_SS_full&amp;gt;)/&amp;lt;(STRAIN)_SS_full&amp;gt;&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
==== Calculate the Bonferroni and p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Labeled FS1 and FT1 dgln3_Bonferroni_p-value.&lt;br /&gt;
# Type the equation &amp;lt;code&amp;gt;=&amp;lt;(STRAIN)_p-value&amp;gt;*6189&amp;lt;/code&amp;gt;, Upon completion of this single computation,  copy the formula throughout the column.&lt;br /&gt;
# Replaced any corrected p value that is greater than 1 by the number 1 by typing the following formula into FT2 &amp;lt;code&amp;gt;=IF(r2&amp;gt;1,1,r2)&amp;lt;/code&amp;gt;. Copy the formula throughout the column.&lt;br /&gt;
&lt;br /&gt;
==== Calculate the Benjamini &amp;amp; Hochberg p value Correction ====&lt;br /&gt;
&lt;br /&gt;
# Insert a new worksheet named &amp;quot;dgln3_B&amp;amp;H&amp;quot;.&lt;br /&gt;
# Copy and paste the &amp;quot;MasterIndex&amp;quot;, &amp;quot;ID&amp;quot;, and &amp;quot;Standard Name&amp;quot; columns from your previous worksheet into the first two columns of the new worksheet. &lt;br /&gt;
# Copied unadjusted p values from ANOVA worksheet and pasted it into Column D.&lt;br /&gt;
# Selected all of columns A, B, C, and D. Sorted by ascending values on Column D. Clicked the sort button from A to Z on the toolbar, sorted by column C, smallest to largest.&lt;br /&gt;
# Typeed the header &amp;quot;Rank&amp;quot; in cell E1. Stretched this down to 6190. &lt;br /&gt;
# Calculated the Benjamini and Hochberg p value correction. Typed dgln3_B-H_p-value in cell F1. Typed the following formula in cell F2: &amp;lt;code&amp;gt;=(D2*6189)/E2&amp;lt;/code&amp;gt; and copied that equation to the entire column.&lt;br /&gt;
# Typed &amp;quot;dgln3_B-H_p-value&amp;quot; into cell G1. &lt;br /&gt;
# Typed the following formula into cell G2: &amp;lt;code&amp;gt;=IF(F2&amp;gt;1,1,F2)&amp;lt;/code&amp;gt; Copied that equation to the entire column. &lt;br /&gt;
# Selected columns A through G.  Sorted them by your MasterIndex in Column A in ascending order.&lt;br /&gt;
# Copy column G and use Paste special &amp;gt; Paste values to paste it into the next column on the right of your ANOVA sheet.&lt;br /&gt;
&lt;br /&gt;
* &amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;Upload the .xlsx file that you have just created to LionShare.&amp;#039;&amp;#039;&amp;#039;&amp;#039;&amp;#039;  Send Dr. Dahlquist an e-mail with the link to the file (e-mail kdahlquist at lmu dot edu).&lt;br /&gt;
&lt;br /&gt;
===Sanity Check==&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-19T00:12:58Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;br /&gt;
# Created a new worksheet and named it&amp;quot;(dgln3_ANOVA)&lt;br /&gt;
# Copied all of the data from the &amp;quot;Master_Sheet&amp;quot; worksheet for your strain and pasted it into the new worksheet.&lt;br /&gt;
# At the top of the first column to the right of Spar_LogFC_t120-4 (FD), five column headers were created of the form dgln3_AvgLogFC_(TIME) where (TIME) is 15, 30, 60, 90, 120.&lt;br /&gt;
# In the cell below the dgln3_AvgLogFC_t15 header, I typed &amp;lt;code&amp;gt;=AVERAGE(&amp;lt;/code&amp;gt; &lt;br /&gt;
# highlighted all the data in row 2 associated with dgln3_LogFC_t15 (AU2:AX2), press the closing paren key (shift 0),and press the &amp;quot;enter&amp;quot; key.&lt;br /&gt;
# This cell now contains the average of the log fold change data from the first gene at t=15 minutes.&lt;br /&gt;
# Clicked on this cell and position your cursor at the bottom right corner. Double clicked, and the formula was copied to the entire column of 6188 other genes.&lt;br /&gt;
# Repeated steps (4) through (8) with the t30, t60, t90, and the t120 data.&lt;br /&gt;
# Create the column header dgln3_ss_HO in cell FJ1.&lt;br /&gt;
# In FJ2, I typed =SUMSQ(AU2:BN2)&lt;br /&gt;
# In FK1, create the column headers dgln3_ss_(TIME) as in (3).&lt;br /&gt;
# Make a note of how many data points you have at each time point for your strain.  &lt;br /&gt;
#*15:4&lt;br /&gt;
#*30:4&lt;br /&gt;
#*60:4&lt;br /&gt;
#*90:4&lt;br /&gt;
#*120:4&lt;br /&gt;
# In FK2, type &amp;lt;code&amp;gt;=SUMSQ(&amp;lt;range of cells for logFC_t15&amp;gt;)-&amp;lt;number of data points&amp;gt;*&amp;lt;AvgLogFC_t15&amp;gt;^2&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#* The phrase &amp;lt;range of cells for logFC_t15&amp;gt; should be replaced by the data range associated with t15. &lt;br /&gt;
#* The phrase &amp;lt;number of data points&amp;gt; should be replaced by the number of data points for that timepoint (either 3, 4, or 5). &lt;br /&gt;
#* The phrase &amp;lt;AvgLogFC_t15&amp;gt; should be replaced by the cell number in which you computed the AvgLogFC for t15, and the &amp;quot;^2&amp;quot; squares that value. &lt;br /&gt;
#*Actual Computation:=SUMSQ(AU2:AX2)-4*FE2^2&lt;br /&gt;
#* Upon completion of this single computation, copy the formula throughout the column.&lt;br /&gt;
# Repeated this computation for the t30 through t120 data points. &lt;br /&gt;
# In FP1, create the column header dgln3_SS_full.&lt;br /&gt;
# In the first row below this header, type &amp;lt;code&amp;gt;=sum(&amp;lt;range of cells containing &amp;quot;ss&amp;quot; for each timepoint&amp;gt;)&amp;lt;/code&amp;gt; and hit enter.&lt;br /&gt;
#*Actual Computation: =SUM(FK2:FO2)&lt;br /&gt;
# In the next two columns to the right, create the headers dgln3_Fstat and dgln3_p-value.&lt;br /&gt;
# Recall the number of data points from (13): call that total n.&lt;br /&gt;
# In the first cell of the dgln3_Fstat column, type &amp;lt;code&amp;gt;=((n-5)/5)*(&amp;lt;(STRAIN)_ss_HO&amp;gt;-&amp;lt;(STRAIN)_SS_full&amp;gt;)/&amp;lt;(STRAIN)_SS_full&amp;gt;&amp;lt;/code&amp;gt; and hit enter.  &lt;br /&gt;
#*=((20-5)/5)*(FJ2-FP2)/FP2&lt;br /&gt;
#* Copy to the whole column.&lt;br /&gt;
# In the first cell below the dgln3_p-value header, type &amp;lt;code&amp;gt;=FDIST(&amp;lt;(dgln3)_Fstat&amp;gt;,5,n-5)&amp;lt;/code&amp;gt; &lt;br /&gt;
&lt;br /&gt;
===Sanity Check==&lt;br /&gt;
#Click on cell A1 and click on the Data tab.  Select the Filter icon (looks like a funnel). Little drop-down arrows should appear at the top of each column. This will enable us to filter the data according to criteria we set.&lt;br /&gt;
#Click on the drop-down arrow on dgln3_p-value. Select &amp;quot;Number Filters&amp;quot;. In the window that appears, set a criterion that will filter your data so that the p value has to be less than 0.05. &lt;br /&gt;
#* p&amp;lt;0.05=1856 (&lt;br /&gt;
#* p&amp;lt;0.01=1007&lt;br /&gt;
#* p&amp;lt;0.001=398&lt;br /&gt;
#* p&amp;lt;0.0001=121&lt;br /&gt;
#* Bonderroni = 20&lt;br /&gt;
#* B&amp;amp;H = 889&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-18T22:28:43Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Statistical Analysis==&lt;br /&gt;
*Added the standard name and the master index for all the terms. &lt;br /&gt;
*Saved Compiled_Normalized_Data sheet and made a new sheet called Rounded_Normalized_Data&lt;br /&gt;
**ran computation &lt;br /&gt;
 =ROUND(Compiled_Normalized_Data!D2,4)&lt;br /&gt;
for all data.&lt;br /&gt;
&lt;br /&gt;
*Created Master Sheet, which has all knew data free of any computational functions&lt;br /&gt;
**Copied and pasted numbers with special paste: values&lt;br /&gt;
*In Master Sheet:&lt;br /&gt;
**Replaced #VALUE with a blank cell. There were 477 replacements&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-18T22:00:09Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;br /&gt;
**[https://lionshare.lmu.edu/Users/kmcgee3/20151804_Kevin_M_GCATandOntario_Pics.zip 20151804_Kevin_M_GCATandOntario_Pics.zip]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page</id>
		<title>New Wiki Page</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/New_Wiki_Page"/>
				<updated>2015-05-18T21:28:54Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=5/18/2015=&lt;br /&gt;
==Microarray Data analysis Workflow==&lt;br /&gt;
#Set browser to send downloads to Desktop&lt;br /&gt;
#Followed the Protocal found on OpenWetWare:&lt;br /&gt;
=== Installing R 3.1.0 and the limma package ===&lt;br /&gt;
&lt;br /&gt;
The following protocol was developed to normalize GCAT and Ontario DNA microarray chip data from the Dahlquist lab using the R Statistical Software and the limma package (part of the Bioconductor Project).&lt;br /&gt;
* The normalization procedure has been verified to work with version 3.1.0 of R released in April 2014 ([http://cran.r-project.org/bin/windows/base/old/3.1.0/ link to download site]) and and version 3.20.1 of the limma package ([[Media:Limma_3.20.1.zip | direct link to download zipped file]]) on the Windows 7 platform.  &lt;br /&gt;
** Note that using other versions of R or the limma package might give different results.&lt;br /&gt;
** Note also that using the 32-bit versus the 64-bit versions of R 3.1.0 will give different results for the normalization out in the 10&amp;lt;sup&amp;gt;-13&amp;lt;/sup&amp;gt; or 10&amp;lt;sup&amp;gt;-14&amp;lt;/sup&amp;gt; decimal place.  The Dahlquist Lab is standardizing on using the 64-bit version of R.&lt;br /&gt;
* To install R for the first time, download and run the installer from the link above, accepting the default installation.&lt;br /&gt;
* To use the limma package, unzip the file and place the contents into a folder called &amp;quot;limma&amp;quot; in the library directory of the R program.  If you accept the default location, that will be C:\Program Files\R\R-3.1.0\library (this will be different on the computers in S120 since you do not have administrator rights).&lt;br /&gt;
&lt;br /&gt;
=== Running the Normalization Scripts ===&lt;br /&gt;
&lt;br /&gt;
* Create a folder on your Desktop to store your files for the microarray analysis procedure.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/wt-dCIN5-dGLN3-dHAP1-dHMO1-dSWI4-dZAP1-Spar_gpr-files.zip zipped file] that contains the &amp;lt;code&amp;gt;.gpr&amp;lt;/code&amp;gt; files and save it to this folder (or move it if it saved in a different folder).&lt;br /&gt;
** Unzip this file using 7-zip.  Right-click on the file and select the menu item, &amp;quot;7-zip &amp;gt; Extract Here&amp;quot;.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/GCAT_Targets.csv GCAT_Targets.csv] file and [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv] files and save them to this folder (or move them if they saved to a different folder).&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Ontario_Chip_Within-Array_Normalization_modified_20150514.R Ontario_Chip_Within-Array_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
* Download the [https://lionshare.lmu.edu/Users/kdahlqui/SURP%202015/Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R] script and save (or move) it to this folder.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the Ontario Chips ====&lt;br /&gt;
&lt;br /&gt;
* Launch R x64 3.1.0 (make sure you are using the 64-bit version). &lt;br /&gt;
* Change the directory to the folder containing the targets file and the GPR files for the Ontario chips by selecting the menu item File &amp;gt; Change dir... and clicking on the appropriate directory.  You will need to click on the + sign to drill down to the right directory.  Once you have selected it, click OK.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Ontario_Chip_Within-Array_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the Ontario targets file.  Select the file Ontario_Targets_wt-dCIN5-dGLN3-dHAP4-dHMO1-dSWI4-dZAP1-Spar_20150514.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
&lt;br /&gt;
==== Within Array Normalization for the GCAT Chips and Between Array Normalization for All Chips ====&lt;br /&gt;
&lt;br /&gt;
* These instructions assume that you have just completed the Within Array Normalization for the Ontario Chips in the section above.&lt;br /&gt;
* In R, select the menu item File &amp;gt; Source R code..., and select the Within-Array_Normalization_GCAT_and_Merged_Ontario-GCAT_Between-Chip_Normalization_modified_20150514.R script.&lt;br /&gt;
** You will be prompted by an Open dialog for the GCAT targets file.  Select the file GCAT_Targets.csv and click Open.&lt;br /&gt;
** Wait while R processes your files.&lt;br /&gt;
* When the processing has finished, you will find two files called GCAT_and_Ontario_Within_Array_Normalization.csv and GCAT_and_Ontario_Final_Normalized_Data.csv in the same folder.&lt;br /&gt;
** Save these files to LionShare and/or to a flash drive.&lt;br /&gt;
&lt;br /&gt;
=== Visualizing the Normalized Data ===&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the GCAT Chips ====&lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 GCAT.GeneList&amp;lt;-RGG$genes$ID&lt;br /&gt;
&lt;br /&gt;
 lg&amp;lt;-log2((RGG$R-RGG$Rb)/(RGG$G-RGG$Gb))&lt;br /&gt;
&lt;br /&gt;
* If you get a message saying &amp;quot;NaNs produced&amp;quot; this is OK, proceed to the next step.&lt;br /&gt;
&lt;br /&gt;
 r0&amp;lt;-length(lg[1,])&lt;br /&gt;
 rx&amp;lt;-tapply(lg[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r1&amp;lt;-length(rx)&lt;br /&gt;
 MM&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MM[,i]&amp;lt;-tapply(lg[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MC&amp;lt;-matrix(nrow=r1,ncol=r0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r0) {MC[,i]&amp;lt;-dw[i]*MM[,i]}&lt;br /&gt;
&lt;br /&gt;
 MCD&amp;lt;-as.data.frame(MC)&lt;br /&gt;
 colnames(MCD)&amp;lt;-chips&lt;br /&gt;
 rownames(MCD)&amp;lt;-gcatID&lt;br /&gt;
&lt;br /&gt;
 la&amp;lt;-(1/2*log2((RGG$R-RGG$Rb)*(RGG$G-RGG$Gb)))&lt;br /&gt;
&lt;br /&gt;
* If you get these Warning messages, it&amp;#039;s OK:&lt;br /&gt;
:1: In (RGG$R - RGG$Rb) * (RGG$G - RGG$Gb) :&lt;br /&gt;
:NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 r2&amp;lt;-length(la[1,])&lt;br /&gt;
 ri&amp;lt;-tapply(la[,1],as.factor(GCAT.GeneList),mean)&lt;br /&gt;
 r3&amp;lt;-length(ri)&lt;br /&gt;
 AG&amp;lt;-matrix(nrow=r3,ncol=r2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {AG[,i]&amp;lt;-tapply(la[,i],as.factor(GCAT.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:r2) {plot(AG[,i],MC[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
** To make sure that you save the clearest image, do not scroll in the window because a grey bar will appear if you do so.&lt;br /&gt;
* The next set of code is for the generation of the GCAT boxplots for the wild-type data.&lt;br /&gt;
&lt;br /&gt;
 x0&amp;lt;-tapply(MAG$A[,1],as.factor(MAG$genes$ID),mean)&lt;br /&gt;
 y0&amp;lt;-length(MAG$A[1,])&lt;br /&gt;
 x1&amp;lt;-length(x0)&lt;br /&gt;
 AAG&amp;lt;-matrix(nrow=x1,ncol=y0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {AAG[,i]&amp;lt;-tapply(MAG$A[,i],as.factor(MAG$genes$ID),mean)}&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(3,3))&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:y0) {plot(AAG[,i],MG2[,i],main=chips[i],xlab=&amp;#039;A&amp;#039;,ylab=&amp;#039;M&amp;#039;,ylim=c(-5,5),xlim=c(0,15))}&lt;br /&gt;
 browser()&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window. To continue with the rest of the code, press Enter.&lt;br /&gt;
&lt;br /&gt;
 par(mfrow=c(1,3))&lt;br /&gt;
&lt;br /&gt;
 boxplot(MCD,main=&amp;quot;Before Normalization&amp;quot;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,tick=TRUE,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MG2,main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1,at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
 boxplot(MAD[,Gtop$MasterList],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
 axis(1, at=xy.coords(chips)$x,labels=FALSE)&lt;br /&gt;
&lt;br /&gt;
 text(xy.coords(chips)$x-1,par(&amp;#039;usr&amp;#039;)[3]-0.6,labels=chips,srt=45,cex=0.9,xpd=TRUE)&lt;br /&gt;
&lt;br /&gt;
* Maximize the window in which the plots have appeared. You may not want to actually maximize them because you might lose the labels on the x axis, but make them as large as you can. Save the plots as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window.&lt;br /&gt;
&lt;br /&gt;
==== Create MA Plots and Box Plots for the Ontario Chips ==== &lt;br /&gt;
&lt;br /&gt;
Input the following code, line by line, into the main R window.  Press the enter key after each block of code.&lt;br /&gt;
&lt;br /&gt;
 Ontario.GeneList&amp;lt;-RGO$genes$Name&lt;br /&gt;
&lt;br /&gt;
 lr&amp;lt;-log2((RGO$R-RGO$Rb)/(RGO$G-RGO$Gb))&lt;br /&gt;
&lt;br /&gt;
* Warning message: &amp;quot;NaNs produced&amp;quot; is OK. &lt;br /&gt;
&lt;br /&gt;
 z0&amp;lt;-length(lr[1,])&lt;br /&gt;
 v0&amp;lt;-tapply(lr[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z1&amp;lt;-length(v0)&lt;br /&gt;
 MT&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MT[,i]&amp;lt;-tapply(lr[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 MI&amp;lt;-matrix(nrow=z1,ncol=z0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {MI[,i]&amp;lt;-ds[i]*MT[,i]}&lt;br /&gt;
&lt;br /&gt;
 MID&amp;lt;-as.data.frame(MI)&lt;br /&gt;
 colnames(MID)&amp;lt;-headers&lt;br /&gt;
 rownames(MID)&amp;lt;-ontID&lt;br /&gt;
&lt;br /&gt;
 ln&amp;lt;-(1/2*log2((RGO$R-RGO$Rb)*(RGO$G-RGO$Gb)))&lt;br /&gt;
&lt;br /&gt;
* Warning messages are OK:&lt;br /&gt;
:1: In (RGO$R - RGO$Rb) * (RGO$G - RGO$Gb) :&lt;br /&gt;
: NAs produced by integer overflow&lt;br /&gt;
:2: NaNs produced &lt;br /&gt;
&lt;br /&gt;
 z2&amp;lt;-length(ln[1,])&lt;br /&gt;
 zi&amp;lt;-tapply(ln[,1],as.factor(Ontario.GeneList),mean)&lt;br /&gt;
 z3&amp;lt;-length(zi)&lt;br /&gt;
 AO&amp;lt;-matrix(nrow=z3,ncol=z2)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:z0) {AO[,i]&amp;lt;-tapply(ln[,i],as.factor(Ontario.GeneList),mean)}&lt;br /&gt;
&lt;br /&gt;
 strains&amp;lt;-c(&amp;#039;wt&amp;#039;,&amp;#039;dCIN5&amp;#039;,&amp;#039;dGLN3&amp;#039;,&amp;#039;dHAP4&amp;#039;,&amp;#039;dHMO1&amp;#039;,&amp;#039;dSWI4&amp;#039;,&amp;#039;dZAP1&amp;#039;,&amp;#039;Spar&amp;#039;)&lt;br /&gt;
&lt;br /&gt;
*After entering the call browser() below, maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**The last graph to appear will be the spar graphs.&lt;br /&gt;
**The graphs generated from this code are the before Ontario chips&lt;br /&gt;
*Be sure to save the 9 graphs before moving on to the next step&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AO[,i],MI[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 j0&amp;lt;-tapply(MAO$A[,1],as.factor(MAO$genes[,5]),mean)&lt;br /&gt;
 k0&amp;lt;-length(MAO$A[1,])&lt;br /&gt;
 j1&amp;lt;-length(j0)&lt;br /&gt;
 AAO&amp;lt;-matrix(nrow=j1,ncol=k0)&lt;br /&gt;
&lt;br /&gt;
 for(i in 1:k0) {AAO[,i]&amp;lt;-tapply(MAO$A[,i],as.factor(MAO$genes[,5]),mean)}&lt;br /&gt;
&lt;br /&gt;
*Remember, that after entering the call readline(&amp;#039;Press Enter to continue&amp;#039;), maximize the window in which the graphs have appeared. Save the graphs as a JPEG (File&amp;gt;Save As&amp;gt;JPEG&amp;gt;100% quality...). Once the graphs have been saved, close the window and press Enter for the next set of graphs to appear.&lt;br /&gt;
**Again, the last graphs to appear will be the spar graphs.&lt;br /&gt;
**These graphs that are produced are for the after Ontario chips&lt;br /&gt;
*Again, be sure to save 9 graphs before moving on to the next part of the code. &lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       par(mfrow=c(3,5))&lt;br /&gt;
   } else {&lt;br /&gt;
       par(mfrow=c(4,5))&lt;br /&gt;
   }&lt;br /&gt;
   for (i in lt) {&lt;br /&gt;
     plot(AAO[,i],MD2[,i],main=headers[i],xlab=&amp;quot;A&amp;quot;,ylab=&amp;quot;M&amp;quot;,ylim=c(-5,5),xlim=c(0,15))&lt;br /&gt;
   }&lt;br /&gt;
   browser()&lt;br /&gt;
 }&lt;br /&gt;
*To continue generating plots, press enter.&lt;br /&gt;
&lt;br /&gt;
 for (i in 1:length(strains)) {&lt;br /&gt;
   par(mfrow=c(1,3))&lt;br /&gt;
   st&amp;lt;-strains[i]&lt;br /&gt;
   lt&amp;lt;-which(Otargets$Strain %in% st)&lt;br /&gt;
   if (st==&amp;#039;wt&amp;#039;) {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1&lt;br /&gt;
       fsize&amp;lt;-0.9&lt;br /&gt;
   } else {&lt;br /&gt;
       xcoord&amp;lt;-xy.coords(lt)$x-1.7&lt;br /&gt;
       fsize&amp;lt;-0.8&lt;br /&gt;
   }&lt;br /&gt;
   boxplot(MID[,lt],main=&amp;#039;Before Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   boxplot(MD2[,lt],main=&amp;#039;After Within Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   ft&amp;lt;-Otargets$MasterList[which(Otargets$Strain %in% st)]&lt;br /&gt;
   boxplot(MAD[,ft],main=&amp;#039;After Between Array Normalization&amp;#039;,ylab=&amp;#039;Log Fold Change&amp;#039;,ylim=c(-5,5),xaxt=&amp;#039;n&amp;#039;)&lt;br /&gt;
   axis(1,at=xy.coords(lt)$x,labels=FALSE)&lt;br /&gt;
   text(xcoord,par(&amp;#039;usr&amp;#039;)[3]-0.65,labels=headers[lt],srt=45,cex=fsize,xpd=TRUE)&lt;br /&gt;
   browser()&lt;br /&gt;
 } &lt;br /&gt;
*To continue generating the box plots, press enter.&lt;br /&gt;
**You will have to save 9 plots before you have completed the procedure. The last box plot is for spar.&lt;br /&gt;
* Warnings are OK.&lt;br /&gt;
* Zip the files of the plots together and upload to LionShare and/or save to a flash drive.&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/User:Kevinmcgee</id>
		<title>User:Kevinmcgee</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/User:Kevinmcgee"/>
				<updated>2015-05-18T17:03:35Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=Kevin McGee=&lt;br /&gt;
&lt;br /&gt;
==Contact Information==&lt;br /&gt;
&lt;br /&gt;
===Address===&lt;br /&gt;
&lt;br /&gt;
8020 Cowan Avenue,&lt;br /&gt;
Los Angeles, CA, 90045&lt;br /&gt;
&lt;br /&gt;
===Email Address===&lt;br /&gt;
&lt;br /&gt;
kmcgee3@lion.lmu.edu&lt;br /&gt;
&lt;br /&gt;
==Education==&lt;br /&gt;
&lt;br /&gt;
===August 2012-Present===&lt;br /&gt;
&lt;br /&gt;
[http://www.lmu.edu Loyola Marymount Universtiy]&lt;br /&gt;
&lt;br /&gt;
#Bachelors of Science of Biology&lt;br /&gt;
#*Expected Year of Graduation: 2016&lt;br /&gt;
#*Upper Division Biology Courses:&lt;br /&gt;
#**Biological Databases&lt;br /&gt;
#**Marine Biology&lt;br /&gt;
#**Physiology of Disease&lt;br /&gt;
#**Urban Ecology&lt;br /&gt;
#**Plant Interactions&lt;br /&gt;
&lt;br /&gt;
===Independent Research===&lt;br /&gt;
*Two semesters of research have been completed with the guidance of Dr. Dahlquist at Loyola Marymount University&lt;br /&gt;
*&amp;quot;Creating and Exporting a Combined GenMAPP Gene Database for &amp;#039;&amp;#039;Leishmania major&amp;#039;&amp;#039; and &amp;#039;&amp;#039;Leishmania infantum&amp;#039;&amp;#039; &amp;quot;&lt;br /&gt;
&lt;br /&gt;
==Work Experience==&lt;br /&gt;
&lt;br /&gt;
#Classroom Support Office&lt;br /&gt;
#*August 2013-Present&lt;br /&gt;
#*Field Technician&lt;br /&gt;
#*Responsible for responding to problems that teachers and students run into with the classrooms during class time&lt;br /&gt;
#*This includes all functions and connections of the computer, the projector, sound, laptops, etc.&lt;br /&gt;
#*Also included maintenance of the classroom (number of desks, markers and erasers, etc.)&lt;br /&gt;
&lt;br /&gt;
==Extra Curricular Work==&lt;br /&gt;
*The Crimson Circle&lt;br /&gt;
**On Campus Service Organization at Loyola Marymount University. Complete service on campus and in communities around Los Angeles&lt;br /&gt;
&lt;br /&gt;
==Personal Interests/Hobbies==&lt;br /&gt;
&lt;br /&gt;
#Anaheim Sports teams (Angel&amp;#039;s Baseball and Duck&amp;#039;s Hockey)&lt;br /&gt;
#Surfing&lt;br /&gt;
#Hiking&lt;br /&gt;
#Camping&lt;br /&gt;
#Television Shows&lt;br /&gt;
#*Breaking Bad&lt;br /&gt;
#*Game Of Thrones&lt;br /&gt;
#*Sons of Anarchy&lt;br /&gt;
&lt;br /&gt;
[[New Wiki Page]]&lt;br /&gt;
&lt;br /&gt;
Click here for a link to the [https://xmlpipedb.cs.lmu.edu/biodb/fall2013/index.php/Week_1 Week 1 Assignment page]&lt;br /&gt;
&lt;br /&gt;
Click here for a link to the [https://xmlpipedb.cs.lmu.edu/biodb/fall2013/index.php/Class_Journal_Week_1 Week 1 Journal]&lt;br /&gt;
&lt;br /&gt;
[[Category: User Page]]&lt;br /&gt;
[[Category: Individual Homework]]&lt;br /&gt;
&lt;br /&gt;
Click here for a link to my full resume [[media:Resume.pdf]]&lt;br /&gt;
&lt;br /&gt;
==Assignments==&lt;br /&gt;
&lt;br /&gt;
[[template:Kevin]]&lt;br /&gt;
&lt;br /&gt;
{{template:Kevin}}&lt;br /&gt;
&lt;br /&gt;
&amp;lt;!-- I should add more info to my work background --&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[User:Kevinmcgee|Kevinmcgee]] ([[User talk:Kevinmcgee|talk]]) 20:09, 3 September 2013 (PDT)&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Final_Project_Deliverables</id>
		<title>Final Project Deliverables</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Final_Project_Deliverables"/>
				<updated>2013-12-13T22:39:52Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: Added deliverables&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
:GenMAPP Gene Database for assigned species (.gdb): [[Media:LeishmaniaGDB Lena Gabe 20131205.zip]]&lt;br /&gt;
:ReadMe file to accompany the Gene Database (.pdf): [[Media:ReadMe Leishmania 20131212.pdf]]&lt;br /&gt;
:Gene Database Testing Report for final submitted Gene Database (print from wiki to .pdf file): [[Media:Leishmania Gene Database Testing Report.pdf]]&lt;br /&gt;
:Processed and analyzed DNA microarray dataset (.xls): [[File:L.majorStats.xls]],[[Media:L.infantumStats_B.xls]]&lt;br /&gt;
:GenMAPP Expression Dataset file (.gex): [[Media:LeishmaniaCompiledStatAnalysisLMJFiltered(B).gex]]&lt;br /&gt;
:Filtered MAPPFinder Results (.xls)[[File:LMajorFilteredIncreasedGOTerms.xls]] [[File:LMajorDecreasedFilteredGoTerms.xls]]&lt;br /&gt;
:Sample MAPP file of a relevant biological pathway for your species (.mapp)[[File: Arromatic_Compound_Catabolic_Process_Comparative_Pathway_Map.mapp]]&lt;br /&gt;
:Group Report describing the creation of the Gene Database and the biological analysis of the data (.doc or .pdf)[[File:LeishmaniaFinalPaper.pdf]]&lt;br /&gt;
:PowerPoint presentation (.ppt, given on Thursday, December 12): [[Media:Leishmania PowerPoint 12122013.pdf]]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaFinalPaper.pdf</id>
		<title>File:LeishmaniaFinalPaper.pdf</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaFinalPaper.pdf"/>
				<updated>2013-12-13T22:39:25Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LMajorDecreasedFilteredGoTerms.xls</id>
		<title>File:LMajorDecreasedFilteredGoTerms.xls</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LMajorDecreasedFilteredGoTerms.xls"/>
				<updated>2013-12-13T22:37:55Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LMajorFilteredIncreasedGOTerms.xls</id>
		<title>File:LMajorFilteredIncreasedGOTerms.xls</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LMajorFilteredIncreasedGOTerms.xls"/>
				<updated>2013-12-13T22:37:12Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LMajorDecreasedFilteredGoTerms.txt</id>
		<title>File:LMajorDecreasedFilteredGoTerms.txt</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LMajorDecreasedFilteredGoTerms.txt"/>
				<updated>2013-12-13T22:35:28Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Final_Project_Deliverables</id>
		<title>Final Project Deliverables</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Final_Project_Deliverables"/>
				<updated>2013-12-13T22:28:47Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
:GenMAPP Gene Database for assigned species (.gdb): [[Media:LeishmaniaGDB Lena Gabe 20131205.zip]]&lt;br /&gt;
:ReadMe file to accompany the Gene Database (.pdf): [[Media:ReadMe Leishmania 20131212.pdf]]&lt;br /&gt;
:Gene Database Testing Report for final submitted Gene Database (print from wiki to .pdf file): [[Media:Leishmania Gene Database Testing Report.pdf]]&lt;br /&gt;
:Processed and analyzed DNA microarray dataset (.xls): [[File:L.majorStats.xls]],[[Media:L.infantumStats_B.xls]]&lt;br /&gt;
:GenMAPP Expression Dataset file (.gex): [[Media:LeishmaniaCompiledStatAnalysisLMJFiltered(B).gex]]&lt;br /&gt;
:Filtered MAPPFinder Results (.xls)&lt;br /&gt;
:Sample MAPP file of a relevant biological pathway for your species (.mapp)[[File: Arromatic_Compound_Catabolic_Process_Comparative_Pathway_Map.mapp]]&lt;br /&gt;
:Group Report describing the creation of the Gene Database and the biological analysis of the data (.doc or .pdf)&lt;br /&gt;
:PowerPoint presentation (.ppt, given on Thursday, December 12): [[Media:Leishmania PowerPoint 12122013.pdf]]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Final_Project_Deliverables</id>
		<title>Final Project Deliverables</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Final_Project_Deliverables"/>
				<updated>2013-12-13T22:28:34Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: Added Map&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
:GenMAPP Gene Database for assigned species (.gdb): [[Media:LeishmaniaGDB Lena Gabe 20131205.zip]]&lt;br /&gt;
:ReadMe file to accompany the Gene Database (.pdf): [[Media:ReadMe Leishmania 20131212.pdf]]&lt;br /&gt;
:Gene Database Testing Report for final submitted Gene Database (print from wiki to .pdf file): [[Media:Leishmania Gene Database Testing Report.pdf]]&lt;br /&gt;
:Processed and analyzed DNA microarray dataset (.xls): [[File:L.majorStats.xls]],[[Media:L.infantumStats_B.xls]]&lt;br /&gt;
:GenMAPP Expression Dataset file (.gex): [[Media:LeishmaniaCompiledStatAnalysisLMJFiltered(B).gex]]&lt;br /&gt;
:Filtered MAPPFinder Results (.xls)&lt;br /&gt;
:Sample MAPP file of a relevant biological pathway for your species (.mapp)[[Arromatic_Compound_Catabolic_Process_Comparative_Pathway_Map.mapp]]&lt;br /&gt;
:Group Report describing the creation of the Gene Database and the biological analysis of the data (.doc or .pdf)&lt;br /&gt;
:PowerPoint presentation (.ppt, given on Thursday, December 12): [[Media:Leishmania PowerPoint 12122013.pdf]]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:Arromatic_Compound_Catabolic_Process_Comparative_Pathway_Map.mapp</id>
		<title>File:Arromatic Compound Catabolic Process Comparative Pathway Map.mapp</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:Arromatic_Compound_Catabolic_Process_Comparative_Pathway_Map.mapp"/>
				<updated>2013-12-13T22:27:49Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevin_McGee_Assessment_and_Reflection</id>
		<title>Kevin McGee Assessment and Reflection</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevin_McGee_Assessment_and_Reflection"/>
				<updated>2013-12-12T06:33:29Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: Created page with &amp;quot;Statement of Work Describe exactly what you did on the project. Kevinmcgee Week 10 # #*I used the PubMed database to find the reference geneome of Leishmania Major. #*I se...&amp;quot;&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;Statement of Work&lt;br /&gt;
Describe exactly what you did on the project.&lt;br /&gt;
[[Kevinmcgee Week 10]]&lt;br /&gt;
#&lt;br /&gt;
#*I used the PubMed database to find the reference geneome of Leishmania Major.&lt;br /&gt;
#*I searched with the terms &amp;quot;Leishmania Major [MeSH Terms] AND Genome [Title]&amp;quot;&lt;br /&gt;
#*The search terms came back with 30 articles &lt;br /&gt;
#*The 9th article was titled: &amp;#039;&amp;#039;The Genome of the kinetoplastid parasite, Leishmania Major&amp;#039;&amp;#039; (Ivens et al., 2005) This is the reference genome.&lt;br /&gt;
#*[http://www.ncbi.nlm.nih.gov/pubmed/16020728 Link to Article Online]&lt;br /&gt;
#&lt;br /&gt;
#*On Web of Science, I searched using the search terms &amp;quot;Leishmania Major&amp;quot; for the Title and &amp;quot;Ivens AC&amp;quot; for the author.&lt;br /&gt;
#*I got 7 article results back from my search terms. The 1st article was the reference genome that I found on PubMed.&lt;br /&gt;
#*The last thing that Ivens published was the genome sequence and has not had published work on Leishmania Major since then. However, looking at the people who have referenced his reference genome, you can see many of the directions people have taken his research. Many articles have been posted in the last year on determining Leishmania resistance to drugs and many properties of different proteins within the gene.&lt;br /&gt;
#&lt;br /&gt;
#*Didn&amp;#039;t find any good sources on Leishmania microarray data. Went to ArrayExpress, to look for arrays on Leishmania major to backtrack to articles.&lt;br /&gt;
#*I typed in &amp;quot;Leishmania Major&amp;quot; in the organism field and &amp;quot;Array assay&amp;quot; in the technology field and filtered down my results.&lt;br /&gt;
#*[http://europepmc.org/abstract/MED/18638379/reload=0;jsessionid=UIW9RunP1XHUGCaWD7p4.48 &amp;#039;&amp;#039;Modulation of gene expression in drug resistant Leishmania is associated with gene amplification, gene deletion and chromosome aneuploidy.&amp;#039;&amp;#039;] Found on ArrayExpress&lt;br /&gt;
#*[http://europepmc.org/abstract/MED/18510761 &amp;#039;&amp;#039;Genome-wide gene expression profiling analysis of Leishmania major and Leishmania infantum developmental stages reveals substantial differences between the two species.&amp;#039;&amp;#039;] Found on ArrayExpress&lt;br /&gt;
[[Kevinmcgee Week 11]] Journal club Reference article&lt;br /&gt;
[[Kevinmcgee Week 12]]&lt;br /&gt;
#Downloaded SDRF file off of the wiki.&lt;br /&gt;
#Started to edit SDRF file&lt;br /&gt;
#*Left the following columns while deleting the rest:&lt;br /&gt;
#**Source NAme&lt;br /&gt;
#**Characteristics&lt;br /&gt;
#**Comment (Sample_description)&lt;br /&gt;
#**Comment (Sample_source_name)&lt;br /&gt;
#**Label&lt;br /&gt;
#**Array Data File&lt;br /&gt;
#Filtered the file down to only L.Infantum samples&lt;br /&gt;
#Was left with the following image&lt;br /&gt;
#*[[image:SDRFL.Infantum (1).PNG]]&lt;br /&gt;
#*This image showed me what data was where when looking at the raw data files&lt;br /&gt;
#Proceeded to go into each data file  for L.Infantum and keeping the name of each gene along with the log ratio of each gene. &lt;br /&gt;
#Compiled all data into a single sheet&lt;br /&gt;
#Was left with the following image&lt;br /&gt;
#*[[image:L.InfantumCompiledRawData.PNG]]&lt;br /&gt;
#Uploaded the Compiled Raw data file onto the wiki&lt;br /&gt;
#*Sdrf file was uploaded by Viktoria&lt;br /&gt;
&lt;br /&gt;
[[Kevinmcgee Week 13]]&lt;br /&gt;
*Opened [[media:L.infantumCompliedRawData(A).txt | L.infantumCompliedRawData(A).txt]]&lt;br /&gt;
*Finished the formatting by flipping the dye swap chips negative&lt;br /&gt;
*Created a column next to dye swap chips and did the formula: &lt;br /&gt;
 =-1*(dye swap chip column)&lt;br /&gt;
*made a new sheet&lt;br /&gt;
*added all data from old sheet except only added the flipped dye swaps&lt;br /&gt;
*looked for background information in the array paper&lt;br /&gt;
**L. infantum MHOM/MA/67/ITMAP-263 and L. major LV39 MRHO/SU/59/P strains used in this study&lt;br /&gt;
**All microarray data will be freely available on the Geo NCBI database in the MIAME format&lt;br /&gt;
***The series accession number for our manuscript is GSE10407.&lt;br /&gt;
**Each chip compares promastigote vs. amastigote with different replicates&lt;br /&gt;
**Following data files found&lt;br /&gt;
[[File:LmjSampleInfo.PNG]]&lt;br /&gt;
*Finished naming sheet with helpful names to know what is what on the sheet&lt;br /&gt;
*Ready for statistical analysis&lt;br /&gt;
*Began analysis by taking the average and standard deviation of our data chips seperately and using that information to scale and center our data:&lt;br /&gt;
 =(B4-B$2)/B$3 This shows the equation we used to scale and center.&lt;br /&gt;
*Copied and pasted values of scaled centered onto a new page. From there, we edited out all VALUE! cells and left them blank. GenMAPP will ignore these blanks when we input our data.&lt;br /&gt;
*Made a column of the average fold change for each gene call Avg_LogFC_All&lt;br /&gt;
 Average B2:G2&lt;br /&gt;
*Made a column of the Tstat and Pvalue for the fold changes of each gene:&lt;br /&gt;
 =AVERAGE(B2:G2)/STDEV(B2:G2)/SQRT(6) TStat&lt;br /&gt;
 =TDIST(ABS(I2),5,2) Pvalue&lt;br /&gt;
*Created a new page titled forGENMAPP&lt;br /&gt;
**Copied and pasted all values from statistics page&lt;br /&gt;
*Cut and pasted columns H-J and moved them to columns B-D&lt;br /&gt;
*Inserted a new column at B called System Code. Filled in column with the letter N&lt;br /&gt;
*File is now ready for GenMAPP import&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
*Sample of what the final file looked like&lt;br /&gt;
[[File:L.InfantumforGenMAPP.PNG]]&lt;br /&gt;
&lt;br /&gt;
[[Kevinmcgee Week 15]]&lt;br /&gt;
=Uploading Into GenMAPP=&lt;br /&gt;
==Datasheet==&lt;br /&gt;
#compiled all data onto a single data sheet including both L.Major and L.Infantum and uploaded into GenMAPP&lt;br /&gt;
#*Ran into some problems uploading (almost everything was an error)&lt;br /&gt;
#Filtered out any Lin genes and created a new datasheet for only LmfJ genes.&lt;br /&gt;
#*Still ran into problems uploading&lt;br /&gt;
#looked at the database OrthologicalNames sheet, and saw that the GeneID&amp;#039;s were in a different format on there then in the spreadsheet.&lt;br /&gt;
#*Made a quick-fix file by changing the names on the spreadsheet, but longterm fixes are being made to the coding so that other users do not have to change the names on their spreadsheets every time (for convenience).&lt;br /&gt;
#Were able to upload our data and continue on with the project.&lt;br /&gt;
==Sanity Check==&lt;br /&gt;
===Leishmania Infantum===&lt;br /&gt;
#Filtered P-value&lt;br /&gt;
#*1392 genes were &amp;lt;.05&lt;br /&gt;
#*327 genes were &amp;lt;.01&lt;br /&gt;
#*67 genes were &amp;lt;.001&lt;br /&gt;
#*28 genes were &amp;gt;.0001 &lt;br /&gt;
#Filtered Average Log Fold Change &lt;br /&gt;
#*748 genes were &amp;gt;0&lt;br /&gt;
#*646 genes were &amp;lt;0&lt;br /&gt;
#*699 genes were &amp;gt;.25 while 646 were &amp;lt;.05&lt;br /&gt;
#*748 genes were &amp;gt;.05 while 606 were &amp;lt;.-25&lt;br /&gt;
==MAPPFinder Color Changes==&lt;br /&gt;
#The colors were assigned to the two main criterion&lt;br /&gt;
#*Increased relative to control had a Log FC&amp;gt; 0.25 and P-Value &amp;lt;0.05 these were colored blue&lt;br /&gt;
#*Decreased relative to control had a Log FC&amp;lt; -0.25 and P-Value &amp;lt;0.05 these were colored purple&lt;br /&gt;
==Running MAPPFinder==&lt;br /&gt;
*Set up MAPPFinder to run with the file name LMajorGOMap&lt;br /&gt;
*Ran for about 1 1/2 hours&lt;br /&gt;
#Top Ten GO Terms&lt;br /&gt;
#*catalytic activity&lt;br /&gt;
#*Endonuclease activity&lt;br /&gt;
#*DNA catabolic process&lt;br /&gt;
#*Aromatic compound catabolic process&lt;br /&gt;
#*cellular nitrogen compound catabolic process&lt;br /&gt;
#*nucleobase-containing compound catabolic process&lt;br /&gt;
#*organic cyclic compound catabolic process&lt;br /&gt;
#*heterocycle catabolic process&lt;br /&gt;
#*oxidoreductase activity&lt;br /&gt;
#*macromolecular complex&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[image: Picture GO.PNG]]&lt;br /&gt;
=== Statement of Work ===&lt;br /&gt;
&lt;br /&gt;
* Describe exactly what you did on the project.&lt;br /&gt;
* Provide references or links to artifacts of your work, such as:&lt;br /&gt;
** Wiki pages&lt;br /&gt;
** Other files or documents&lt;br /&gt;
** Code or scripts&lt;br /&gt;
&lt;br /&gt;
=== Assessment of Project ===&lt;br /&gt;
&lt;br /&gt;
* Give an objective assessment of the success of your project workflow and teamwork.  &lt;br /&gt;
* What worked and what didn&amp;#039;t work?  &lt;br /&gt;
* What would you do differently if you could do it all over again?&lt;br /&gt;
* Evaluate the Gene Database Project and Group Report in the following areas:&lt;br /&gt;
*# Content: What is the quality of the work? &lt;br /&gt;
*# Organization: Comment on the organization of the project and of your group&amp;#039;s wiki pages.&lt;br /&gt;
*# Completeness:  Did your team achieve all of the project objectives?  Why or why not?&lt;br /&gt;
&lt;br /&gt;
=== Reflection on the Process ===&lt;br /&gt;
&lt;br /&gt;
* What did you learn?&lt;br /&gt;
** With your head (biological or computer science principles)&lt;br /&gt;
** With your heart (personal qualities and teamwork qualities that make things work or not work)?&lt;br /&gt;
** With your hands (technical skills)?&lt;br /&gt;
* What lesson will you take away from this project that you will still use a year from now?&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Template:Kevin</id>
		<title>Template:Kevin</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Template:Kevin"/>
				<updated>2013-12-12T06:26:17Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;*[[Week 1]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 1]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 2]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 2]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 2]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 3]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 3]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 3]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 4]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 4]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 4]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 5]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 5]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 5]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 6]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 6]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 6]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 7]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 7]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 7]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 8]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 8]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 8]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 9]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 9]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 9]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 10]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 10]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 10]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 11]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 11]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 12]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 12]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 13]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 13]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 15]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 15]]&lt;br /&gt;
&lt;br /&gt;
*[[Ensembl Database]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevin McGee Assessment and Reflection]]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Template:Kevin</id>
		<title>Template:Kevin</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Template:Kevin"/>
				<updated>2013-12-12T06:25:43Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;*[[Week 1]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 1]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 2]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 2]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 2]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 3]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 3]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 3]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 4]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 4]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 4]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 5]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 5]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 5]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 6]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 6]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 6]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 7]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 7]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 7]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 8]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 8]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 8]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 9]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 9]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 9]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 10]]&lt;br /&gt;
&lt;br /&gt;
*[[Class Journal Week 10]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 10]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 11]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 11]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 12]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 12]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 13]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 13]]&lt;br /&gt;
&lt;br /&gt;
*[[Week 15]]&lt;br /&gt;
&lt;br /&gt;
*[[Kevinmcgee Week 15]]&lt;br /&gt;
&lt;br /&gt;
*[[Ensembl Database]]&lt;br /&gt;
&lt;br /&gt;
*[[Individual Assessment and Reflection]]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Template:Leishmania_Major_File_Updates</id>
		<title>Template:Leishmania Major File Updates</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Template:Leishmania_Major_File_Updates"/>
				<updated>2013-12-08T01:23:08Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;#11/5/2013&lt;br /&gt;
#*[[Media:A-GEOD-6855.adf_A.txt]] Array Design File&lt;br /&gt;
#*[[Media:E-GEOD-10407.idf_A.txt]] Investigation Description File&lt;br /&gt;
#*[[Media:E-GEOD-10407.processed.1_A.zip]] Processed Data&lt;br /&gt;
#*[[Media:E-GEOD-10407.raw.1_A.zip]] Raw Data&lt;br /&gt;
#*[[Media:E-GEOD-10407.sdrf_A.txt]] Sample and Data Relationship File&lt;br /&gt;
#11/7/2013&lt;br /&gt;
#*[[Media:E-GEOD-10407.sdrf_B.txt]] Leishmania major Chips&lt;br /&gt;
#*Completed Import/Export Cycle, conducted a Tally Count, opened .gdb file in Microsoft Access and compared original row counts.&lt;br /&gt;
#*Access was missing 2 genes for GeneID and RefSeq, and we had no GO terms in the Tally or in Access.&lt;br /&gt;
#11/11/2013&lt;br /&gt;
#*[[Media:Leishmania_major_BD.pdf|Leishmania major Genome Reference Article Presentation]]&lt;br /&gt;
#11/14/13&lt;br /&gt;
#*[[Media:E-GEOD-10407.sdrf_C.txt]] Edited Sample and Data (Ordered based on species and relevant data)&lt;br /&gt;
#*[[Media:L.majorCompiledRawData.txt]] L. major raw compiled data&lt;br /&gt;
#*[[Media:L.infantumCompliedRawData(A).txt]] L. infantum  raw compiled data&lt;br /&gt;
#11/19/2013:&lt;br /&gt;
#*[[Media:L.majorCompiledRawData_B.txt]] L. major raw compiled data with adjusted dye swap values&lt;br /&gt;
#*[[Media:L.infantumCompliedRawData(B).txt]]  L. infantum raw compiled data with adjusted dye swap values and sample names&lt;br /&gt;
#*[[Media:L.majorCompiledRawData_C.txt]] L. major raw compiled data with adjusted dye swap values and sample names&lt;br /&gt;
#11/21/2013&lt;br /&gt;
#*[[Media:L.infantumStats.txt]]&lt;br /&gt;
#*[[Media:L.infantumStats.xls]]&lt;br /&gt;
#*[[File:L.majorStats.xls]]&lt;br /&gt;
#*[[File:L.majorStats.txt]]&lt;br /&gt;
#*[[File:L.majorStats(A).txt]]&lt;br /&gt;
#*[[File:L.infantumStats(A).txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysis.txt]]&lt;br /&gt;
#12/3/2013&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysis(A).txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysis(A).EX.txt]]&lt;br /&gt;
#*[[Media:L.infantumStats_B.xls]] Fixed infantum p-value parenthesis&lt;br /&gt;
#*[[Media:LeishmaniaCompiledStatAnalysis(B).txt]]&lt;br /&gt;
#*[[Media:LeishmaniaCompiledStatAnalysisLMJFiltered.txt]] Original File That should work in GenMAPP once coding is fixed&lt;br /&gt;
#*[[Media:LeishmaniaCompiledStatAnalysisLMJFiltered(B).txt]] Quick fix file with underscores to work in GenMAPP until coding is fixed&lt;br /&gt;
#*[[Media:LeishmaniaCompiledStatAnalysisLMJFiltered(B).EX.txt]]&lt;br /&gt;
#*[[Media:LeishmaniaCompiledStatAnalysisLMJFiltered(B).gex]]&lt;br /&gt;
#*[[Media:ExceptionFileErrorID.txt]]&lt;br /&gt;
#*[[Leishmania Major Group Project Report]]&lt;br /&gt;
#*[[Media:Dist Leishmania Lena Gabe 05112013.zip]]&lt;br /&gt;
#12/5/2013&lt;br /&gt;
#*[[Media:LeishmaniaGDB Lena Gabe 20131205.zip]]&lt;br /&gt;
#12/7/2013&lt;br /&gt;
#*[[File:LMajorGOMapp-Criterion1-GO.txt ]]&lt;br /&gt;
#*[[File:LMajorGOMapp-Criterion0-GO.txt]]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LMajorGOMapp-Criterion0-GO.txt</id>
		<title>File:LMajorGOMapp-Criterion0-GO.txt</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LMajorGOMapp-Criterion0-GO.txt"/>
				<updated>2013-12-08T01:22:24Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LMajorGOMapp-Criterion1-GO.txt</id>
		<title>File:LMajorGOMapp-Criterion1-GO.txt</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LMajorGOMapp-Criterion1-GO.txt"/>
				<updated>2013-12-08T01:21:41Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15</id>
		<title>Kevinmcgee Week 15</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15"/>
				<updated>2013-12-08T01:01:07Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: /* Running MAPPFinder */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=Uploading Into GenMAPP=&lt;br /&gt;
==Datasheet==&lt;br /&gt;
#compiled all data onto a single data sheet including both L.Major and L.Infantum and uploaded into GenMAPP&lt;br /&gt;
#*Ran into some problems uploading (almost everything was an error)&lt;br /&gt;
#Filtered out any Lin genes and created a new datasheet for only LmfJ genes.&lt;br /&gt;
#*Still ran into problems uploading&lt;br /&gt;
#looked at the database OrthologicalNames sheet, and saw that the GeneID&amp;#039;s were in a different format on there then in the spreadsheet.&lt;br /&gt;
#*Made a quick-fix file by changing the names on the spreadsheet, but longterm fixes are being made to the coding so that other users do not have to change the names on their spreadsheets every time (for convenience).&lt;br /&gt;
#Were able to upload our data and continue on with the project.&lt;br /&gt;
==Sanity Check==&lt;br /&gt;
===Leishmania Infantum===&lt;br /&gt;
#Filtered P-value&lt;br /&gt;
#*1392 genes were &amp;lt;.05&lt;br /&gt;
#*327 genes were &amp;lt;.01&lt;br /&gt;
#*67 genes were &amp;lt;.001&lt;br /&gt;
#*28 genes were &amp;gt;.0001 &lt;br /&gt;
#Filtered Average Log Fold Change &lt;br /&gt;
#*748 genes were &amp;gt;0&lt;br /&gt;
#*646 genes were &amp;lt;0&lt;br /&gt;
#*699 genes were &amp;gt;.25 while 646 were &amp;lt;.05&lt;br /&gt;
#*748 genes were &amp;gt;.05 while 606 were &amp;lt;.-25&lt;br /&gt;
==MAPPFinder Color Changes==&lt;br /&gt;
#The colors were assigned to the two main criterion&lt;br /&gt;
#*Increased relative to control had a Log FC&amp;gt; 0.25 and P-Value &amp;lt;0.05 these were colored blue&lt;br /&gt;
#*Decreased relative to control had a Log FC&amp;lt; -0.25 and P-Value &amp;lt;0.05 these were colored purple&lt;br /&gt;
==Running MAPPFinder==&lt;br /&gt;
*Set up MAPPFinder to run with the file name LMajorGOMap&lt;br /&gt;
*Ran for about 1 1/2 hours&lt;br /&gt;
#Top Ten GO Terms&lt;br /&gt;
#*catalytic activity&lt;br /&gt;
#*Endonuclease activity&lt;br /&gt;
#*DNA catabolic process&lt;br /&gt;
#*Aromatic compound catabolic process&lt;br /&gt;
#*cellular nitrogen compound catabolic process&lt;br /&gt;
#*nucleobase-containing compound catabolic process&lt;br /&gt;
#*organic cyclic compound catabolic process&lt;br /&gt;
#*heterocycle catabolic process&lt;br /&gt;
#*oxidoreductase activity&lt;br /&gt;
#*macromolecular complex&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[image: Picture GO.PNG]]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:Picture_GO.PNG</id>
		<title>File:Picture GO.PNG</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:Picture_GO.PNG"/>
				<updated>2013-12-08T01:00:13Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15</id>
		<title>Kevinmcgee Week 15</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15"/>
				<updated>2013-12-07T23:25:30Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: Added answers&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=Uploading Into GenMAPP=&lt;br /&gt;
==Datasheet==&lt;br /&gt;
#compiled all data onto a single data sheet including both L.Major and L.Infantum and uploaded into GenMAPP&lt;br /&gt;
#*Ran into some problems uploading (almost everything was an error)&lt;br /&gt;
#Filtered out any Lin genes and created a new datasheet for only LmfJ genes.&lt;br /&gt;
#*Still ran into problems uploading&lt;br /&gt;
#looked at the database OrthologicalNames sheet, and saw that the GeneID&amp;#039;s were in a different format on there then in the spreadsheet.&lt;br /&gt;
#*Made a quick-fix file by changing the names on the spreadsheet, but longterm fixes are being made to the coding so that other users do not have to change the names on their spreadsheets every time (for convenience).&lt;br /&gt;
#Were able to upload our data and continue on with the project.&lt;br /&gt;
==Sanity Check==&lt;br /&gt;
===Leishmania Infantum===&lt;br /&gt;
#Filtered P-value&lt;br /&gt;
#*1392 genes were &amp;lt;.05&lt;br /&gt;
#*327 genes were &amp;lt;.01&lt;br /&gt;
#*67 genes were &amp;lt;.001&lt;br /&gt;
#*28 genes were &amp;gt;.0001 &lt;br /&gt;
#Filtered Average Log Fold Change &lt;br /&gt;
#*748 genes were &amp;gt;0&lt;br /&gt;
#*646 genes were &amp;lt;0&lt;br /&gt;
#*699 genes were &amp;gt;.25 while 646 were &amp;lt;.05&lt;br /&gt;
#*748 genes were &amp;gt;.05 while 606 were &amp;lt;.-25&lt;br /&gt;
==MAPPFinder Color Changes==&lt;br /&gt;
#The colors were assigned to the two main criterion&lt;br /&gt;
#*Increased relative to control had a Log FC&amp;gt; 0.25 and P-Value &amp;lt;0.05 these were colored blue&lt;br /&gt;
#*Decreased relative to control had a Log FC&amp;lt; -0.25 and P-Value &amp;lt;0.05 these were colored purple&lt;br /&gt;
==Running MAPPFinder==&lt;br /&gt;
*Set up MAPPFinder to run with the file name LMajorGOMap&lt;br /&gt;
*Ran for about 1 1/2 hours&lt;br /&gt;
#Top Ten GO Terms&lt;br /&gt;
#*catalytic activity&lt;br /&gt;
#*Endonuclease activity&lt;br /&gt;
#*DNA catabolic process&lt;br /&gt;
#*Aromatic compound catabolic process&lt;br /&gt;
#*cellular nitrogen compound catabolic process&lt;br /&gt;
#*nucleobase-containing compound catabolic process&lt;br /&gt;
#*organic cyclic compound catabolic process&lt;br /&gt;
#*heterocycle catabolic process&lt;br /&gt;
#*oxidoreductase activity&lt;br /&gt;
#*macromolecular complex&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Leishmania_major_Week_15_Status_Report</id>
		<title>Leishmania major Week 15 Status Report</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Leishmania_major_Week_15_Status_Report"/>
				<updated>2013-12-05T19:08:24Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;== Team Journal Assignment Week 15 ==&lt;br /&gt;
===Status report as to progress on each milestone that that you have set for the week:===&lt;br /&gt;
#GenMAPP users:&lt;br /&gt;
#*Did sanity check for the p-values of both L. major and L. infantum&lt;br /&gt;
#*Created GenMAPP criteria and colorsets&lt;br /&gt;
#*Ran MAPPFiner and are waiting for results&lt;br /&gt;
#*:For more details on these steps refer to [[Vkuehn Week 15]] and [[Kevinmcgee Week 15]]&lt;br /&gt;
#QA:&lt;br /&gt;
#Coder:&lt;br /&gt;
&lt;br /&gt;
=== Reflection ===&lt;br /&gt;
Each team member should reflect on the team&amp;#039;s progress:&lt;br /&gt;
&lt;br /&gt;
[[User:Vkuehn|Viktoria Kuehn]]&lt;br /&gt;
# What worked: We successfully looked at the results of our P-values and created the GenMAPP criteria and colorsets. &lt;br /&gt;
# What didn&amp;#039;t work: We are waiting for MAPPFinder to give us results.&lt;br /&gt;
# What will I do next to fix what didn&amp;#039;t work: If it does not work within 2 hours we will have to try it again and make sure no errors were made. &lt;br /&gt;
[[User:Vkuehn|Vkuehn]] ([[User talk:Vkuehn|talk]]) 11:03, 5 December 2013 (PST)&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;[[User:Kevinmcgee|Kevin McGee]]&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
#We were able to troubleshoot any problems with uploading our data into GenMAPP by going through everything step by step&lt;br /&gt;
#We were held up at times by errors that involved us to wait long amounts of time. For instance, we need to export a new gene database, however we could not because postgress was already being used on the computer we were using. therefore, we had to wait hours for that to finish so we could export our database. We should plan ahead better so we don&amp;#039;t have to wait like that.&lt;br /&gt;
#I don&amp;#039;t know what we could do to fix that other than stay on our computers we had been working on the whole time&lt;br /&gt;
[[User:Kevinmcgee|Kevinmcgee]] ([[User talk:Kevinmcgee|talk]]) 11:08, 5 December 2013 (PST)&lt;br /&gt;
&lt;br /&gt;
{{Template:Leishmania Major Navigation}}&lt;br /&gt;
[[Category:Assignment]]&lt;br /&gt;
[[Category: Group Projects]]&lt;br /&gt;
[[Category: Journal Entry]]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Leishmania_major_Week_15_Status_Report</id>
		<title>Leishmania major Week 15 Status Report</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Leishmania_major_Week_15_Status_Report"/>
				<updated>2013-12-05T19:08:07Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: Added Reflection&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;== Team Journal Assignment Week 15 ==&lt;br /&gt;
===Status report as to progress on each milestone that that you have set for the week:===&lt;br /&gt;
#GenMAPP users:&lt;br /&gt;
#*Did sanity check for the p-values of both L. major and L. infantum&lt;br /&gt;
#*Created GenMAPP criteria and colorsets&lt;br /&gt;
#*Ran MAPPFiner and are waiting for results&lt;br /&gt;
#*:For more details on these steps refer to [[Vkuehn Week 15]] and [[Kevinmcgee Week 15]]&lt;br /&gt;
#QA:&lt;br /&gt;
#Coder:&lt;br /&gt;
&lt;br /&gt;
=== Reflection ===&lt;br /&gt;
Each team member should reflect on the team&amp;#039;s progress:&lt;br /&gt;
&lt;br /&gt;
[[User:Vkuehn|Viktoria Kuehn]]&lt;br /&gt;
# What worked: We successfully looked at the results of our P-values and created the GenMAPP criteria and colorsets. &lt;br /&gt;
# What didn&amp;#039;t work: We are waiting for MAPPFinder to give us results.&lt;br /&gt;
# What will I do next to fix what didn&amp;#039;t work: If it does not work within 2 hours we will have to try it again and make sure no errors were made. &lt;br /&gt;
[[User:Vkuehn|Vkuehn]] ([[User talk:Vkuehn|talk]]) 11:03, 5 December 2013 (PST)&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;[[User:Kevinmcgee|Kevin McGee]]&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
#We were able to troubleshoot any problems with uploading our data into GenMAPP by going through everything step by step&lt;br /&gt;
#We were held up at times by errors that involved us to wait long amounts of time. For instance, we need to export a new gene database, however we could not because postgress was already being used on the computer we were using. therefore, we had to wait hours for that to finish so we could export our database. We should plan ahead better so we don&amp;#039;t have to wait like that.&lt;br /&gt;
#I don&amp;#039;t know what we could do to fix that other than stay on our computers we had been working on the whole time&lt;br /&gt;
&lt;br /&gt;
{{Template:Leishmania Major Navigation}}&lt;br /&gt;
[[Category:Assignment]]&lt;br /&gt;
[[Category: Group Projects]]&lt;br /&gt;
[[Category: Journal Entry]]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15</id>
		<title>Kevinmcgee Week 15</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15"/>
				<updated>2013-12-05T18:52:57Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=Uploading Into GenMAPP=&lt;br /&gt;
==Datasheet==&lt;br /&gt;
#compiled all data onto a single data sheet including both L.Major and L.Infantum and uploaded into GenMAPP&lt;br /&gt;
#*Ran into some problems uploading (almost everything was an error)&lt;br /&gt;
#Filtered out any Lin genes and created a new datasheet for only LmfJ genes.&lt;br /&gt;
#*Still ran into problems uploading&lt;br /&gt;
#looked at the database OrthologicalNames sheet, and saw that the GeneID&amp;#039;s were in a different format on there then in the spreadsheet.&lt;br /&gt;
#*Made a quick-fix file by changing the names on the spreadsheet, but longterm fixes are being made to the coding so that other users do not have to change the names on their spreadsheets every time (for convenience).&lt;br /&gt;
#Were able to upload our data and continue on with the project.&lt;br /&gt;
==Sanity Check==&lt;br /&gt;
===Leishmania Infantum===&lt;br /&gt;
#Filtered P-value&lt;br /&gt;
#*1392 genes were &amp;lt;.05&lt;br /&gt;
#*327 genes were &amp;lt;.01&lt;br /&gt;
#*67 genes were &amp;lt;.001&lt;br /&gt;
#*28 genes were &amp;gt;.0001 &lt;br /&gt;
#Filtered Average Log Fold Change &lt;br /&gt;
#*748 genes were &amp;gt;0&lt;br /&gt;
#*646 genes were &amp;lt;0&lt;br /&gt;
#*699 genes were &amp;gt;.25 while 646 were &amp;lt;.05&lt;br /&gt;
#*748 genes were &amp;gt;.05 while 606 were &amp;lt;.-25&lt;br /&gt;
&lt;br /&gt;
==MAPPFinder Color Changes==&lt;br /&gt;
#The colors were assigned to the two main criterion&lt;br /&gt;
#*Increased relative to control had a Log FC&amp;gt; 0.25 and P-Value &amp;lt;0.05 these were colored blue&lt;br /&gt;
#*Decreased relative to control had a Log FC&amp;lt; -0.25 and P-Value &amp;lt;0.05 these were colored purple&lt;br /&gt;
==Running MAPPFinder==&lt;br /&gt;
#Set up MAPPFinder to run with the file name LMajorGOMap&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15</id>
		<title>Kevinmcgee Week 15</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15"/>
				<updated>2013-12-05T18:51:28Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=Uploading Into GenMAPP=&lt;br /&gt;
==Datasheet==&lt;br /&gt;
#compiled all data onto a single data sheet including both L.Major and L.Infantum and uploaded into GenMAPP&lt;br /&gt;
#*Ran into some problems uploading (almost everything was an error)&lt;br /&gt;
#Filtered out any Lin genes and created a new datasheet for only LmfJ genes.&lt;br /&gt;
#*Still ran into problems uploading&lt;br /&gt;
#looked at the database OrthologicalNames sheet, and saw that the GeneID&amp;#039;s were in a different format on there then in the spreadsheet.&lt;br /&gt;
#*Made a quick-fix file by changing the names on the spreadsheet, but longterm fixes are being made to the coding so that other users do not have to change the names on their spreadsheets every time (for convenience).&lt;br /&gt;
#Were able to upload our data and continue on with the project.&lt;br /&gt;
==Sanity Check==&lt;br /&gt;
===Leishmania Infantum===&lt;br /&gt;
#Filtered P-value&lt;br /&gt;
#*1392 genes were &amp;lt;.05&lt;br /&gt;
#*327 genes were &amp;lt;.01&lt;br /&gt;
#*67 genes were &amp;lt;.001&lt;br /&gt;
#*28 genes were &amp;gt;.0001 &lt;br /&gt;
#Filtered Average Log Fold Change &lt;br /&gt;
#*748 genes were &amp;gt;0&lt;br /&gt;
#*646 genes were &amp;lt;0&lt;br /&gt;
#*699 genes were &amp;gt;.25 while 646 were &amp;lt;.05&lt;br /&gt;
#*748 genes were &amp;gt;.05 while 606 were &amp;lt;.-25&lt;br /&gt;
&lt;br /&gt;
==GenMAPP Finder Color Changes==&lt;br /&gt;
#The colors were assigned to the two main criterion&lt;br /&gt;
#*Increased relative to control had a Log FC&amp;gt; 0.25 and P-Value &amp;lt;0.05 these were colored blue&lt;br /&gt;
#*Decreased relative to control had a Log FC&amp;lt; -0.25 and P-Value &amp;lt;0.05 these were colored purple&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15</id>
		<title>Kevinmcgee Week 15</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15"/>
				<updated>2013-12-05T18:28:31Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=Uploading Into GenMAPP=&lt;br /&gt;
==Datasheet==&lt;br /&gt;
#compiled all data onto a single data sheet including both L.Major and L.Infantum and uploaded into GenMAPP&lt;br /&gt;
#*Ran into some problems uploading (almost everything was an error)&lt;br /&gt;
#Filtered out any Lin genes and created a new datasheet for only LmfJ genes.&lt;br /&gt;
#*Still ran into problems uploading&lt;br /&gt;
#looked at the database OrthologicalNames sheet, and saw that the GeneID&amp;#039;s were in a different format on there then in the spreadsheet.&lt;br /&gt;
#*Made a quick-fix file by changing the names on the spreadsheet, but longterm fixes are being made to the coding so that other users do not have to change the names on their spreadsheets every time (for convenience).&lt;br /&gt;
#Were able to upload our data and continue on with the project.&lt;br /&gt;
==Sanity Check==&lt;br /&gt;
===Leishmania Infantum===&lt;br /&gt;
#Filtered P-value&lt;br /&gt;
#*1392 genes were &amp;lt;.05&lt;br /&gt;
#*327 genes were &amp;lt;.01&lt;br /&gt;
#*67 genes were &amp;lt;.001&lt;br /&gt;
#*28 genes were &amp;gt;.0001 &lt;br /&gt;
#Filtered Average Log Fold Change &lt;br /&gt;
#*748 genes were &amp;gt;0&lt;br /&gt;
#*646 genes were &amp;lt;0&lt;br /&gt;
#*699 genes were &amp;gt;.25 while 646 were &amp;lt;.05&lt;br /&gt;
#*748 genes were &amp;gt;.05 while 606 were &amp;lt;.-25&lt;br /&gt;
&lt;br /&gt;
==GenMAPP Finder Color Changes==&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15</id>
		<title>Kevinmcgee Week 15</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15"/>
				<updated>2013-12-05T18:19:12Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: updated answers&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=Uploading Into GenMAPP=&lt;br /&gt;
&lt;br /&gt;
=Sanity Check=&lt;br /&gt;
==Leishmania Infantum==&lt;br /&gt;
#Filtered P-value&lt;br /&gt;
#*1392 genes were &amp;lt;.05&lt;br /&gt;
#*327 genes were &amp;lt;.01&lt;br /&gt;
#*67 genes were &amp;lt;.001&lt;br /&gt;
#*28 genes were &amp;gt;.0001 &lt;br /&gt;
#Filtered Average Log Fold Change &lt;br /&gt;
#*748 genes were &amp;gt;0&lt;br /&gt;
#*646 genes were &amp;lt;0&lt;br /&gt;
#*699 genes were &amp;gt;.25 while 646 were &amp;lt;.05&lt;br /&gt;
#*748 genes were &amp;gt;.05 while 606 were &amp;lt;.-25&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15</id>
		<title>Kevinmcgee Week 15</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Kevinmcgee_Week_15"/>
				<updated>2013-12-05T18:02:40Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: Added Sanity Check&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;=Sanity Check=&lt;br /&gt;
==Leishmania Infantum==&lt;br /&gt;
#Filtered P-value&lt;br /&gt;
#*12 genes were &amp;lt;.05&lt;br /&gt;
#*6 genes were &amp;lt;.01&lt;br /&gt;
#*2 genes were &amp;lt;.001&lt;br /&gt;
#*1 gene was =.0001 (Blank_G20)&lt;br /&gt;
#Filtered Average Log Fold Change &lt;br /&gt;
#*10 genes were &amp;gt;0&lt;br /&gt;
#*2 genes were &amp;lt;0&lt;br /&gt;
#*10 genes were &amp;gt;.25 while 2 were &amp;lt;.05&lt;br /&gt;
#*10 genes were &amp;gt;.05 while 2 were &amp;lt;.-25&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Template:Leishmania_Major_File_Updates</id>
		<title>Template:Leishmania Major File Updates</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Template:Leishmania_Major_File_Updates"/>
				<updated>2013-12-03T18:56:46Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: Added Descriptions&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;#11/5/2013&lt;br /&gt;
#*[[Media:A-GEOD-6855.adf_A.txt]] Array Design File&lt;br /&gt;
#*[[Media:E-GEOD-10407.idf_A.txt]] Investigation Description File&lt;br /&gt;
#*[[Media:E-GEOD-10407.processed.1_A.zip]] Processed Data&lt;br /&gt;
#*[[Media:E-GEOD-10407.raw.1_A.zip]] Raw Data&lt;br /&gt;
#*[[Media:E-GEOD-10407.sdrf_A.txt]] Sample and Data Relationship File&lt;br /&gt;
#11/7/2013&lt;br /&gt;
#*[[Media:E-GEOD-10407.sdrf_B.txt]] Leishmania major Chips&lt;br /&gt;
#*Completed Import/Export Cycle, conducted a Tally Count, opened .gdb file in Microsoft Access and compared original row counts.&lt;br /&gt;
#*Access was missing 2 genes for GeneID and RefSeq, and we had no GO terms in the Tally or in Access.&lt;br /&gt;
#11/11/2013&lt;br /&gt;
#*[[Media:Leishmania_major_BD.pdf|Leishmania major Genome Reference Article Presentation]]&lt;br /&gt;
#11/14/13&lt;br /&gt;
#*[[Media:E-GEOD-10407.sdrf_C.txt]] Edited Sample and Data (Ordered based on species and relevant data)&lt;br /&gt;
#*[[Media:L.majorCompiledRawData.txt]] L. major raw compiled data&lt;br /&gt;
#*[[Media:L.infantumCompliedRawData(A).txt]] L. infantum  raw compiled data&lt;br /&gt;
#11/19/2013:&lt;br /&gt;
#*[[Media:L.majorCompiledRawData_B.txt]] L. major raw compiled data with adjusted dye swap values&lt;br /&gt;
#*[[Media:L.infantumCompliedRawData(B).txt]]  L. infantum raw compiled data with adjusted dye swap values and sample names&lt;br /&gt;
#*[[Media:L.majorCompiledRawData_C.txt]] L. major raw compiled data with adjusted dye swap values and sample names&lt;br /&gt;
#11/21/2013&lt;br /&gt;
#*[[Media:L.infantumStats.txt]]&lt;br /&gt;
#*[[Media:L.infantumStats.xls]]&lt;br /&gt;
#*[[File:L.majorStats.xls]]&lt;br /&gt;
#*[[File:L.majorStats.txt]]&lt;br /&gt;
#11/28/2013&lt;br /&gt;
#*[[File:L.majorStats(A).txt]]&lt;br /&gt;
#*[[File:L.infantumStats(A).txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysis.txt]]&lt;br /&gt;
#12/3/2013&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysis(A).txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysis(A).EX.txt]]&lt;br /&gt;
#*[[File:L.infantumStats_B.xls]] Fixed infantum p-value parenthesis&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysis(B).txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysisLMJFiltered.txt]] Original File That should work in GenMAPP once coding is fixed&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).txt]] Quick fix file with underscores to work in GenMAPP until coding is fixed&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).EX.txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).gex]]&lt;br /&gt;
#*[[File:ExceptionFileErrorID.txt]]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Template:Leishmania_Major_File_Updates</id>
		<title>Template:Leishmania Major File Updates</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/Template:Leishmania_Major_File_Updates"/>
				<updated>2013-12-03T18:55:16Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: Uploaded files from today&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;#11/5/2013&lt;br /&gt;
#*[[Media:A-GEOD-6855.adf_A.txt]] Array Design File&lt;br /&gt;
#*[[Media:E-GEOD-10407.idf_A.txt]] Investigation Description File&lt;br /&gt;
#*[[Media:E-GEOD-10407.processed.1_A.zip]] Processed Data&lt;br /&gt;
#*[[Media:E-GEOD-10407.raw.1_A.zip]] Raw Data&lt;br /&gt;
#*[[Media:E-GEOD-10407.sdrf_A.txt]] Sample and Data Relationship File&lt;br /&gt;
#11/7/2013&lt;br /&gt;
#*[[Media:E-GEOD-10407.sdrf_B.txt]] Leishmania major Chips&lt;br /&gt;
#*Completed Import/Export Cycle, conducted a Tally Count, opened .gdb file in Microsoft Access and compared original row counts.&lt;br /&gt;
#*Access was missing 2 genes for GeneID and RefSeq, and we had no GO terms in the Tally or in Access.&lt;br /&gt;
#11/11/2013&lt;br /&gt;
#*[[Media:Leishmania_major_BD.pdf|Leishmania major Genome Reference Article Presentation]]&lt;br /&gt;
#11/14/13&lt;br /&gt;
#*[[Media:E-GEOD-10407.sdrf_C.txt]] Edited Sample and Data (Ordered based on species and relevant data)&lt;br /&gt;
#*[[Media:L.majorCompiledRawData.txt]] L. major raw compiled data&lt;br /&gt;
#*[[Media:L.infantumCompliedRawData(A).txt]] L. infantum  raw compiled data&lt;br /&gt;
#11/19/2013:&lt;br /&gt;
#*[[Media:L.majorCompiledRawData_B.txt]] L. major raw compiled data with adjusted dye swap values&lt;br /&gt;
#*[[Media:L.infantumCompliedRawData(B).txt]]  L. infantum raw compiled data with adjusted dye swap values and sample names&lt;br /&gt;
#*[[Media:L.majorCompiledRawData_C.txt]] L. major raw compiled data with adjusted dye swap values and sample names&lt;br /&gt;
#11/21/2013&lt;br /&gt;
#*[[Media:L.infantumStats.txt]]&lt;br /&gt;
#*[[Media:L.infantumStats.xls]]&lt;br /&gt;
#*[[File:L.majorStats.xls]]&lt;br /&gt;
#*[[File:L.majorStats.txt]]&lt;br /&gt;
#11/28/2013&lt;br /&gt;
#*[[File:L.majorStats(A).txt]]&lt;br /&gt;
#*[[File:L.infantumStats(A).txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysis.txt]]&lt;br /&gt;
#12/3/2013&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysis(A).txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysis(A).EX.txt]]&lt;br /&gt;
#*[[File:L.infantumStats_B.xls]] Fixed infantum p-value parenthesis&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysis(B).txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysisLMJFiltered.txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).EX.txt]]&lt;br /&gt;
#*[[File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).gex]]&lt;br /&gt;
#*[[File:ExceptionFileErrorID.txt]]&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:ExceptionFileErrorID.txt</id>
		<title>File:ExceptionFileErrorID.txt</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:ExceptionFileErrorID.txt"/>
				<updated>2013-12-03T18:54:49Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).gex</id>
		<title>File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).gex</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).gex"/>
				<updated>2013-12-03T18:54:12Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).EX.txt</id>
		<title>File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).EX.txt</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).EX.txt"/>
				<updated>2013-12-03T18:53:35Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).txt</id>
		<title>File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).txt</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaCompiledStatAnalysisLMJFiltered(B).txt"/>
				<updated>2013-12-03T18:52:53Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaCompiledStatAnalysisLMJFiltered.txt</id>
		<title>File:LeishmaniaCompiledStatAnalysisLMJFiltered.txt</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaCompiledStatAnalysisLMJFiltered.txt"/>
				<updated>2013-12-03T18:50:22Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	<entry>
		<id>https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaCompiledStatAnalysis(B).txt</id>
		<title>File:LeishmaniaCompiledStatAnalysis(B).txt</title>
		<link rel="alternate" type="text/html" href="https://xmlpipedb.lmucs.io/biodb/fall2013/index.php/File:LeishmaniaCompiledStatAnalysis(B).txt"/>
				<updated>2013-12-03T18:48:43Z</updated>
		
		<summary type="html">&lt;p&gt;Kevinmcgee: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Kevinmcgee</name></author>	</entry>

	</feed>