Displaying 1 result from an estimated 1 matches for "retpval".
Did you mean:
ret_val
2008 Dec 13
2
weird pasting of ".value" when list is returned
...nks.
f.lmmultenhanced <-
function(response, pred1, pred2)
{
regmod <- lm(response ~ pred1 + pred2)
lmsum <- summary(regmod)
imbcoef<-lmsum$coefficients[2,1]
retcoef<-lmsum$coefficients[3,1]
imbpval<-lmsum$coefficients[2,4]
retpval<-lmsum$coefficients[3,4]
Fstat<-lmsum$fstatistic[1]
fpval<-pf(Fstat,lmsum$fstatistic[2],lmsum$fstatistic[3],lower=FALSE)
return(list(categrsp=response,pred1=pred1,pred2=pred2,regmod=regmod,
rest=c("FPVAL"=fpval,"IMBCOEF"=imbcoef,"RETCOEF"=retc...