# NOT RUN {
#Example with a very small sample to decrease computational time.
y1 <-runif(20, 50, 75)
y2 <-runif(20, 30, 75)
y <- cbind(y1, y2)
graph2_m_BOD(output = y, mseries = c(5, 10, 15), B = 50,
RTS = "crs", ORIENTATION = "in")
# }
# NOT RUN {
#An example with a larger sample size.
y1 <-runif(100, 50, 75)
y2 <-runif(100, 30, 75)
y <- cbind(y1, y2)
graph2_m_BOD(output = y,
mseries = c(20, 30, 40, 50, 60, 70, 80),
B = 50, RTS = "crs", ORIENTATION = "in")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab