#load output from occTest
occTest_output <- readRDS (system.file('ext/out.rds',package = 'occTest'))
#filter dataset output from occTest
filtered_occTest <- occFilter (occTest_output)
#plot the outputs
descriptive_plots <- plot (x=occTest_output,occFilter_list=filtered_occTest)
Run the code above in your browser using DataLab