tmp <- c(7,7,7,7, -4,-4,-4,-4,-4,-4,-4) tmpf <- factor(letters[1:11]) tmpf contrasts(tmpf) contrasts(tmpf) <- tmp contrasts(tmpf) zapsmall(crossprod(contrasts(tmpf)))
______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
