data1 <- read.csv(system.file("extdata", "data_2factorBlock3ref.csv", package = "rtpcr"))
ANOVA_DDCt(data1,
numOfFactors = 2,
numberOfrefGenes = 3,
block = "block",
mainFactor.column = 2,
p.adj = "none")
data2 <- read.csv(system.file("extdata", "data_1factor_one_ref.csv", package = "rtpcr"))
ANOVA_DDCt(data2,
numOfFactors = 1,
numberOfrefGenes = 1,
block = NULL,
mainFactor.column = 1,
p.adj = "none",
se.type = "single.group")
# # Repeated measure analysis
# a <- ANOVA_DDCt(data_repeated_measure_1,
# numOfFactors = 1,
# numberOfrefGenes = 1,
# block = NULL,
# mainFactor.column = 1,
# p.adj = "none", model = wDCt ~ time + (1 | id))
#
# a$perGene$Target$ANOVA_table
#
#
# # Repeated measure analysis: split-plot in time
# a <- ANOVA_DDCt(data_repeated_measure_2,
# numOfFactors = 2, numberOfrefGenes = 1,
# mainFactor.column = 2, block = NULL,
# model = wDCt ~ treatment * time + (1 | id))
Run the code above in your browser using DataLab