<!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="http://bioconductor.fhcrc.org/workshops/2002/Seattle02/Seattle/inst/doc/Lab5.Rnw" />
<meta name="generator" content="Plone - http://plone.org" />
<meta content="admin" name="DC.creator" />
<meta content="2005-07-01 10:23:18"
name="DC.date.created" />
<meta content="2005-07-01 10:23:18"
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="http://bioconductor.fhcrc.org/ploneNS4.css" />
<!-- Column style sheet. -->
<style type="text/css" media="screen"><!-- @import url(http://bioconductor.fhcrc.org/ploneColumns.css); --></style>
<!-- Main style sheets for CSS2 capable browsers -->
<style type="text/css" media="screen"><!-- @import url(http://bioconductor.fhcrc.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="http://bioconductor.fhcrc.org/ploneTextSmall.css"
title="Small Text" />
<link rel="alternate stylesheet" type="text/css"
media="screen"
href="http://bioconductor.fhcrc.org/ploneTextLarge.css"
title="Large Text" />
<!-- Style sheet used for printing -->
<link rel="stylesheet" type="text/css" media="print"
href="http://bioconductor.fhcrc.org/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="http://bioconductor.fhcrc.org/plonePresentation.css" />
<!-- Internet Explorer CSS Fixes -->
<!--[if IE]>
<style type="text/css" media="all">@import url(http://bioconductor.fhcrc.org/ploneIEFixes.css);</style>
<![endif]-->
<!-- Custom style sheet if available -->
<style type="text/css" media="all"><!-- @import url(http://bioconductor.fhcrc.org/ploneCustom.css); --></style>
<link rel="shortcut icon"
href="http://bioconductor.fhcrc.org/favicon.ico"
type="image/x-icon" />
<link rel="search"
href="http://bioconductor.fhcrc.org/search_form"
title="Search this site" />
<link rel="up"
href="http://bioconductor.fhcrc.org/workshops/2002/Seattle02/Seattle/inst/doc"
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.fhcrc.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="http://bioconductor.fhcrc.org/plone_javascript_variables.js">
</script>
<script type="text/javascript"
src="http://bioconductor.fhcrc.org/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="#documentContent" class="hiddenStructure">Skip to content.</a>
<h1 id="portal-logo">
<a href="http://bioconductor.fhcrc.org">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="http://bioconductor.fhcrc.org"
accesskey="t">Home</a></li><li
id="portaltab-GettingStarted" class="plain"><a
href="http://bioconductor.fhcrc.org/GettingStarted"
accesskey="t">Getting Started</a></li><li
id="portaltab-overview" class="plain"><a
href="http://bioconductor.fhcrc.org/overview"
accesskey="t">Overview</a></li><li
id="portaltab-download" class="plain"><a
href="http://bioconductor.fhcrc.org/download"
accesskey="t">Downloads</a></li><li id="portaltab-docs"
class="plain"><a href="http://bioconductor.fhcrc.org/docs"
accesskey="t">Documentation</a></li><li
id="portaltab-biocpub" class="plain"><a
href="http://bioconductor.fhcrc.org/pub" accesskey="t">Publications</a></li><li
id="portaltab-workshops" class="selected"><a
href="http://bioconductor.fhcrc.org/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">Lab5.Rnw</h1>
<div class="documentDescription"></div>
<div class="plain">
<p>%
% NOTE -- ONLY EDIT THE .Rnw FILE!!! The .tex file is
% likely to be overwritten.
%
% \VignetteIndexEntry{Seattle Lab 3}
%\VignetteDepends{Biobase. golubEsets, ellipse,lattice, mva, MASS,cluster }
%\VignetteKeywords{Microarray}
\documentclass<a href="#ref12pt">[12pt]</a>{article}</p>
<p>\usepackage{amsmath,pstricks}
\usepackage<a href="#refauthoryear,round">[authoryear,round]</a>{natbib}
\usepackage{hyperref}</p>
<p>\textwidth=6.2in
\textheight=8.5in
%\parskip=.3cm
\oddsidemargin=.1in
\evensidemargin=.1in
\headheight=-.3in</p>
<p>\newcommand{\scscst}{\scriptscriptstyle}
\newcommand{\scst}{\scriptstyle}</p>
<p>\bibliographystyle{plainnat}</p>
<p>\title{Classification Using R and Bioconductor}</p>
<p>\begin{document}</p>
<p>\maketitle</p>
<p>We continue our extended example involving the dataset from \citet{Golub99}.
In this lab, we will use some of the different R routines.</p>
<p>We will concentrate on the following list
\begin{itemize}
\item knn
\item lda
\item svm
\item neural networks
\end{itemize}</p>
<p>The R packages you will need to carry out this tutorial are
\begin{itemize}
\item Biobase, annotate, genefilter
\item e1071
\item nnet, MASS (from the VR bundle)
\end{itemize}</p>
<p><<loadlibs>>=
library(Seattle)
library(nnet)
library(mva)
library(e1071)
library(class)</p>
<p>@</p>
<p>We will set up the data from scratch once again.</p>
<p><<setup>>=</p>
<p>mmfilt <- function(r=5, d=500, na.rm=TRUE) {
function(x) {
minval <- min(2^x, na.rm=na.rm)
maxval <- max(2^x, na.rm=na.rm)
(maxval/minval > r) && (maxval-minval > d)
}
}</p>
<p>GolubTrans <-function(eSet) {
X<-exprs(eSet)
X[X<100]<-100
X[X>16000]<-16000
X <- log2(X)
eSet@exprs <- X
eSet
}</p>
<p>gTrn <- GolubTrans(golubTrain)
gTest <- GolubTrans(golubTest)
gMerge <- GolubTrans(golubMerge)</p>
<p>mmfun <- mmfilt()</p>
<p>ffun <- filterfun(mmfun)
sub <- genefilter(gTrn, ffun )
##three are right on r=5, d=500 -- they are dropped if we
##don't fool around with logs -- so we drop them here
sub[c(2401,3398,4168)] <- FALSE
sum(sub) ## Should get 3051</p>
<p>## we will subset all data sets according to this same criterion</p>
<p>gTrnS <- gTrn<a href="#refsub,">[sub,]</a>
gTestS <- gTest<a href="#refsub,">[sub,]</a>
gMergeS <- gMerge<a href="#refsub,">[sub,]</a></p>
<p>Ytr <-paste(golubTrain$ALL.AML,golubTrain$T.B.cell)
Ytr<-sub("NA","",Ytr)<p> Ytest <- paste(golubTest$ALL.AML, golubTest$T.B.cell)
Ytest <- sub("NA","",Ytest)</p>
<p> Ymerge <- paste(golubMerge$ALL.AML, golubMerge$T.B.cell)
Ymerge <- sub("NA","",Ymerge)</p>
</p>
<p>@</p>
<p>For the most part we will concentrate on developing supervised
learning models for the \verb+ALL.AML+ categories.
We will rely on the training set to build a model and then use the test set
to establish its prediction error.</p>
<p>Since this is reasonably wasteful of the data resources, we will, if time
permits, explore the use of the whole data set and cross-validation.</p>
<p>In this tutorial we make the assumption that all the data have been
obtained, processed (expression levels estimated and normalization has
been carried out).
Performing those tasks is the subject of a separate tutorial.</p>
<p>In some sense the purpose of classification is to develop a model and
to estimate all of its parameters so that when a new case is provided
its class can be predicted.
One problem that will arise with microarray data (and many other types of
high throughput data) is that comparison of microarrays relies on
co-normalization and none of the normalization methods in common use
let you normalize a new array with out access to all arrays.
This new normalization generally alters the estimated expression values on all
arrays (although typically by only a small amount).</p>
<p>We now outline the four steps that need to be carried out for
classification.</p>
<p>\begin{enumerate}
\item Feature selection: includes transformation.
\item Model selection: select a distance, model etc.
\item Model fitting: use the training set to determine the model
parameters.
\item Model assessment: use the test set to estimate the error rate.
\end{enumerate}</p>
<p>In all cases much more can be learned by referring to the manual pages
and other resources such as \citet{VR}. For Bioconductor packages
there are additional documentation resources in the form of vignettes
and HowTo's that are supplied with each of the packages or from the
Bioconductor web site (\url{www.bioconductor.org}).
%' to keep emacs happier</p>
<p>\section{Gene filtering}</p>
<p>One of the first tasks that must be carried out when analysing
expression data is to filter out those genes that are unlikely to be
of interest.
The Affymetrix U68 gene chips have measurements on 7129 different
expressed sequence tags (ESTS). Some of these ESTs map to the same
genes and others are there for quality control purposes. However,
the chips provide estimates of the expression of mRNA for about 6000
different human genes.</p>
<p>In any particular tissue (for these data the tissue of interest is
either blood or bone marrow) it has been estimated that about 40
percent of the genome is expressed. There are also certain genes that
are expressed at more or less constant levels in all samples, these
genes are sometimes referred to as house--keeping genes.
Our first step is to remove the unexpressed genes and the house
keeping genes so that the computational burden is reduced and we have
a better chance of finding relevant information.</p>
<p>Once the filtering has been done the vector \verb+sub+ is a logical
vector (it contains \verb+TRUE+ or \verb+FALSE+) indicating which ESTs
have passed the tests.
The datasets can then be subset using this vector and we can proceed
with our analysis.</p>
<p>\section*{Feature Selection}</p>
<p>We still have far too many genes to do much with and so
we must filter them down a bit.
There are many different ways that this can be done.</p>
<p>You could for example use \textit{edd} to find those genes that look like
they are mixtures and use only those genes.
You could select genes that are used in a particular pathway, genes that
show much more variation in one group than in the other.
There a very, very many different ways to select genes.</p>
<p>In the interest of expediency we will use the genes selected in Lab 2
by Anova filtering.</p>
<h2><<Anovagenes>>=</h2>
<p> data(gfaF)</p>
<p> gTrA <- gTrnS<a href="#refgfaF,">[gfaF,]</a>
gTeA <- gTestS<a href="#refgfaF,">[gfaF,]</a>
gMeA <- gMergeS<a href="#refgfaF,">[gfaF,]</a></p>
<h3> whBad1 <- (apply(gTrA@exprs, 1, mad) == 0)</h3>
<p> whBad2 <- (apply(gTeA@exprs, 1, mad) == 0)</p>
<p> whBad <- whBad1 | whBad2</p>
<p> sum(whBad)</p>
<p> gTrA <- gTrA[!whBad,]
gTeA <- gTeA[!whBad,]
gMeA <- gMeA[!whBad,]
@</p>
<p>A problem with the methods used to filter genes now surfaces. We have
a number of genes that really are not showing much variation and we will
have to remove them to proceed with the analysis.
Our standardization procedure will be to subtract the median and divide
by the MAD. So we remove all genes for which the MAD is 0.
We are now down to 150 genes.</p>
<h2><<removeBad>>=</h2>
<p> star <- function(x) (x-median(x))/mad(x)</p>
<p> TrExprs <- t(apply(exprs(gTrA), 1, star))
TeExprs <- t(apply(exprs(gTeA), 1, star))</p>
<p> MeExprs <- t(apply(exprs(gMeA), 1, star))</p>
<p>@</p>
<p>This transoformation makes all the genes comparable. This is often
reasonable since we have no \textit{a priori} reason to favor one gene
over another. Other choices may be appropriate for other situations.</p>
<p>\section*{Classification}</p>
<p>We now consider some of the different classification tools that are
available.</p>
<p>First we consider the discriminant analysis functions.</p>
<p>\subsection*{Discriminant Analysis}</p>
<h2><<lda>>=</h2>
<p> gTr.lda <- lda(t(TrExprs), Ytr)</p>
<p> plot(gTr.lda)</p>
<p> preds.lda <- predict(gTr.lda, t(TeExprs))</p>
<p> table(preds.lda$class, Ytest)</p>
<p>@</p>
<p>An alternative to linear discriminant analysis is logistic discrimination.</p>
<h2><<logisticda>>=</h2>
<p> library(nnet)</p>
<p> gTr.mult <- multinom(factor(Ytr) ~ .,
data=data.frame(t(TrExprs)), maxit=250)</p>
<p> tEdf <- data.frame(t(TeExprs))</p>
<p> log.preds <- predict(gTr.mult, data.frame(t(TeExprs)))</p>
<p> table(log.preds, Ytest)</p>
<p>@</p>
<p>\section{Non-parametric rules}</p>
<p>Among the most popular of the non-parametric methods is $k$-nearest neighbors.
The idea is to classify each point according the majority vote of its
$k$ nearest neighbors.</p>
<p>Small values of $k$ make the classifier quite local. Large values of $k$
make it more global. The selection of $k$ could be made via cross-validation.</p>
<p>All distances are Euclidean (and there is currently no option to allow you
you set it).</p>
<p>So even though most people cluster genomic data using one minus the
correlation much of the classification is done on Euclidean distances.
This is mainly due to a lack of software that is flexible enough to
allow the user to select any distance that they feel is appropriate.</p>
<h2><<knn1>>=</h2>
<p> knn1 <- knn(t(TrExprs), t(TeExprs), factor(Ytr), k=1)</p>
<p> table(knn1, Ytest)</p>
<p>@
<<knn3>>=<p> knn3 <- knn(t(TrExprs), t(TeExprs), factor(Ytr), k=3)
table(knn3, Ytest)</p>
</p>
<p>@</p>
<h2><<knn5>>=</h2>
<p> knn5 <- knn(t(TrExprs), t(TeExprs), factor(Ytr), k=5)
table(knn5, Ytest)</p>
<p>@</p>
<p>\subsection*{Cross-validation}</p>
<p>We now use the expression values from the merged data set and the
\verb+knn.cv+ function from the \textit{class} library.
This function leaves out each observation in turn and predicts its class on
the basis of distances to those samples retained.</p>
<p><<knnCV>>=
knn1.cvpreds <- knn.cv(t(MeExprs), factor(Ymerge), k=1)<p> table(knn1.cvpreds, Ymerge)</p>
</p>
<p>@
<<knnCV3>>=
knn3.cvpreds <- knn.cv(t(MeExprs), factor(Ymerge), k=3)<p> table(knn3.cvpreds, Ymerge)</p>
</p>
<p>@
<<knnCV5>>=
knn5.cvpreds <- knn.cv(t(MeExprs), factor(Ymerge), k=5)<p> table(knn5.cvpreds, Ymerge)</p>
</p>
<p>@</p>
<p>\end{document}
</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="http://bioconductor.fhcrc.org/GettingStarted/"
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="http://bioconductor.fhcrc.org/overview/"
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="http://bioconductor.fhcrc.org/download/"
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="http://bioconductor.fhcrc.org/docs/"
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="http://bioconductor.fhcrc.org/pub/"
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="http://bioconductor.fhcrc.org/workshops/"
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="http://bioconductor.fhcrc.org/workshops/2010/"
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="http://bioconductor.fhcrc.org/workshops/2009/"
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="http://bioconductor.fhcrc.org/workshops/2008/"
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="http://bioconductor.fhcrc.org/workshops/2007/"
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="http://bioconductor.fhcrc.org/workshops/2006/"
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="http://bioconductor.fhcrc.org/workshops/2005/"
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="http://bioconductor.fhcrc.org/workshops/2004/"
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="http://bioconductor.fhcrc.org/workshops/2003/"
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="http://bioconductor.fhcrc.org/workshops/2002/"
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="http://bioconductor.fhcrc.org/workshops/2002/Seattle02/"
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">Seattle Dec</span>
</a>
<a href="http://bioconductor.fhcrc.org/workshops/2002/Seattle02/Seattle/"
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">Seattle</span>
</a>
<a href="http://bioconductor.fhcrc.org/workshops/2002/Seattle02/Seattle/inst/"
accesskey="n"
class="navItem navLevel5"
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">inst</span>
</a>
<a href="http://bioconductor.fhcrc.org/workshops/2002/Seattle02/Seattle/inst/doc/"
accesskey="n"
class="navItem navLevel6 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">doc</span>
</a>
<a href="http://bioconductor.fhcrc.org/developers/"
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="http://bioconductor.fhcrc.org/News/"
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="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.fhcrc.org/workshops/2002/Seattle02/Seattle/inst/doc/Lab5.Rnw/search?SearchableText="
id="search_portal">In this site</option>
<option value="http://bioconductor.fhcrc.org/workshops/2002/Seattle02/Seattle/inst/doc/Lab5.Rnw/search?path=/Plones/rgentlem/bioconductor/workshops/2002/Seattle02/Seattle/inst/doc/Lab5.Rnw&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="http://bioconductor.fhcrc.org/News/AdvancedR"
class="date"
title="Advanced R Programming">2010-05-21</a>
<p>
Advanced R Programming for Bioinformatics course material now <a href="http://bioconductor.fhcrc.org/workshops/2010/AdvancedR/">available</a>
</p>
</div>
</div>
<div class="portletContent even">
<div class="portletDetails">
<a href="http://bioconductor.fhcrc.org/News/bioc_2.6_release"
class="date"
title="BioC 2.6 Released">2010-04-23</a>
<p>
Bioconductor 2.6, consisting of 389 packages and designed to work with R version 2.11, was released today.
</p>
</div>
</div>
<div class="portletContent odd">
<a href="http://bioconductor.fhcrc.org/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>