Displaying 1 result from an estimated 1 matches for "centercontrasts".
2012 Jan 03
1
returning information from functions via attributes rather than return list
...uot;) <- nc
attr(res, "centerCall") <- match.call()
res
I wrote print and summary methods, but other methods that work for lm
objects like plot will also work for these new ones.
meanCenter <- function(model, centerOnlyInteractors=TRUE,
centerDV=FALSE, standardize=FALSE, centerContrasts = F){
UseMethod("meanCenter")
}
meanCenter.default <- function(model, centerOnlyInteractors=TRUE,
centerDV=FALSE, standardize=FALSE, centerContrasts = F){
std <- function(x) {
if( !is.numeric(x) ){
stop("center.lm tried to center a factor variable. No Can Do!&qu...