## load example data set
data(ExampleData.DeValues, envir = environment())
x <- ExampleData.DeValues$CA1
## plot original data
plot_AbanicoPlot(data = x,
summary = c("n", "mean"))
## decrease error by 10 %
plot_AbanicoPlot(data = tune_Data(x, decrease.error = 0.1),
summary = c("n", "mean"))
## increase sample size by 200 %
#plot_AbanicoPlot(data = tune_Data(x, increase.data = 2) ,
# summary = c("n", "mean"))
Run the code above in your browser using DataLab