calc_psp(B_LU_BRP = 265, M_GREEN = TRUE)
calc_psp(B_LU_BRP = c(265,1019,265,1019), M_GREEN = rep(TRUE,4))
calc_psp(B_LU_BRP = c(2014, 2767), M_GREEN = rep(TRUE,2),
M_GREEN_START = c(10L, 11L), M_GREEN_TERMINATE = c(12L, 3L))
Run the code above in your browser using DataLab