计算成绩的加权平均值#

截屏2020-09-04 上午1.49.59.png

先用excel替换功能将所有空缺值替换为 NA

data<-read.csv("~/Desktop/成绩/2020.9.2.csv",header=F)

weightedmean<-function(a){

  sum1<- c()

  for (i in 1:26){

    sum<-0

    grade<-as.vector(unlist(a[i+2,]))

    grade<-as.numeric(grade)

    sum<-weighted.mean(grade,point,na.rm=TRUE)

    sum1<-c(sum1,sum)

  }

  return(sum1)

}

定义函数，共26人，72门课程

weight <-weightedmean(data)

weight