PerPosROCmin {rfcdmin}R Documentation

Vaccine Research Center (VRC), NIH, Bethesda, MD data-Percentage Positives

Description

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 >= 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).

hivpos.gag
100*(Percent Positives) of the GAG stimulated cells from 29 HIV positive individuals
hivneg.gag
100*(Percent Positives) of the GAG stimulated cells from 10 HIV negative individuals
hivpos.pola
100*(Percent Positives) of the PolA stimulated cells from 29 HIV positive individuals
hivneg.pola
100*(Percent Positives) of the PolA stimulated cells from 10 HIV negative individuals
hivpos.polb
100*(Percent Positives) of the PolB stimulated cells from 29 HIV positive individuals
hivneg.polb
100*(Percent Positives) of the PolB stimulated cells from 10 HIV negative individuals

Usage

 data(PerPosROC)

Format

Four numeric vectors

Source

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 rfcdorig data package.

Examples

   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")
}


[Package rfcdmin version 1.2.0 Index]