plotRelVar(data, f_p1, predict_from=P); title(paste("StdDev p1 day",i_p))
plotRelVar(data, f_np2, predict_from=P); title(paste("StdDev p2 day",i_np))
plotRelVar(data, f_p1, predict_from=P); title(paste("StdDev p1 day",i_p))
plotRelVar(data, f_np2, predict_from=P); title(paste("StdDev p2 day",i_np))