# data from Cohen et al. (2003)
Cohen_2003_p621 <- '
1.0
.53 1.0
.62 .61 1.0
.19 .23 .03 1.0
-.09 .10 .10 -.02 1.0
.08 .18 .12 .02 .05 1.0
.02 .02 .03 .00 .06 .22 1.0
-.12 -.10 -.06 -.02 .18 -.07 -.01 1.0
.08 .15 .12 -.02 .02 .36 -.05 -.03 1.0'
Cohen_2003_p621_noms <- c('ADHD', 'CD', 'ODD', 'Sex', 'Age', 'MONLY',
'MWORK', 'MAGE', 'Poverty')
Cohen_2003_p621 <- data.matrix( read.table(text=Cohen_2003_p621, fill=TRUE,
col.names=Cohen_2003_p621_noms,
row.names=Cohen_2003_p621_noms ))
Cohen_2003_p621[upper.tri(Cohen_2003_p621)] <-
t(Cohen_2003_p621)[upper.tri(Cohen_2003_p621)]
# whole
SET_CORRELATION(data=Cohen_2003_p621,
IVs = c('Sex', 'Age', 'MONLY', 'MWORK', 'MAGE', 'Poverty'),
DVs = c('ADHD', 'CD', 'ODD'),
IV_covars = NULL,
DV_covars = NULL,
Ncases = 701)
# \donttest{
# bipartial
SET_CORRELATION(data=data_DeLeo_2013,
IVs = c('Grade_Point_Average','Family_Morals','Social_Support',
'Intolerance_of_Deviance','Impulsivity','Social_Interaction_Anxiety'),
DVs = c('Problematic_Internet_Use','Tobacco_Use','Alcohol_Use','Illicit_Drug_Use'),
IV_covars = c('Age','Parents_Income'),
DV_covars = c('Gambling_Behavior','Unprotected_Sex'),
display_cormats=TRUE)
# X semipartial
SET_CORRELATION(data=data_DeLeo_2013,
IVs = c('Grade_Point_Average','Family_Morals','Social_Support',
'Intolerance_of_Deviance','Impulsivity','Social_Interaction_Anxiety'),
DVs = c('Problematic_Internet_Use','Tobacco_Use','Alcohol_Use','Illicit_Drug_Use'),
IV_covars = c('Age','Parents_Income'),
DV_covars = NULL)
# partial
SET_CORRELATION(data=data_DeLeo_2013,
IVs = c('Grade_Point_Average','Family_Morals','Social_Support',
'Intolerance_of_Deviance','Impulsivity','Social_Interaction_Anxiety'),
DVs = c('Problematic_Internet_Use','Tobacco_Use','Alcohol_Use','Illicit_Drug_Use'),
IV_covars = c('Age','Parents_Income'),
DV_covars = c('Age','Parents_Income'))
# }
Run the code above in your browser using DataLab