Displaying 2 results from an estimated 2 matches for "lmexp".
Did you mean:
ldexp
2000 Sep 22
3
eval functions... (PR#668)
...US)...so I am wondering if it is a
bug.
Eg., the foll. extract from a function runs fine in S-PLUS but gives the error:
Error in x[[j]] : subscript out of bounds
in R
code snippet .....
attach(xd)
resp <- "iv802"
pickedlist <- "BD + CEC + CLAY + ERODFAC + INCEPTSL"
lmexp <- paste(resp, " ~ ", pickedlist,sep="")
tmpzx <- eval(lm(lmexp,data=xd))
Essentially, I want to do:
lm(iv802 ~ BD + CEC + CLAY + ERODFAC + INCEPTSL, data=xd)
thru a function that has the parameters passed thru TclTk and Perl......
Thanks much.
-.-.-.-.-.-.-.-...
2000 Sep 29
0
Is it R or I?
...c(charmatch(paste(resp), names(xd)))]
assign(resp, get(resp))
ndf <- as.data.frame(get(resp))
names(ndf) <- "addcolx"
xd <- data.frame(xd, ndf)
names(xd)[charmatch("addcolx", names(xd))] <- resp
cat("Lm Model", "\n")
lmexp <- formula(paste(resp, " ~ ", pickedlist,sep=""))
lmexpall <- formula(paste(resp, " ~ .", sep=""))
assign("xd", xd, env=.GlobalEnv)
tmpzx <- lm(lmexp, data=xd)
# NOTE: THE STEP() TAKES FOREVER IN R
# tmpzx2 <-lm...