Fixed surveyfit.r plot