2017年6月17日
R掷硬币500次，出现真面朝上的概率
摘要： # 掷硬币500次N <- 500flipsequence <-sample(x=c(0,1),size = N,replace = TRUE,prob = c(0.5,0.5)) r <- cumsum(flipsequence) ##统计每项前出现1的次数矩阵n <- 1:N ##1~500的顺 阅读全文
posted @ 2017-06-17 00:52 Lincy*_* 阅读(509) 评论(0) 推荐(0) 编辑