data("Substitution")
# Fit a model with a linear mean prediction function
Fit <- Stage.1(Dataset = Substitution, Model = LDST~Age)
Check.Assum(Fit)
# Output shows that the homoscedasticity and normality
# assumptions are both violated
Run the code above in your browser using DataLab