runif(n,min,max)//从min~max选随机数n次 f <- c("sheep","car")//c像是数组?值是sheep和car sample(f,n,prob=c(99,1),replace=TRUE)//从f中抽样n次,replace=TRUE表示抽样后返回, //prob表示抽样的概率为99比1 plot(1:100000,f,type='o',col='red',log="x")//依据f的值划线,1:100000是f的大小 用R估算的值 result<-runif(100000,0,2) f=c...