Hi,
Can you please help me with this please?
What I am trying to do is call a vector from R function and used in the new
function
So I create 4 functions with these arguments
M11 <- function(TrainData,TestData,mdat,nsam) {
ls <- list()
I have few statments one of them is
vectx <- c(,1,2,3,4,5,6,6)
vectz <- c(12,34,5,6,78,9,90)
and then................
ls(vectx=vtecx,vectz=vectz)
return(ls)
}
Then I great an new function has the following arguments
get.m <- function(dat,asim,ModelFun,M){
Sim <- list()
modInd <- ModelFun(TrainData=dat,TestData=dat,mdat=dat,nsam=0.1) *# HERE IS
MY PROBLEM HOW CAN I JUST CALL vectx without fitting the ModelFun becasue as
you see in the bottom TrainData and Test are arguments used after
resampling. I dont want to use the main dat argument?*
if(M==11){
vecx <- modInd$vectx
px <- length(vecx) # ncol for X
nam <-colnames(dat[,vecx])
Asse <- matrix(NA,nrow=asim,ncol=px)
colnames(Asse) <- nam
}
for(i in 1:asim){
set.seed(i)
Samdat <- dat[sample(1:nrow(dat), nrow(dat), replace = TRUE), ]
TrSet <- Samdat[1:50,]
TeSet <- Samdat[51:75,]
}
Model<- ModelFun(TrainData=TrSet ,TestData=TeSet ,mdat=dat,nsam=i)
Y <- Model$Y
X <- Model$X
fit <- lm(Y~X)
return(fit)
}
--
View this message in context:
http://r.789695.n4.nabble.com/Calling-R-object-from-R-function-tp4648714.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
