Как пометить результаты из foreach l oop в R - PullRequest
Новая
       47

Как пометить результаты из foreach l oop в R

0 голосов
/ 06 августа 2020 
data<-read.table(text="Date    StudentID   Subjectid
                     201601   123        1
                     201601   234        4
                     201601   122        2
                     201602   123        3
                     201602   123        1
                     201602   234        2
                     201603   122        3",header=T)

foredata<-data[1:3,]
backdata<-data[4:7,]
install.packages("doParallel")
library(doParallel)
start<-Sys.time()
registerDoParallel(cl = 3, cores = 2)

#foreach loop
foreach(i = 2:nrow(data), .combine = rbind,.inorder = F,.init = 0)  %dopar% {
 ifelse(any(backdata[i,]==data[i,]),table(backdata[i,]==data[i,])/(dim(foredata[i,]==data[i,])),round(sum(table(data[i,])/7<0.05)*100,3))
}
end<-Sys.time()
end-start

Мой вопрос: как пометить результаты из foreach l oop? В ifelse я хочу пометить истинные результаты как «T», а ложные - как «F». Спасибо!

...