y <- rbinom(100, 1, .5)
x1 <- rnorm(100) + 1.5 * y
x2 <- rnorm(100) + .5 * y
x3 <- rnorm(100) + 2.5 * y
x <- data.frame(x1,x2,x3)
y <- as.factor(y)
(M1 <- deLong.test(x, labels=y, labpos="1"))
## Not run:
# ## just because of checking time on CRAN
#
#
# data(iris)
# (M2 <- deLong.test(iris[,1:4], labels=iris[,5], labpos="versicolor"))
# ## End(Not run)
Run the code above in your browser using DataLab