Or try:
datbig<-numeric(1000)
for (i in 1:1000){
datbig[i] <- mean(sample(1:6, 1000, prob = c(1, 1, 2, 3, 2, 1)/10, replace
= TRUE))
hist(datbig,breaks="FD")
--
View this message in context: http://r.789695.n4.nabble.com/ifelse-command-tp2329538p2329711.html
Sent from the R help mailing list archive at Nabble.com.