计算成绩的加权平均值#
![](https://img.haomeiwen.com/i22388565/8c51a9e57513c2d7.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
网友评论