实 验 报 告
实验课程名称 统计计算
实验项目名称 数据的描述性分析
年 级
专 业
学生姓名
学 号
理 学 院
实验时间： 20 14 年 6 月 6
日
一．主要代码：
二．数据图
1. 数据的读入与转换
studata<-read.table(\"3.7.txt\");studata data.frame(studata)
names(studata)<-c(\"stuno\
2. 各数据的截图 2.1 plot(age);
2.2 plot(height);
2.3 plot(weight);
3. 各个数据的特征值 3.1 年龄的特征值
> a<-c(13,13,14,12,15,11,15,14,14,14,15,12,13,12,16,12,11,15) > mean(a);#年龄的平均值 [1] 13.388 3.2体重的特征值
>h<-c(56.5,65.3,.3,56.3,59.8,66.5,51.3,62.5,62.8,69.0,63.5,67.0,57.3,62.5,59.0,72.0,.8,57.5,66.5)
> mean(h);#体重的平均值 [1] 62.33684
> var(h);#体重的方差 [1] 26.2869
> sd(h);#体重的标准差 [1] 5.127075
3.3身高的特征值
> w<-c(84.0, 98.0, 90.0, 77.0, 84.5, 112.0,50.5, 112.5, 102.5, 112.5, 102.5, 133.0,83.0, 84.0, 99.5, 150.0, 128.0, 85.0,112.0) > mean(w);#身高的平均值 [1] 100.0263
> var(w);#身高的方差 [1] 518.652
> sd(w);#身高的标准差 [1] 22.77393
4.变量之间的依赖关系图 4.1 体重对于身高的散点图
attach(studata)#将数据框调入内存 plot(weight~height,col=\"red\")#
体
重
对
于
身
高
的
散
点
图
4.2 不同性别，体重与身高的散点图
> coplot(weight~height|sex,col=\"red\")#不同性别，体重与身高的散点图 4.3不同年龄，体重与身高的
散点图
coplot(weight~height|age,col=\"red\")#不同年龄，体重与身高的散点图
4.4不同年龄，性别，体重与身高的散点图
> coplot(weight~height|age+sex,col=\"red\")#不同年龄，性别，体重与身高的散点图