# NOT RUN {
series <- c(1,2,3,4,4,3,2,1)
cat(asciiPlot(series))
series <- c(1,2,3,NA,4,3,NA,1)
cat(asciiPlot(series))
series <- c(1,2,3,4,NA,4,3,2,1)
cat(asciiPlot(series, list('min' = 0)))
# }
# NOT RUN {
cat(asciiPlot(c(NA, NA)))
# }
Run the code above in your browser using DataLab