Displaying 1 result from an estimated 1 matches for "resultl".
Did you mean:
result
2013 Feb 12
3
improving/speeding up a very large, slow simulation
...number.passing[v]+1
} else{number.passing[i] <- 0}
}
number.passing
}
number.passing<-number.passing.plots(verification.plots=verification.plots,
success.fail.num=run$success.fail.num)
sucessful.unsucessful<-rep("blank",p)
one.zero <- rep(0,p)
result <- "blank"
resultL <- 0
n <-length(verification.plots)
for(i in 1:n){
if(number.passing[i] >= mp) {
sucessful.unsucessful[i] <- "successful"
one.zero[i] <- 1
} else {
sucessful.unsucessful[i]<- "unsuccessful"
one.zero[i] <- 0
}
}
if(sum(one.zero) > 0 ) {
result <- &q...