Displaying 1 result from an estimated 1 matches for "currm".
Did you mean:
curr
2008 Dec 18
1
R2HTML and output from a function
...nt(currT)
if(length(dim(get(currT))) > 2){
#We have to use ftable
require(Hmisc)
print(ftable(get(currT)))
}
else{
print(get(currT))
print(chisq.test(get(currT)))
}
}
#Next, the lme models
mods <- ls(sys.frame(), pattern=".*lme")
require(nlme)
for(currM in mods){
if(class(get(currM)) %in% c("lme","lm")){
cat("\n\n")
print(currM)
print(anova(get(currM)))
}
}
}
This generally works in the console. However, it I try to get the
output processed by R2HTML, I get only the output of one table.
So, now...