如何處理r中sens.slope中的NA？

Question

如果我有這個數據：

library(trend)
v <- runif(100) * 1:100
func <- function(x,na.rm=T) { unlist(sens.slope(x)) }
func(v,na.rm=T)

一切順利，沒有問題。 但在我的真實數據中有 NA。

v[1]=NA
func(v,na.rm=T)

我收到此錯誤： na.fail.default(x) 中的錯誤：對象中缺少值

Answer 1

首先設置v <- v[!is.na(v)] （在將v提供給func之前），它應該可以正常運行。

或者調整您的功能，在這種情況下，上述內容是不必要的：

func <- function(x,na.rm=T) {
 if(sum(is.na(x)) == length(x)) return(NA)
 if(na.rm) x <- x[!is.na(x)]
 unlist(sens.slope(x)) 
}