2020-04-21
2020-04-21 本文已影响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)
