\HeaderA{PerPosROCmin}{Vaccine Research Center (VRC), NIH, Bethesda, MD data-Percentage
Positives}{PerPosROCmin}
\aliasA{hivneg.gag}{PerPosROCmin}{hivneg.gag}
\aliasA{hivneg.pola}{PerPosROCmin}{hivneg.pola}
\aliasA{hivneg.polb}{PerPosROCmin}{hivneg.polb}
\aliasA{hivpos.gag}{PerPosROCmin}{hivpos.gag}
\aliasA{hivpos.pola}{PerPosROCmin}{hivpos.pola}
\aliasA{hivpos.polb}{PerPosROCmin}{hivpos.polb}
\aliasA{PerPosROC}{PerPosROCmin}{PerPosROC}
\keyword{datasets}{PerPosROCmin}
\begin{Description}\relax
Note: Percentage Positives = 100*(Percent Positives) of the stimulated
sample based on the 99.9th percentile of the unstimulated distribution.

For each sample/individual of the Interferon Gamma variable
(cytokine repsonses), a 100*percent positive is defined as 100* the ratio
of GAG stimulated cells greater than the 99.9th percentile of
corresponding sample of unstimulated cells' (from the same given
individual) distribution over the total number of GAG stimulated
cells in the given sample from the individual.

Thus, for a given individual, 100*Percent Positive = 100*k/n,
where k is the number of stimulated cells \textgreater{}= 99.9th percentile of the
corresponding distribution of the unstimulated cells of the same
individual and n is the total number of stimulated cells in the
sample.

The following are the 100*(percent positives) for different peptide
stimulations (GAG, PolA, or PolB) and different individuals
(HIV positive \& HIV negative).
\describe{
\item[hivpos.gag] 100*(Percent Positives) of the GAG stimulated cells from 29
HIV positive individuals
\item[hivneg.gag] 100*(Percent Positives) of the GAG stimulated cells from 10
HIV negative individuals
\item[hivpos.pola] 100*(Percent Positives) of the PolA stimulated cells from
29 HIV positive individuals
\item[hivneg.pola] 100*(Percent Positives) of the PolA stimulated cells from
10 HIV negative individuals 
\item[hivpos.polb] 100*(Percent Positives) of the PolB stimulated cells from
29 HIV positive individuals 
\item[hivneg.polb] 100*(Percent Positives) of the PolB stimulated cells from
10 HIV negative individuals  
}
\end{Description}
\begin{Usage}
\begin{verbatim} data(PerPosROC)\end{verbatim}
\end{Usage}
\begin{Format}\relax
Four numeric vectors
\end{Format}
\begin{Source}\relax
Cytokine reponse Table from Zoe Moodie PhD who obtained the
percent positives from the data from the
Vaccine Research Center (VRC), NIH, Bethesda, MD

Also from the 'PerPosROC' data from the \pkg{rfcdorig} data package.
\end{Source}
\begin{Examples}
\begin{ExampleCode}
   data(PerPosROCmin)
if (require(rflowcyt)){
## the example below comes from ROC.FCS function

#plotting the gag stimulated 100* percent positives
   if (interactive()==TRUE){
      GAG<-ROC.FCS(hivpos.gag, hivneg.gag)
#plotting the pola stimulated 100* percent positives
      POLA<-ROC.FCS(hivpos.pola, hivneg.pola, lineopt=2, colopt=2, overlay=TRUE)
#plotting the polb stimulated 100* percent positives
      POLB<-ROC.FCS(hivpos.polb, hivneg.polb, lineopt=4, colopt=3, overlay=TRUE)
      legend(0.7, 0.7, c("gag", "polA", "polB"), col = c(1,2,3), lty=c(1,2,4))
    }
} else {
cat("Installation of the rflowcyt package is needed to run the examples.", "\n\n")
}

\end{ExampleCode}
\end{Examples}

