Displaying 1 result from an estimated 1 matches for "varlst".
Did you mean:
varlist
2002 Oct 25
2
source output differs from console output
...nd 3 outputs
to the file.
Thanks for your help.
qnum<-""
if(given[1]!="NA")qnum<-paste("\n",given[1],".",sep = "")
xfr<-dfr
if(given[2]!="NA")
{
x<-as.numeric(unlist(strsplit(given[2],",")))
xfr<-cbind(dfr[,x])
}
varlst<-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()
The console log was as follows
>given
[1] "1"...