Рассчитать значение Манна Кендалла P в In R

Question

У меня возникли проблемы с моим сценарием Манна Кендалла R.

Я получаю неправильное значение P, когда вычисляю на основе суммы (количества), но оно дает мне точное значение P на основе количества записей.

Набор данных%>% мутировать (

  MannKendallY = if (length(Total) > 0)

  {MK <- MannKendall(TotalQuantity) 

  pvalue <- as.numeric(MK$s)} else{

    pvalue <- 1}

) %>% mutate(

  TauY = if (length(Total) > 0)

  {MK <- MannKendall(Total) 

  tau <- as.numeric(MK$tau)} else{

    tau <- 0}

)

Любые вклады приветствуются.

Большое спасибо.