dat <- data.frame(matrix(rnorm(2 * 100), ncol = 2))
names(dat) <- c("y1", "y2")
dat$typ1 <- sample(1:2, size = nrow(dat), TRUE)
dat$typ2 <- sample(1:3, size = nrow(dat), TRUE)
headm(dat)
dtagg(y1 ~ 1, data = dat)
dtagg(y1 ~ typ1 + typ2, data = dat)
dtagg(y1 ~ typ1 + typ2, data = dat, trim = .2)
Run the code above in your browser using DataLab