data(caRpools)
# Foldchange
p1 = carpools.raw.genes(untreated.list = list(CONTROL1, CONTROL2),
treated.list = list(TREAT1, TREAT2), genes="CASP8", namecolumn=1,
fullmatchcolumn=2, norm.function=median, extractpattern=expression("^(.+?)_.+"),
do.plot=TRUE, log=FALSE, put.names=TRUE, type="foldchange" )
# Z-Ratio
p2 = carpools.raw.genes(untreated.list = list(CONTROL1, CONTROL2),
treated.list = list(TREAT1, TREAT2), genes="CASP8", namecolumn=1,
fullmatchcolumn=2, norm.function=median, extractpattern=expression("^(.+?)_.+"),
do.plot=TRUE, log=FALSE, put.names=TRUE, type="z-ratio" )
# Read Count
p3 = carpools.raw.genes(untreated.list = list(CONTROL1, CONTROL2),
treated.list = list(TREAT1, TREAT2), genes="CASP8", namecolumn=1,
fullmatchcolumn=2, norm.function=median, extractpattern=expression("^(.+?)_.+"),
do.plot=TRUE, log=FALSE, put.names=TRUE, type="readcount" )
# Violine plot
p4 = carpools.raw.genes(untreated.list = list(CONTROL1, CONTROL2),
treated.list = list(TREAT1, TREAT2), genes="CASP8", namecolumn=1,
fullmatchcolumn=2, norm.function=median, extractpattern=expression("^(.+?)_.+"),
do.plot=TRUE, log=FALSE, put.names=TRUE, type="vioplot" )
Run the code above in your browser using DataLab