## Creates a single plot from elements of an object created by FitCurves
if (interactive()) {
fc <- FitCurves(apt, "hs", k = 2, detailed = TRUE)
PlotCurve(fc$adfs[[1]], fc$dfres[1, ], fc$newdats[[1]])
}
Run the code above in your browser using DataLab