初学R，练个手

关注

原创最新推荐文章于 2025-03-12 14:43:07 发布 904 阅读 AI 写同款· GEO 优化 ›

R语言初学者做完这100题，编程就像按计算器一样简单众所周知，编程是一个工具，就好像工具箱里的锤子斧头一样。你不能仅仅通过看书，就能熟练掌握锤子斧头的使用方法，同样的，编程作为一个工具，也是需要经常拿在手里使用，才能熟练掌握，所以就有了这次的约稿。我们发现，有很多非工科大类的本科高年级、研究生们，因为科研的需要，会猝不及防地被要求“学一下R”然后分分钟就要你火速上岗，使用这个编程工具干活。而相对应的是，市面上，要不就是好几百页的书，要不就是2,30个视频的教程，非得拉着你讲来龙去脉，实在拖沓。结合以上2点，我们给出了新的解决方案：使用ModelW 阅读详情

随机扔2个色子，求相加之和的数出现概率

> data <- outer(1:6, 1:6, "+")
> data
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    2    3    4    5    6    7
[2,]    3    4    5    6    7    8
[3,]    4    5    6    7    8    9
[4,]    5    6    7    8    9   10
[5,]    6    7    8    9   10   11
[6,]    7    8    9   10   11   12
> gailv <- function(x) length(x)/length(data)
> fc <- factor(data)
> tapply(data, fc, gailv)
         2          3          4          5          6          7          8 
0.02777778 0.05555556 0.08333333 0.11111111 0.13888889 0.16666667 0.13888889 
         9         10         11         12 
0.11111111 0.08333333 0.05555556 0.02777778

画个图

> fr <- table(data)
> fr
data
 2  3  4  5  6  7  8  9 10 11 12 
 1  2  3  4  5  6  5  4  3  2  1 
> plot(as.numeric(names(fr)), fr, type="h", xlab="Determinant", ylab="Frequency")