data1 <- read.csv(system.file("extdata", "data_2factorBlock3ref.csv", package = "rtpcr"))
ANOVA_DDCt(x = 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(x = data2,
numOfFactors = 1,
numberOfrefGenes = 1,
block = NULL,
mainFactor.column = 1,
p.adj = "none")
# 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