getqmean <- function(x, y) {
n <- length(x)
sum <- 0
for (i in 1: n) {
sum <- sum + x[i] * y[i]
}
print(sum / sum(y))
}
R语言取算术平均值函数
最新推荐文章于 2024-04-27 13:07:04 发布
getqmean <- function(x, y) {
n <- length(x)
sum <- 0
for (i in 1: n) {
sum <- sum + x[i] * y[i]
}
print(sum / sum(y))
}