powered by
Function to request number of hypotheses.
getNumber(obj)
object of type "mmctSampler" derived from class "mmctSamplerGeneric".
works with object of type "mmctSampler" derived from class "mmctSamplerGeneric".
# NOT RUN { fun <- function(ind,n,data) sapply(1:length(ind), function(i) sum(runif(n[i])<=data[ind[i]])); i <- mmctSampler(fun,num=500,data=runif(500)); number <- getNumber(i); # }
Run the code above in your browser using DataLab