Description Usage Arguments Details Value Author(s) Examples
After normalization and data smoothing, this last step makes the call for each peptide of the peptideSet after baseline correcting the peptide intenstities.
| 1 2 | 
| peptideSet | A  | 
| cutoff | A  | 
| method | A  | 
| freq | A  | 
| group | A  | 
| verbose | A  | 
This function requires specific variables ptid and visit in pData(peptideSet).
The variable ptid should indicate subjects, and the variable visit
should be a factor with levels pre and post.
If slides are paired for subjects, intensities corresponding to post-visit are substracted from pre. If slides are not paired, slides with pre have intensities averaged by peptides, and averaged peptide intensities are subtracted from slides that have entry post. Calls are made on these baseline corrected intensities.
When method = FDR, a left-tail method is used to generate a threshold controlling
the False Discovery Rate at level cutoff. When method = absolute, Intensities
exceeding the threshold are labelled as positive.
When freq = TRUE a group variable may be specified. The argument group indicates the name of a variable in pData(peptideSet) by which positive calls should be grouped. The call frequency for each peptide is calculated within groups.
If freq = TRUE, a numeric matrix with peptides as rows and
groups as columns where the values are the frequency of response in the group. If
freq = FALSE, a logical matrix indicating binding events for each
peptide in each subject.
Greg Imholte
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | ## This example curated from the vignette -- please see vignette("pepStat")
## for more information
if (require("pepDat")) {
  ## Get example GPR files + associated mapping file
  dirToParse <- system.file("extdata/gpr_samples", package = "pepDat")
  mapFile <- system.file("extdata/mapping.csv", package = "pepDat")
  ## Make a peptide set
  pSet <- makePeptideSet(files = NULL, path = dirToParse,
                         mapping.file = mapFile, log=TRUE)
  ## Plot array images -- useful for quality control
  plotArrayImage(pSet, array.index = 1)
  plotArrayResiduals(pSet, array.index = 1, smooth = TRUE)
  ## Summarize peptides, using pep_hxb2 as the position database
  data(pep_hxb2)
  psSet <- summarizePeptides(pSet, summary = "mean", position = pep_hxb2)
  ## Normalize the peptide set
  pnSet <- normalizeArray(psSet)
  ## Smooth
  psmSet <- slidingMean(pnSet, width = 9)
  ## Make calls
  calls <- makeCalls(psmSet, freq = TRUE, group = "treatment",
                     cutoff = .1, method = "FDR", verbose = TRUE)
  ## Produce a summary of the results
  summary <- restab(psmSet, calls)
}
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.