资源描述：
《R语言第八周作业.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、实验八数据转换实验目的：1.熟悉R中将函数应用到数据框的每列或行中去的方法2.熟悉R中将函数应用不同分组数据以及分组数据框的方法3.熟悉apply系列函数的使用方法与区别4.熟悉by函数的使用情境和方法实验要求：完成每个实验内容的同时，在每题后面附上程序代码。要求独立完成。实验内容：1.对与学生成绩score数据（score.csv），请选用apply系列函数（apply/lapply/sapply/tapply）计算学生语文、数学、英语课程成绩的标准化得分（zscore）library(MASS)score<-read
2、.csv("score.csv")sc<-score[,5:7]sim<-function(a)(a-mean(a))/sd(a)lapply(sc,sim)2.a.对与学生成绩score数据，使用合适的apply函数计算每位同学的成绩总分、平均分。b.选出成绩最好的三名同学。c.选出成绩最差的五名同学。a.score<-read.csv("score.csv")ma<-score[,c(5,6,7)]sum<-apply(ma,1,sum)mean<-apply(ma,1,mean)ma<-cbind(ma,sum,m
3、ean)b.a<-rank(-ma$sum)v<-a<=3vma[v,]c．3.a.对与学生成绩score数据，根据性别分组，分别计算男同学以及女同学的语文平均分、数学平均分、外语平均分。b.根据班级分组，分别计算两个班级的语文平均分、数学平均分、外语平均分。c.根据班级分组，分别得到两个班级语数外成绩的相关系数矩阵。a.a<-score[,c(2,5,6,7)]sam<-function(x){x<-x[,-1];colMeans(x)}b<-by(a,a$sex,sam)b.a<-score[,4:7]sam<-fu
4、nction(x){x<-x[,-1];colMeans(x)}b<-by(a,a$class,sam)c.score<-read.csv("score.csv")ma<-score[,c(5,6,7)]sum<-apply(ma,1,sum)mean<-apply(ma,1,mean)ma<-cbind(ma,sum,mean)a<-rank(ma$sum)v<-a<=5vma[v,]a<-score[,4:7]co<-function(x){x<-x[,-1];cor(x)}b<-by(a,a$class,co)31
5、401061叶胤妤
