my modification gives me error
> rows<- c(1:nrow(mat))
> scores <- c()
> labels <-c()
> itr<-1000
> chnksz<-ceiling(itr/getDoParWorkers())
> smpopt=list(chunkSize=chnksz)
> foreach(icount(itr),.combine=cbind,.options.smp=smpopts)%dopar%
+ {
+ train <- sample(rows, length(rows)-1)
+ label =0 ; if (mat$Self_T1D[-train] == "N") label = 1 #need the value
for this line, should it be 'N' or 'Y'
+ z <- lda(mat[train,4] ~ mat[train,1:3])
+ score = predict(z, mat[-train, ])$pos[1]
+ scores <- c(scores, score)
+ labels<- c(labels, label)
+ }
Error in { : task 1 failed - "could not find function "lda""
--
View this message in context:
http://r.789695.n4.nabble.com/help-with-parallel-processing-code-tp3944303p3945243.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.
