Displaying 1 result from an estimated 1 matches for "samdat".
2012 Nov 07
5
Calling R object from R function
...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.789...