library(NPflow)
c <- list(c(1,1,2,3,2,3), c(1,1,1,2,3,3),c(2,2,1,1,1,1))
#Fmeasure_costC(sapply(c, "["))
## Not run:
# c2 <- list()
# for(i in 1:100){
# c2 <- c(c2, list(rmultinom(n=1, size=2000, prob=rexp(n=2000))))
# }
# Fmeasure_costC(sapply(c2, "["))
# ## End(Not run)
Run the code above in your browser using DataLab