search for: contrastidx

Displaying 1 result from an estimated 1 matches for "contrastidx".

Did you mean: contrasted
2012 Jan 03
1
returning information from functions via attributes rather than return list
...stddat <- rdf for (i in nc) stddat[ , i] <- std( stddat[, i]) mc$data <- quote(stddat) }else{ ##dm: design matrix, only includes intercept and predictors dm <- model.matrix(model, data=rdf, contrasts.arg = model$contrasts, xlev = model$xlevels) ##contrastIdx: indexes of contrast variables in dm contrastIdx <- which(attr(dm, "assign")== match(isFac, tl)) contrastVars <- colnames(dm)[contrastIdx] nc <- c(nc, contrastVars) dm <- as.data.frame(dm) hasIntercept <- attr(t, "intercept")...