powered by
r2dRplot(o, type = "rain", scope = "run", var = "vi", pixel = 1, col = c("blue", "green4", "salmon", "gray"))