Displaying 1 result from an estimated 1 matches for "auxrsq".
Did you mean:
adjrsq
2011 Dec 19
1
pls help to print out first row of terms(model) output in example program
...( "`", i, "`", " ~ ." , sep="");
print(fmla)
maux <- lm( formula(fmla), data=dat)
results[[ i ]] <- maux
print(maux$call[2])
###fix me fix me ##
}
results
}
mcDiagnose <- function(model){
auxRegs <- lmAuxiliary(model)
auxRsq <- numeric(length=length(auxRegs))
j <- 0
for ( i in auxRegs ){
j <- j + 1
sumry <- summary(i)
auxRsq[j] <- sumry$r.squared
}
print("Drum roll please!")
print("And your R_j Squareds are (auxiliary Rsq)")
print(names(auxRegs))
print(auxRsq...