100РA[, , 2] <- A[, , 2] + 200РAРmean(A[,,1])Рmean(A[,,2])Р输出结果:Р2017年10月18日第二次作业Р1、查询tapply的函数帮助信息,并用帮助文件中的案例进一步学习(自己给一个新的例子)。Р1、源程序:Рn <- 17Рfac <- factor(rep(1:3, length = n), levels = 1:5)РfacРtable(fac)Рtapply(1:n, fac, sum)Р输出结果:Р(注:51=1+4+7+10+13+16,是对数据为1的下标进行求和,57,45同理。)Р2、把user.txt数据中的性别、年龄、身高分别输入到R中。计算不同性别、不同年龄的人数,并计算每一组的平均身高。把这些变量组合成一个列表。Р2、源程序:Рdata<- read.table(file="user.txt", header=T)Рnames(data)Рtable(data$Sex)Рtable(data$Age)Рtapply(data$Height,data$Sex,mean)Рtapply(data$Height,data$Age,mean)Рlist(data$Height,data$Sex,data$Age)Р输出结果:Р3、把语句x <- floor(2*runif(100))所生成的向量保存到一个文本文件中,数据项分别用空格和换行分隔。然后从此文件中读入数据到向量y中。Р3、源程序:Рx<- floor(2*runif(100))Рwrite(x,file="t1.txt",sep=" ")Рwrite(x,file="t2.txt",sep=",",ncol=10)Рy<-scan("t1.txt",sep=" ")РyРy<-scan("t1.txt",sep=",")РyР输出结果:
全文预览
