<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> <meta http-equiv="Content-Type" content="text/html;charset=utf-8" /> <title> document_view — bioconductor.org </title> <base href="" /> <meta name="generator" content="Plone - http://plone.org" /> <meta content="sfalcon" name="DC.creator" /> <meta content="2007-01-11 20:01:00" name="DC.date.created" /> <meta content="2007-01-11 20:01:00" name="DC.date.modified" /> <meta content="Document" name="DC.type" /> <meta content="text/plain" name="DC.format" /> <!-- Basic crude style for Netscape4.x - This can be removed if you don't want the special NS4 look - it will still work, just be plain text instead. Column layout for Netscape4.x included --> <link rel="Stylesheet" type="text/css" href="../../../../../ploneNS4.css" /> <!-- Column style sheet. --> <style type="text/css" media="screen"><!-- @import url(http://bioconductor.org/ploneColumns.css); --></style> <!-- Main style sheets for CSS2 capable browsers --> <style type="text/css" media="screen"><!-- @import url(http://bioconductor.org/plone.css); --></style> <!-- Old style sheet from Plone 1.0, remove tal:condition="nothing" if you need to use the old styles. Will be removed in Plone 2.1. --> <!-- Alternate style sheets for the bigger/smaller text switcher --> <link rel="alternate stylesheet" type="text/css" media="screen" href="../../../../../ploneTextSmall.css" title="Small Text" /> <link rel="alternate stylesheet" type="text/css" media="screen" href="../../../../../ploneTextLarge.css" title="Large Text" /> <!-- Style sheet used for printing --> <link rel="stylesheet" type="text/css" media="print" href="../../../../../plonePrint.css" /> <!-- Style sheet used for presentations (Opera is the only browser supporting this at the moment) --> <link rel="stylesheet" type="text/css" media="projection" href="../../../../../plonePresentation.css" /> <!-- Internet Explorer CSS Fixes --> <!--[if IE]> <style type="text/css" media="all">@import url(http://bioconductor.org/ploneIEFixes.css);</style> <![endif]--> <!-- Custom style sheet if available --> <style type="text/css" media="all"><!-- @import url(http://bioconductor.org/ploneCustom.css); --></style> <link rel="shortcut icon" href="../../../../../favicon.ico" type="image/x-icon" /> <link rel="search" href="../../../../../search_form" title="Search this site" /> <link rel="up" href="../ComplexAnalysis.1" title="Up one level" /> <!-- Disable IE6 image toolbar --> <meta http-equiv="imagetoolbar" content="no" /> <!-- A slot where you can insert CSS in the header from a template --> <!-- min-width support for IE via Javascript, required for tableless --> <!--[if IE]> <script type="text/javascript" src="http://bioconductor.org/plone_minwidth.js"></script> <![endif]--> <!-- A slot where you can insert elements in the header from a template --> <!-- A slot where you can insert javascript in the header from a template --> <!-- Common Plone ECMAScripts --> <!-- Pull-down ECMAScript menu, only active if logged in --> <!-- old google analytics here --> <!-- Define dynamic server-side variables for javascripts in this one --> <script type="text/javascript" src="../../../../../plone_javascript_variables.js"> </script> <script type="text/javascript" src="../../../../../plone_javascripts.js"> </script> <!-- Old JS from Plone 1.0, remove tal:condition="nothing" if you need to use the old pop-ups. Will be removed in Plone 2.1 --> </head> <body class="section-workshops"> <div id="visual-portal-wrapper"> <div id="portal-top"> <a href="ComplexAnalysisLecture.R#documentContent" class="hiddenStructure">Skip to content.</a> <h1 id="portal-logo"> <a href="../../../../../index.html">bioconductor.org</a> </h1> <div id="portal-slogan"><p>Bioconductor is an open source and open development software project<br /> for the analysis and comprehension of genomic data.</p></div> <h5 class="hiddenStructure">Sections</h5> <ul id="portal-globalnav"><li id="portaltab-index_html" class="plain"><a href="../../../../../index.html" accesskey="t">Home</a></li><li id="portaltab-GettingStarted" class="plain"><a href="../../../../../GettingStarted" accesskey="t">Getting Started</a></li><li id="portaltab-overview" class="plain"><a href="../../../../../overview" accesskey="t">Overview</a></li><li id="portaltab-download" class="plain"><a href="../../../../../download" accesskey="t">Downloads</a></li><li id="portaltab-docs" class="plain"><a href="../../../../../docs" accesskey="t">Documentation</a></li><li id="portaltab-biocpub" class="plain"><a href="../../../../../pub" accesskey="t">Publications</a></li><li id="portaltab-workshops" class="selected"><a href="../../../../../workshops" accesskey="t">Workshops</a></li><li id="portaltab-cabig" class="plain"><a href="http://wiki.fhcrc.org/caBioc" accesskey="t">caBIG</a></li></ul> </div> <div class="visualClear"></div> <!-- The wrapper div. It contains the three columns. --> <div id="portal-columns" class="visualColumnHideNone"> <!-- start of the main and left columns --> <div id="visual-column-wrapper"> <!-- start of main content block --> <div id="portal-column-content" class="topmargin1"> <div id="content" class=""> <div class="documentContent" id="region-content"> <a name="documentContent"></a> <h1 class="documentFirstHeading">ComplexAnalysisLecture.R</h1> <div class="documentDescription"></div> <div class="plain"> <p>################################################### ### chunk number 1: setup ################################################### options(width=60) dataDir <- system.file("extdata", package="arrayQ") workDir <- tempdir()</p> <p>################################################### ### chunk number 2: expt-design-ours-setup ################################################### library("limma") description <- readTargets("ArrayDesc", path=dataDir) factors <- description[["Cy3"]] exptlDesign <- data.frame(cellLine=factor(sub("PEC(<a href="#ref0-9">[0-9]</a>+)_.*", "\\1", factors)), SFN=factor("Low", levels=c("Low", "High")), HGF=factor("Low", levels=c("Low", "High"))) exptlDesign[grep("SFN", description[["Cy3"]]), "SFN"] <- "High" exptlDesign[grep("HGF", description[["Cy3"]]), "HGF"] <- "High"</p> <p>################################################### ### chunk number 3: expt-design-ours ################################################### head(exptlDesign) table(exptlDesign<a href="ComplexAnalysisLecture.R#ref,-1">[,-1]</a>)</p> <p>################################################### ### chunk number 4: formula-a eval=FALSE ################################################### ## Response ~ Dependent</p> <p>################################################### ### chunk number 5: formula-our eval=FALSE ################################################### ## ~1 + SFN + HGF + SFN:HGF ## ~SFN*HGF</p> <p>################################################### ### chunk number 6: model-matrix-eg ################################################### X <- model.matrix(~SFN*HGF, exptlDesign) head(X)</p> <p>################################################### ### chunk number 7: model-fit-setup ################################################### RG <- read.maimages(description$FileName, path=dataDir, source="genepix", wt.fun=wtflags())</p> <p>MA <- normalizeBetweenArrays(RG, "vsn", strata=rep(1:2, each=nrow(RG)/2))</p> <p>library(convert) M <- as(MA, "ExpressionSet") sampleNames(M) <- description[["Cy3"]] featureNames(M) <- MA[["genes"]][["ID"]]</p> <p>metaD <- read.csv(file.path(dataDir, "PEDB_ARRAY_annotations.csv"), as.is=TRUE) dropRows <- metaD[["Description"]] %in% c("EMPTY", "Failed sequencing") M <- M[!dropRows,]</p> <p>dupCor <- duplicateCorrelation(exprs(M), ndup=2, spacing=nrow(M)/2)</p> <p>################################################### ### chunk number 8: M-eg ################################################### M</p> <p>################################################### ### chunk number 9: M-half-eg ################################################### Mh <- M[1:(nrow(M)/2),]</p> <p>################################################### ### chunk number 10: limma-lmFit-eg ################################################### fit <- lmFit(Mh, X) efit <- eBayes(fit)</p> <p>################################################### ### chunk number 11: limma-lmFit-eg-summary ################################################### names(efit) head(efit[["coefficients"]])</p> <p>################################################### ### chunk number 12: expected-value ################################################### head(cbind(X, X %*% efit[["coefficients"]]<a href="ComplexAnalysisLecture.R#ref1,">[1,]</a>))</p> <p>################################################### ### chunk number 13: decideTests-eg ################################################### decided <- decideTests(efit) summary(decided)</p> <p>################################################### ### chunk number 14: topTable-eg ################################################### topTable(efit, coef=2, n=sum(decided<a href="ComplexAnalysisLecture.R#ref,2">[,2]</a>!=0))</p> <p>################################################### ### chunk number 15: duplicate-correlations-eg ################################################### dupCor <- duplicateCorrelation(exprs(M), design=X, ndups=2, spacing=nrow(M)/2)</p> <p>################################################### ### chunk number 16: ################################################### summary(dupCor[["atanh.correlations"]]) dupCor[["consensus"]]</p> <p>################################################### ### chunk number 17: duplicate-analysis ################################################### dupFit <- lmFit(M, design=X, ndups=2, spacing=nrow(M)/2, correlation=dupCor[["consensus.correlation"]]) dupFitE <- eBayes(dupFit) dupDecided <- decideTests(dupFitE)</p> <p>################################################### ### chunk number 18: ################################################### summary(dupDecided)</p> <p>################################################### ### chunk number 19: cell-line-eg ################################################### levels(exptlDesign[["cellLine"]])</p> <p>################################################### ### chunk number 20: cell-line-design ################################################### head(model.matrix(~cellLine, exptlDesign))</p> <p>################################################### ### chunk number 21: full-model-eg ################################################### X <- model.matrix(~cellLine+SFN*HGF, exptlDesign) dupCor <- duplicateCorrelation(exprs(M), design=X, ndups=2, spacing=nrow(M)/2) dupFit <- lmFit(M, design=X, ndups=2, spacing=nrow(M)/2, correlation=dupCor[["consensus.correlation"]]) dupFitE <- eBayes(dupFit) dupDecided <- decideTests(dupFitE)</p> <p>################################################### ### chunk number 22: full-model-highlights ################################################### dupCor[["consensus.correlation"]] summary(dupDecided)</p> <p>################################################### ### chunk number 23: full-model-topTable ################################################### topTable(dupFitE, coef=6)</p> <p>################################################### ### chunk number 24: fitted ################################################### fittedVals <- fitted(dupFitE) dim(fittedVals)</p> <p>################################################### ### chunk number 25: ave-exprs ################################################### observedVals <- (exprs(M)[1:(nrow(M)/2),]+exprs(M)[nrow(M)/2+1:(nrow(M)/2),])/2 residualVals <- residuals(dupFitE, observedVals)</p> <p>################################################### ### chunk number 26: as-data-frame ################################################### df <- data.frame(sampleId=rep(1:20, each=nrow(observedVals)), SFN=rep(exptlDesign[["SFN"]], each=nrow(observedVals)), HGF=rep(exptlDesign[["HGF"]], each=nrow(observedVals)), observed=as.vector(observedVals), fitted=as.vector(fittedVals), residuals=as.vector(residualVals))</p> <p>################################################### ### chunk number 27: residuals-by-sample ################################################### library(lattice) print(bwplot(sampleId~residuals, df))</p> </div> <div class="discussion"> </div> </div> </div> </div> <!-- end of main content block --> <!-- start of the left (by default at least) column --> <div id="portal-column-one"> <div class="visualPadding"> <br><br><br> <!-- disabled left slot image <img tal:replace="structure nocall:here/pict.jpg" /> --> <div class="portlet" id="portlet-navigation-tree"> <div> <h5>Navigation</h5> <div class="portletBody"> <div class="portletContent odd"> <a href="../../../../../GettingStarted/index.html" accesskey="n" class="navItem navLevel1" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Getting Started</span> </a> <a href="../../../../../overview/index.html" accesskey="n" class="navItem navLevel1" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Overview</span> </a> <a href="../../../../../download/index.html" accesskey="n" class="navItem navLevel1" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Downloads</span> </a> <a href="../../../../../docs/index.html" accesskey="n" class="navItem navLevel1" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Documentation</span> </a> <a href="../../../../../pub/index.html" accesskey="n" class="navItem navLevel1" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Publications</span> </a> <a href="../../../../index.html" accesskey="n" class="navItem navLevel1" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Workshops</span> </a> <a href="../../../../2010/index.html" accesskey="n" class="navItem navLevel2" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">2010</span> </a> <a href="../../../../2009/index.html" accesskey="n" class="navItem navLevel2" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">2009</span> </a> <a href="../../../../2008/index.html" accesskey="n" class="navItem navLevel2" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">2008</span> </a> <a href="../../../index.html" accesskey="n" class="navItem navLevel2" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">2007</span> </a> <a href="../../../seattle_bioc_intro_nov_07/index.html" accesskey="n" class="navItem navLevel3" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Introduction to Bioconductor</span> </a> <a href="../../../bioc_copenhagen/index.html" accesskey="n" class="navItem navLevel3" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Statistical Analysis of Microarray Expression Data with R and Bioconductor</span> </a> <a href="../../../chicago2007/index.html" accesskey="n" class="navItem navLevel3" title="A 3-day course on Northwestern University Medical School's downtown Chicago campus will cover advanced topics in genomics and proteomics data analysis."> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Bioconductor Advanced Course</span> </a> <a href="../../../BioC2007/index.html" accesskey="n" class="navItem navLevel3" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">BioC2007</span> </a> <a href="../../../biocdevmeeting/index.html" accesskey="n" class="navItem navLevel3" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">BioC Developers Meeting</span> </a> <a href="../../../advrbioc/index.html" accesskey="n" class="navItem navLevel3" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Advanced R Programming and Bioconductor</span> </a> <a href="../../index.html" accesskey="n" class="navItem navLevel3" title="Bioconductor Advanced Course, held in Seattle, January 10-12, 2007"> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">January BioC Advanced Course</span> </a> <a href="../../Labs/index.html" accesskey="n" class="navItem navLevel4" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Labs</span> </a> <a href="../index.html" accesskey="n" class="navItem navLevel4" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Lectures</span> </a> <a href="index.html" accesskey="n" class="navItem navLevel5 currentNavItem" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">ComplexAnalysis</span> </a> <a href="../../../../2006/index.html" accesskey="n" class="navItem navLevel2" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">2006</span> </a> <a href="../../../../2005/index.html" accesskey="n" class="navItem navLevel2" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">2005</span> </a> <a href="../../../../2004/index.html" accesskey="n" class="navItem navLevel2" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">2004</span> </a> <a href="../../../../2003/index.html" accesskey="n" class="navItem navLevel2" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">2003</span> </a> <a href="../../../../2002/index.html" accesskey="n" class="navItem navLevel2" title="Workshops and courses 2002"> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">2002</span> </a> <a href="../../../../../developers/index.html" accesskey="n" class="navItem navLevel1" title=""> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">Developers</span> </a> <a href="../../../../../News/index.html" accesskey="n" class="navItem navLevel1" title="BioC Project News"> <!-- Disable Folder icon <img src="" height="16" width="16" alt="" class="navIcon" tal:condition="not:isAnon" tal:attributes="src python:portal_url+'/'+sibling.getIcon(1); title sibling/Type;" /> --> <span class="navItemText">News</span> </a> </div> </div> </div> </div> </div> </div> <!-- end of the left (by default at least) column --> </div> <!-- end of the main and left columns --> <!-- start of right (by default at least) column --> <div id="portal-column-two"> <div class="visualPadding"> <div> <!-- The Related Items box --> <script type="text/javascript" src="plonesearchbox_utils.js"> </script> <div class="portlet"> <!-- <h5 i18n:translate="searchbox_title">Search Box</h5> --> <div class="portletBody"> <form name="searchbox_form" id="searchbox_form" method="post" onsubmit="return process()" action="http://bioconductor.org/workshops/2007/biocadv/Lectures/ComplexAnalysis/redirectToUrl" target="_blank"> <div class="portletContent odd"> <div id="searchbox_fields"> <input type="text" name="toSearch" id="toSearch" size="22" /> </div> <select name="choice" id="choice" onchange="return generateForm();" style="margin: 3px 0px 0px 0px;"> <option value="http://bioconductor.org/workshops/2007/biocadv/Lectures/ComplexAnalysis/ComplexAnalysisLecture.R/search?SearchableText=" id="search_portal">In this site</option> <option value="http://bioconductor.org/workshops/2007/biocadv/Lectures/ComplexAnalysis/ComplexAnalysisLecture.R/search?path=/Plones/rgentlem/bioconductor/workshops/2007/biocadv/Lectures/ComplexAnalysis/ComplexAnalysisLecture.R&SearchableText=" id="search_rubric">In this folder</option> <option value="http://google.com/search?sitesearch=www.bioconductor.org&q=%(text)s">Google this site</option> </select> <input class="context searchButton" type="submit" value="Search" style="margin: 3px;" /> </div> <!-- <div class="portletContent odd"> <input class="context searchButton" type="submit" value="Search" style="margin: 3px;" i18n:attributes="value"/> </div> <div class="portletContent even"> <a href="" tal:attributes="href string:${portal_url}/search_form" i18n:translate="advanced_search_link">Advanced search</a> </div> --> </form> <script type="text/javascript"> <!-- /*in case the first choice of the combobox is an url with several fields*/ clearForm(); generateForm(); --> </script> </div> </div> </div> <div class="portlet" id="portlet-news"> <h5>News</h5> <div class="portletBody"> <div class="portletContent odd"> <div class="portletDetails"> <a href="../../../../../News/2009-10-28-Release-2.5" class="date" title="BioC 2.5 Released">2009-10-26</a> <p> BioC 2.5, consisting of 352 packages and designed to work with R 2.10.z, was released today. </p> </div> </div> <div class="portletContent even"> <div class="portletDetails"> <a href="../../../../../News/RinNYT" class="date" title="Print Media Recognition">2009-01-07</a> <p> R, the open source platform used by Bioconductor, featured in a series of articles in the New York Times. </p> </div> </div> <div class="portletContent odd"> <a href="../../../../../news" class="portletMore"> More... </a> </div> </div> </div> </div> </div> <!-- end of the right (by default at least) column --> </div> <!-- end column wrapper --> <div class="visualClear"></div> <hr class="netscape4" /> <div id="portal-footer"> © 2003-2009 BioConductor. All Rights Reserved. <script type="text/javascript"> var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www."); document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E")); </script> <script type="text/javascript"> try{ var pageTracker = _gat._getTracker("UA-357281-1"); pageTracker._trackPageview(); } catch(err) {} </script> </div> </div> </body> </html>