data(los, package="robustbase")
if (FALSE) {
los.fm <- fit.models(c(Robust = "fitdstnRob", MLE = "fitdstn"),
x = los, densfun = "gamma")
los.fm <- fit.models(c(Robust = "fitdstnRob", MLE = "fitdstn"),
x = los, densfun = "weibull")
overlaidDenPlot.fdfm(los.fm, xlab = "x-axis label", ylab = "y-axis label",
main = "Plot Title")
}
Run the code above in your browser using DataLab