统计学—基于R 第一章课后题

最新推荐文章于 2022-04-07 22:26:32 发布

薄荷°

最新推荐文章于 2022-04-07 22:26:32 发布

阅读量2.0k

点赞数 4

文章标签： r语言开发语言

本文链接：https://blog.csdn.net/qq_53334934/article/details/120896290

版权

1.2

> set.seed(12)  #设定随机数种子
> rnorm(n=20,mean=0,sd=1)  #产生20个标准正态分布的随机数
 [1] -1.48056759  1.57716947 -0.95674448 -0.92000525
 [5] -1.99764210 -0.27229604 -0.31534871 -0.62825524
 [9] -0.10646388  0.42801480 -0.77771958 -1.29388230
[13] -0.77956651  0.01195176 -0.15241624 -0.70346425
[17]  1.18887916  0.34051227  0.50696817 -0.29330515
> a<-rnorm(n=20,mean=0,sd=1)
> mat<-matrix(a,)
> mat<-matrix(a,
+ nrow=4,ncol=5,
+ byrow=TRUE)

> mat
           [,1]       [,2]       [,3]        [,4]
[1,] -1.4805676  1.5771695 -0.9567445 -0.92000525
[2,] -0.2722960 -0.3153487 -0.6282552 -0.10646388
[3,] -0.7777196 -1.2938823 -0.7795665  0.01195176
[4,] -0.7034643  1.1888792  0.3405123  0.50696817
           [,5]
[1,] -1.9976421
[2,]  0.4280148
[3,] -0.1524162
[4,] -0.2933051
> t(mat)    #mat转置
           [,1]       [,2]        [,3]       [,4]
[1,] -1.4805676 -0.2722960 -0.77771958 -0.7034643
[2,]  1.5771695 -0.3153487 -1.29388230  1.1888792
[3,] -0.9567445 -0.6282552 -0.77956651  0.3405123
[4,] -0.9200052 -0.1064639  0.01195176  0.5069682
[5,] -1.9976421  0.4280148 -0.15241624 -0.2933051

1.3

> Titanic<-read.csv("D:/289250《统计学—基于R》（第4版）—例题和习题数据/TitanicCases.csv")
> attach(Titanic)        #绑定数据
> mytable1<-table(Sex,Survived);mytable1   #生成Sex和Survived两个人变量的二维列表
        Survived
Sex        No  Yes
  Female  126  344
  Male   1364  367
> addmargins(mytable1)   #为列联表添加边际和
        Survived
Sex        No  Yes  Sum
  Female  126  344  470
  Male   1364  367 1731
  Sum    1490  711 2201
> mytable2<-ftable(Titanic,row.vars=c("Class","Sex","Age"),col.vars="Survived")   #行变量为"Class","Sex","Age",列变量为"Survived"    #生成"Class","Sex","Age"和"Survived"四个变量的多维列表
> mytable2
                   Survived  No Yes
Class Sex    Age                   
1st   Female Adult            4 140
             Child            0   1
      Male   Adult          118  57
             Child            0   5
2nd   Female Adult           13  80
             Child            0  13
      Male   Adult          154  14
             Child            0  11
3rd   Female Adult           89  76
             Child           17  14
      Male   Adult          387  75
             Child           35  13
Crew  Female Adult            3  20
             Child            0   0
      Male   Adult          670 192
             Child            0   0


> tab<-ftable(mytable2) #生成列联表
> df<-as.data.frame(tab);df #将列联表转化成带有类别频数的数据框
   Class    Sex   Age Survived Freq
1    1st Female Adult       No    4
2    2nd Female Adult       No   13
3    3rd Female Adult       No   89
4   Crew Female Adult       No    3
5    1st   Male Adult       No  118
6    2nd   Male Adult       No  154
7    3rd   Male Adult       No  387
8   Crew   Male Adult       No  670
9    1st Female Child       No    0
10   2nd Female Child       No    0
11   3rd Female Child       No   17
12  Crew Female Child       No    0
13   1st   Male Child       No    0
14   2nd   Male Child       No    0
15   3rd   Male Child       No   35
16  Crew   Male Child       No    0
17   1st Female Adult      Yes  140
18   2nd Female Adult      Yes   80
19   3rd Female Adult      Yes   76
20  Crew Female Adult      Yes   20
21   1st   Male Adult      Yes   57
22   2nd   Male Adult      Yes   14
23   3rd   Male Adult      Yes   75
24  Crew   Male Adult      Yes  192
25   1st Female Child      Yes    1
26   2nd Female Child      Yes   13
27   3rd Female Child      Yes   14
28  Crew Female Child      Yes    0
29   1st   Male Child      Yes    5
30   2nd   Male Child      Yes   11
31   3rd   Male Child      Yes   13
32  Crew   Male Child      Yes    0
> set.seed(12)