<13: Simulation>
> sample(1:6,4,replace=TRUE)
[1] 4 5 2 6
在1-6的整数中随机生成4个整数,且数字可以重复,即每个数字均可重复选择;
>sample(LETTERS)
随机生成26个英文字母
>sample(c(0,1),100,replace = TRUE,prob = c(0.3,0.7))
> rbinom(1,size = 100,prob = 0.7)
[1] 72
>rbinom(100,1,0.7)
> rnorm(10)
生成符合正态分布的10个数,平均数为0,标准差为1
> rnorm(10,mean = 100,sd=25)
生成符合正态分布的10个数,平均数为100,标准差为25
> rpois(5,10)
[1] 5 8 9 11 9
>my_pois <- replicate(100,rpois(5,10))
>cm <- colMeans(my_pois)
各列的平均数
> hist(cm)
显示直方图
<14: Dates and Times>
Sys.Date():显示当前日期,"Date"类型
"2017-07-24"
d2 <- as.Date("1969-01-01"):早于1970-01-01的日期使用as.Date()函数存储;
Sys.time():显示当前系统时间,为"POSIXct" "POSIXt" 类型
"2017-07-24 15:55:49 CST"
as.POSIXlt(Sys.time()):转为化POSIlt类型
weekdays():返回星期几
months():返回月份
quarters():返回季度
strptime(t3,"%B %d, %Y %H:%M"):日期格式化函数
difftime(Sys.time(),t1,units = ‘days‘):计算时间差,并以‘days‘为单位显示
<15: Base Graphics >
plot(x=cars$speed,y=cars$dist,xlab = "Speed",ylab = "Stopping Distance",main = "My Plot", sub="My Plot Subtitle")