1. Load data

ts <- read.csv("https://raw.githubusercontent.com/forvis/forvision_data/master/M3_quarterly_TSTS.csv", stringsAsFactors = FALSE)
fs <- read.csv("https://raw.githubusercontent.com/forvis/forvision_data/master/M3_quarterly_PIs_FTS.csv", stringsAsFactors = FALSE)
head(ts)
head(fs)

2. validatePIs

validatePIs(ts, fs, pi = 95)
validatePIs(ts, fs, pi = 80)