\HeaderA{pamr.indeterminate}{A function that takes estimate class probabilities
and produces a class prediction or indeterminate prediction}{pamr.indeterminate}
\begin{Description}\relax
A function that takes estimate class probabilities
and produces a class prediction or indeterminate prediction
\end{Description}
\begin{Usage}
\begin{verbatim}
pamr.indeterminate(prob, mingap=0) 
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{prob}] Estimated class probabilities, from pamr.predict with type="posterior")
\item[\code{mingap}] Minimum difference between highest and second highest probability. If difference is < mingap, prediction is set to  indeterminate (NA)
\end{ldescription}
\end{Arguments}
\begin{Details}\relax
\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)
mytrain <-   pamr.train(mydata)
prob<- pamr.predict(mytrain, mydata$x , threshold=1, type="posterior")
pamr.indeterminate(prob,mingap=.75)
\end{ExampleCode}
\end{Examples}

