# Plot Gender-specific densities of the raw science exam
# scores in the GCSE dataset
data(GCSE)
Densities(Dataset = GCSE, Test.Score = Science.Exam, IV=Gender)
# Plot LE-specific densities of the residuals of a model
# where the Openness scale score is regressed on LE
data(Personality)
Fit <- Stage.1(Dataset = Personality, Model = Openness~LE)
summary(Fit)
Data.With.Residuals <- data.frame(Personality,
Fit$HomoNorm$Residuals)
Densities(Dataset = Data.With.Residuals,
Test.Score = Fit.HomoNorm.Residuals, IV = LE)
Run the code above in your browser using DataLab