sigLabsPT: sigLabsPT
In zgzhao/Xtools: Xtools: handy tools for daily data analysis

Description Usage Arguments Details Value Author(s) Examples

sigLabsPT: set significant labels for multiple comparisons with given p-value table

1	sigLabsPT(sNames, pTable, scol1 = 1, scol2 = 2, pcol = 3)

`sNames`	sample names
`pTable`	p-value of statistic test for each pair of samples.
`scol1`	column (name or index) of sample names 1
`scol2`	column (name or index) of sample names 2
`pcol`	column (name or index) of of p-value.

Get/set significant labels for multiple comparisons. Samples with any identical letter are not significant different.

string vector of significant letter

ZG Zhao

library("Xtools")
pt <- read.csv(file.path(path.package("Xtools"), "data", "data.ptable.csv"))
str(pt)
dt <- subset(pt, subset=Gene=="NR"& Plant=="Arabidopsis")
smps <- sort(unique(c(dt$S1, dt$S2)))
cbind(sample=smps, siglabs=sigLabsPT(smps, dt, scol1=3, scol2=4, pcol=5))