R-與誰最有緣

從班上學生隨機抽10000次，看看與誰最有緣。(本班有59人)

> x=sample(1:59, 10000, TRUE) // X樣本數從1到59，抽10000次，可放回重抽

> hist(x, breaks=0.5:60) // 顯示X樣本

結果我與14號最有緣。