2020-04-21

作者: 纤蹄马 | 来源:发表于2020-04-21 10:54 被阅读0次

    library("fUnitRoots")

    UnitRootTest <- function(data = data) {

      result <- vector(length = nrow(data), mode = 'logical')

      for (i in nrow(data)) {

        result[i] <- (summary(unitrootTest(x = data[i], ...))@test$p.value <= 0.05)

      }

      return(invisible(result))

    }

    ...

    UnitRootTest(marker)

    相关文章

      网友评论

        本文标题:2020-04-21

        本文链接:https://www.haomeiwen.com/subject/mhzyihtx.html