| cytottest | R Documentation |
Performs a separate t-test on each cluster within a cfList. The output is added and can also be used by other functions
cytottest(
cfList,
group,
adjustMethod = c("none", "holm", "hochberg", "hommel", "bonferroni", "BH", "BY",
"fdr"),
...
)
cfList |
a cfList object. It should contain at least data in the 'counts' slot. |
group |
one of:
|
adjustMethod |
character, correction method used in |
... |
further arguments passed on to |
Returns a cfList with a 'results' slot.
# Read Data
dirFCS <- system.file("extdata", package="cytofast")
cfData <- readCytosploreFCS(dir = dirFCS, colNames = "description")
# relabeling of clusterID
levels(cfData@expr[,"clusterID"]) <- gsub("[^0-9]", "", levels(cfData@expr[,"clusterID"]))
# Add cell counts to cfList and add meta data
cfData <- cellCounts(cfData, frequency = TRUE, scale = TRUE)
meta <- spitzer[match(row.names(cfData@samples), spitzer$CSPLR_ST),]
cfData@samples <- cbind(cfData@samples, meta)
# Run t-test
cfData@samples$effect <- gsub("_D\\d", "", spitzer$group)
cfData <- cytottest(cfData, group = "effect", adjustMethod = "bonferroni")
cfData@results
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.