\Header{pamr.plotcen}{A function to plot the shrunken class centroids, from the nearest shrunken centroid classifier}
\begin{Description}\relax
A function to plot the shrunken class centroids, from the
nearest shrunken centroid classifier produced by pamr.train\end{Description}
\begin{Usage}
\begin{verbatim}
pamr.plotcen(fit, data, threshold)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{data}] The input data, in the same form as that used
by pamr.train
\item[\code{fit}] The result of a call to pamr.train
\item[\code{threshold}] The desired threshold value
\end{ldescription}
\end{Arguments}
\begin{Details}\relax
\code{pamr.plotcen} plots the shrunken class centroids for each
class,
for genes surviving the threshold for at least once class. If
genenames
are included in "data", they are added to the plot. Note: for many
classes
and long gene names, this plot may need some manual prettying.\end{Details}
\begin{Author}\relax
Trevor Hastie, Robert Tibshirani, Balasubramanian Narasimhan, and Gilbert Chu\end{Author}
\begin{References}\relax
\end{References}
\begin{Examples}
\begin{ExampleCode}
set.seed(120)
x <- matrix(rnorm(1000*20),ncol=20)
y <- sample(c(1:4),size=20,replace=TRUE)
mydata <- list(x=x,y=y,genenames=as.character(1:1000))
mytrain <-   pamr.train(mydata)
mycv <- pamr.cv(mytrain,mydata)
pamr.plotcen(mytrain, mydata,threshold=1.6)
 
\end{ExampleCode}
\end{Examples}

