# NOT RUN {
data(Simp)
if(!exists("Simp.VT"))
Simp.VT <- GetVT(Simp)
if(!exists("Simp.ws"))
Simp.ws <- WindowSweep(Simp.VT, "V*cos(Theta)", windowsize = 50, windowstep = 1, progress=TRUE)
DiagPlot(Simp.ws)
DiagPlot(Simp.ws, type="flat")
# The Simp's diagnostic plots are excellent.
# }
Run the code above in your browser using DataLab