# NOT RUN {
# data that simulate those from De Leo & Wulfert (2013)
normality(data = na.omit(data_CCA_De_Leo[c(
'Unprotected_Sex','Tobacco_Use','Alcohol_Use','Illicit_Drug_Use',
'Gambling_Behavior','CIAS_Total','Impulsivity','Social_Interaction_Anxiety',
'Depression','Social_Support','Intolerance_of_Deviance','Family_Morals',
'Family_Conflict','Grade_Point_Average')]))
# }
# NOT RUN {
# data from Field et al. (2012)
normality(data = data_DFA_Field,
groups = 'Group',
variables = c('Actions','Thoughts'))
# data from Tabachnik & Fidell (2013, p. 589)
normality(data = na.omit(data_CCA_Tabachnik[c('TS','TC','BS','BC')]))
# UCLA dataset
UCLA_CCA_data <- read.csv("https://stats.idre.ucla.edu/stat/data/mmreg.csv")
colnames(UCLA_CCA_data) <- c("LocusControl", "SelfConcept", "Motivation",
"read", "write", "math", "science", "female")
summary(UCLA_CCA_data)
normality(data = na.omit(UCLA_CCA_data[c("LocusControl","SelfConcept","Motivation",
"read","write","math","science","female")]))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab