PROSAGA码农传奇-R-用R中的不同权重和缺失值计算加权平均值

用R中的不同权重和缺失值计算加权平均值

作者: 一生浮华
发布时间: 2025-02-04 08:14:45 (22天前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    你需要改变第一个条件
     <code>
      if
    </code>
     在你的功能：
  </p>
   <pre class="lang-r prettyprint-override">
    <code>
      wa_func <- function(x, y, z) {
  if (!(is.na(x) | is.na(y) | is.na(z))) {
    wt_avg <- (a / i) * x + (b / i) * y + (c / i) * z

} else if (!is.na(x) & !is.na(y) & is.na(z)) {
    wt_avg <- (a / (i - c)) * x + (b / (i - c)) * y

} else if (!is.na(x) & is.na(y) & is.na(z)) {
    wt_avg <- a / (i - (b + c)) * x

}

return(wt_avg)
}

</code>
  </pre>
  <P>
    您可以改善功能，因此您不需要
     <code>
      mapply
    </code>
     通过包装你的功能
     <code>
      Vectorise()
    </code>
    ：
  </p>
   <pre class="lang-r prettyprint-override">
    <code>
      wa_func <- Vectorize(function(x, y, z) {
  a <- 5 # part of the function?
  b <- 3
  c <- 2
  i <- 10

if (!(is.na(x) | is.na(y) | is.na(z))) {
    (a / i) * x + (b / i) * y + (c / i) * z
  } else if (!is.na(x) & !is.na(y) & is.na(z)) {
    (a / (i - c)) * x + (b / (i - c)) * y
  } else if (!is.na(x) & is.na(y) & is.na(z)) {
    a / (i - (b + c)) * x
  }
  # no need for return()
})

</code>
  </pre>
</DIV>