Displaying 2 results from an estimated 2 matches for "mrfit".
Did you mean:
mfit
2010 Feb 15
2
creating functions question
...(.68,.56,.23,.64,.49,-.04,.49,.33,.58,.18,-.11,.27,.26,.40,.49,
.51,.40,.34,.42,.16)
mod2<-factor(c(rep(c(1,2,3,4),5)))
da<-data.frame(id, n, r, mod1, mod2)
reg0<-lm(da$r ~ 1)
reg1<-lm(da$r ~ da$mod1)
reg2<-lm(da$r ~ da$mod1 + da$mod2)
# This is as far as I get with the function:
MRfit <- function( ...) {
models <- list(...)
fit<- anova(models)
return(fit)
}
MRfit(reg0,reg1,reg2)
# This is what I get from R:
# Error in UseMethod("anova") :
# no applicable method for 'anova' applied to an object of class "list"
# which makes sense, but...
2002 Oct 25
2
source output differs from console output
...-names(xfr)
>mr<-lm(eval(parse(text=paste(varlst[1],"~",paste(varlst[-1],collapse="+")))),
>data=xfr)
>write(qnum,"math.txt",append = TRUE)
>sink("math.txt",append = TRUE)
>summary(mr)
>sink()
>write("now i run it as a source via mrfit.R","math.txt",append=TRUE)
>source("../sources/mrfit.R")
>write("now i run it with a write statement instead of the sink
>sequence","math.txt",append=TRUE)
>qnum<-""
>if(given[1]!="NA")qnum<-paste("\n",...