X = c(rnorm(1000, mean = 0), rnorm(1000, mean = -2), rnorm(1000, mean = 2));
param = seq(0,5,length=3000); res <- movpotential_ews(X, param);
PlotPotential(res$res, title = '', xlab.text = '', ylab.text = '',
cutoff = 0.5, plot.contours = TRUE, binwidth = 0.2)
Run the code above in your browser using DataLab