elements <- as.character(1:10)
conditions <- letters[1:2]
# randomly generate probability of elements
probabilities <-
sapply(elements, function(x) {
p <- runif(length(conditions))
setNames(round(p, 1), nm = conditions)
})
sim_facs(probabilities)
Run the code above in your browser using DataLab