# \donttest{
# Test with default values
df <- data.frame(grp1 = rnorm(50), grp2 = rnorm(50))
df <- wide2long(df)
result <- groupcompare(df)
print(result)
# Test with daily weight gain of two quail breeds
data(quail)
result <- groupcompare(quail, alternative="two.sided", cl=0.95,
R=200, plots=TRUE, out=FALSE, verbose=TRUE)
print(result)
# Test with milk trace mineral data
filepath <- system.file("extdata", "milkcomp.csv", package = "groupcompare")
milktrace <- read.table(filepath, header=TRUE, sep=",")
head(milktrace)
milkzinc <- as.data.frame(cbind(milktrace$Zn, milktrace$grp))
colnames(milkzinc) <- c("zn","grp")
head(milkzinc)
tail(milkzinc)
result <- groupcompare(milkzinc, cl=0.99, alternative="greater",
R=200, plots=TRUE, out=FALSE, verbose=TRUE)
print(result)
# }
Run the code above in your browser using DataLab