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