# data that simulate those from De Leo & Wulfert (2013)
NORMALITY(data = na.omit(data_CANCOR$DeLeo_2013[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')]))
# \donttest{
# data from Field et al. (2012)
NORMALITY(data = data_DFA$Field_2012,
groups = 'Group',
variables = c('Actions','Thoughts'))
# data from Tabachnik & Fidell (2013, p. 589)
NORMALITY(data = na.omit(data_CANCOR$TabFid_2019_small[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")]))
# }
Run the code above in your browser using DataLab