ceilings <- "cr_fdh"
y <- "Y"
test.rep <- 1000
test.rep = 1
# Contrast test: effect size difference between two conditions
test.type <- "contrast"
data1 <- nca_random(100, c(0.2,0.4), c(1,1))
x <- c("X1", "X2")
difference <- nca_difference(data1 = data1, x = x, y = y,
ceilings = ceilings, test.rep = test.rep,
test.type = test.type)
print(difference)
# Independent test: effect size difference between two datasets
test.type <- "independent"
data1 <- nca_random(100, 0.2, 1)
data2 <- nca_random(100, 0.4, 1)
x <- "X"
difference <- nca_difference(data1 = data1, data2 = data2, x = x, y = y,
ceilings = ceilings, test.rep = test.rep,
test.type = test.type)
print(difference)
# paired test: effect size differences between 2 measurements
test.type <- "paired"
data1 <- nca_random(100, 0.2, 1)
data2 <- nca_random(100, 0.4, 1)
x <- "X"
difference <- nca_difference(data1 = data1, data2 = data2, x = x, y = y,
ceilings = ceilings, test.rep = test.rep,
test.type = test.type)
print(difference)
Run the code above in your browser using DataLab