# NOT RUN {
# Interactive session is required.
vfit <- visualFit(y~x,data=kilnAfull,ncomp=3)
stepPlot(y ~ x,ncomp=3,data=kilnAfull,thetaStart=vfit$theta)
# }
# NOT RUN {
# The result is clearly slightly wrong in respect of the second ("middle")
# component, which has a slope that is too low. The outlier in
# kilnAfull may be "pulling up" the left hand end of the fitted line.
# }
Run the code above in your browser using DataLab