生成列表
rm(list=ls())
#使用“Tom,男,19,(85,84,92,76)”和“Jane,男,18,(89,87,78,90)”生成两个列表对象
st1<-list(name="Tom",gender="男",age="19",grade=c(85,84,92,76))
st2<-list(name="Jane",gender="男",age="18",grade=c(89,87,78,90))
求成绩平均值
#分别求两人的平均分
avg1<-mean(st1$grade)
avg2<-mean(st2$grade)
添加新对象
#在已有列表对象的基础上创建两个新对象,将平均分分别添加到其中
st1$avg<-avg1
st2$avg<-avg2