sample(1:6,1) 1:6 y=c("andrea","carlo","francesco","serena", "flavia") sample(y,1) sample(y,5) sample(y,5,replace=TRUE) sample(y,5,rep=TRUE) x<-c(1,3,5) x y x=sample(6,1) x=sample(6,10,replace=T) x x=sample(6,10,replace=T) x x=sample(6,10,replace=T) x x==2 sum(x) sum(x==2) x=sample(6,6000,replace=TRUE) x length(x) for (i in 1:6) sum(x==i) for (i in 1:6) print(sum(x==i)) wins=rep(0,1000) for( i in 1:1000){ d=sample(1:6,2,rep=TRUE) if(sum(d)==7 || sum(d)==11) wins[i]=1} wins sum(wins)/1000