计算成绩的加权平均值#
截屏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
网友评论