path <- system.file("exData", package = "NormqPCR")
taqman.example <- file.path(path, "example.txt")
qPCRBatch.taqman <- read.taqman(taqman.example)
hkg <- "Actb-Rn00667869_m1"
contM <- cbind(c(0,0,1,1,0,0,1,1),c(1,1,0,0,1,1,0,0))
colnames(contM) <- c("interestingPhenotype","wildTypePhenotype")
rownames(contM) <- sampleNames(qPCRBatch.taqman)
ddCq.taqman <- deltaDeltaCq(qPCRBatch = qPCRBatch.taqman, maxNACase=1,
maxNAControl=1, hkg=hkg, contrastM=contM,
case="interestingPhenotype",
control="wildTypePhenotype",
statCalc="geom", hkgCalc="arith")
head(ddCq.taqman)
Run the code above in your browser using DataLab