1.创建变量x记录5个人的名字（Michael，John，Jane，Jack，Jorge），变量y1记录数学成绩（45,65,85,95,75），y2记录语文成绩（95，85,75,64,35），y3记录英语成绩（35,65,75,95,80）；用不同方法将第二个人的数学成绩改为原成绩+5分（尽可能多种方法）。

2.将三门功课的成绩组成一矩阵，基于这个矩阵，计算每门功课的平均成绩z1和每个人的总成绩z2；用不同方法提取Michael和Jane的语文和数学成绩（尽可能多种方法）。

我第一问是这样的

x<-c('Michael','John','Jane','Jack','Jorge')

y1<-c(45,65,85,95,75)

y2<-c(95,85,75,64,35)

y3<-c(35,65,75,95,80)

第二问是这样，可是是错的。。。

m1 <- matrix(c=(45,70,85,95,75,95,85,75,64,35,35,65,75,95,80),nrow=3,ncol=5,dimnames=list(c=x,c=("Shuxue","Yuwen","Yingyu")))

m1 <- matrix(c(y1, y2, y3), nrow=5, dimnames = list(x,c("Shuxue","Yuwen","Yingyu")))
colMeans(m1)
rowSums(m1)