Publications by Kim Ngan Hoang
CVLT-II Preliminary Data Analyses
Codes for flattening correlation matrix # ++++++++++++++++++++++++++++ # flattenCorrMatrix # ++++++++++++++++++++++++++++ # cormat : matrix of the correlation coefficients # pmat : matrix of the correlation p-values flattenCorrMatrix <- function(cormat, pmat) { ut <- upper.tri(cormat) data.frame( row = rownames(cormat)[row(cormat)...
1218 sym 12 img
Multigroup CFA -- Nielsen et al 2021's data
Check data DT::datatable(psych::describe(Sample_2_Nielsen)) DT::datatable(psych::describe(Sample_3_Nielsen_org)) ## Warning in FUN(newX[, i], ...): no non-missing arguments to min; returning Inf ## Warning in FUN(newX[, i], ...): no non-missing arguments to max; returning -Inf Concatenate data Sample_2_Nielsen$sample_group = "sample2" Sample_3...
3988 sym Python (156256 sym/37 pcs)
Multigroup SEM - Neilsen Sample 1 and UofA data - 7 factors
Check data DT::datatable(psych::describe(Sample_1_Nielsen)) DT::datatable(psych::describe(UofA_Sample)) Concatenate data Sample_1_Nielsen$sample_group = "Nielsen" UofA_Sample$sample_group = "UofA" combined <- rbind(UofA_Sample, Sample_1_Nielsen) Set up CFA model model <-' DISC =~ DISC1 + DISC2 + DISC3 + DISC4 + DISC5 + DISC6 JOB =~ JOB1 +...
883 sym
Multigroup SEM - Neilsen Sample 1 and UofA data - 6 factors
Concatenate data Sample_1_Nielsen$sample_group = "Nielsen" UofA_Sample$sample_group = "UofA" combined <- rbind(UofA_Sample, Sample_1_Nielsen) Set up CFA model model <-' DISC =~ DISC1 + DISC2 + DISC3 + DISC4 + DISC5 + DISC6 JOB =~ JOB1 + JOB2 +JOB3 + JOB4 + JOB5 CARE =~ CARE1 + CARE2 + CARE3 + CARE4 RISK =~ RISK1 + RISK2 + RISK3 SOC =~ SO...
866 sym
U of A Sample - MG CFA on younger vs older groups
Create Age groups (median split) UofA_Sample <- UofA_Sample %>% mutate(AgeGroup = if_else(UofA_Sample$AGE <= median(UofA_Sample $AGE), "Younger", "Older" )) Set up CFA model model <-' DISC =~ DISC1 + DISC2 + DISC3 + DISC4 + DISC5 + DISC6 JOB =~ JOB1 + JOB2 +JOB3 + JOB4 + JOB5 CARE =~ CARE1 + CARE2 + CARE3 + CARE4 RISK =~ RISK1 + RISK...
884 sym
Nielsen vs UofA
Check data DT::datatable(psych::describe(Sample_1_Nielsen)) DT::datatable(psych::describe(UofA_Sample)) Concatenate data Sample_1_Nielsen$sample_group = "Nielsen" UofA_Sample$sample_group = "UofA" combined <- rbind(UofA_Sample, Sample_1_Nielsen) Set up CFA model model <-' DISC =~ DISC1 + DISC2 + DISC3 + DISC4 + DISC5 + DISC6 JOB =~ JOB1 +...
985 sym