Displaying 1 result from an estimated 1 matches for "r2_summary".
Did you mean:
20summary
2000 Jun 21
1
converting a string to an element in a function call
...base.lm){
if ( missing(facvec) || missing(base.lm) ){
cat("This script assesses the contribution of terms in a lm model.\n")
cat(" It expects a vector of names and a lm.object to update.\n")
cat(" as in script.name(facvec,base.lm).\n")
stop()
}
a_0
i_0
base.r2_summary(base.lm)$r.squared
for (i in 1:length(facvec)){
a[i]_c(fac=summary(update(base.lm,.~.+as.name(facvec[i])))$r.squared-base.r2)
i_i+1
}
return(a)
}
Thanks for any help,
adrian
acuster at nature.berkeley.edu
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help...