require(tibble)
testTB <- dplyr::tribble(
~time, ~countryA , ~countryB, ~countryC,
2000, 0.8, 2.7, 3.9,
2001, 1.2, 3.2, 4.2,
2002, 0.9, 2.9, 4.1,
2003, 1.3, 2.9, 4.0,
2004, 1.2, 3.1, 4.1,
2005, 1.2, 3.0, 4.0
)
curcountry <- 2
resPAR <- ts_parlin(testTB[,c(1,curcountry)])
curcountry <- 4
resPAR1 <- ts_parlin(testTB[,c(1,curcountry)])
Run the code above in your browser using DataLab