help with parallel processing code

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.