setwd("~/Google Drive/PhD/Projects/NS QoL survey/Data")
library(readr)
library(PerformanceAnalytics)
library(corrplot)
library(plyr)
library(dplyr)
library(psych)
library(Hmisc)
library(rmarkdown)
library(jmv)
library(stats)
library(car)
qol <- read_csv("CIW_ENS2021.csv")
#recoding to get rid of 6's and 9's and 11's
qol$POLICY_R <- car::recode(qol$POLICY, "1=1; 2=2; 3=3; 4=4; 5=5; 6=6; 7=7; else=NA")
qol$EXP_BILL_R <- car::recode(qol$EXP_BILL, "1=1; 2=2; 3=3; 4=4; 5=5; else=NA")
qol$EXP_HOME_R <- car::recode(qol$EXP_HOME, "1=1; 2=2; 3=3; 4=4; 5=5; else=NA")
qol$EXP_FOOD_R <- car::recode(qol$EXP_FOOD, "1=1; 2=2; 3=3; 4=4; 5=5; else=NA")
qol$EXP_NFOOD_R <- car::recode(qol$EXP_NFOOD, "1=1; 2=2; 3=3; 4=4; 5=5; else=NA")
qol$EXP_FOODBK_R <- car::recode(qol$EXP_FOODBK, "1=1; 2=2; 3=3; 4=4; 5=5; else=NA")
qol$EXP_TRANS_R <- car::recode(qol$EXP_TRANS, "1=1; 2=2; 3=3; 4=4; 5=5; else=NA")
qol$EXP_WANT_R <- car::recode(qol$EXP_WANT, "1=1; 2=2; 3=3; 4=4; 5=5; else=NA")
qol$EXP_NEED_R <- car::recode(qol$EXP_NEED, "1=1; 2=2; 3=3; 4=4; 5=5; else=NA")
col_names <- c("TIMEREST", "TIMESELF", "TIMESOC", "TIMEPHYS",
"TIMEMEAL", "TIMECOMM", "TIMENURT", "TIMECHOR", "TIMEKIDS",
"TIMESPOU", "TIMEFAML", "TIMERELA", "TIMECREA")
qol <- qol %>% mutate(across(all_of(col_names),
car::recode, "1=1; 2=2; 3=3; 4=4; 5=5; 6=6;
7=7; 8=8; 9=9; 10=10; else=NA",
.names = "{.col}_R"))
#screening to make sure it worked properly
table(qol$POLICY_R, useNA = "always")
##
## 1 2 3 4 5 6 7 <NA>
## 339 283 548 5287 2140 1616 561 1357
table(qol$EXP_BILL_R, useNA = "always")
##
## 1 2 3 4 5 <NA>
## 9221 833 551 430 393 703
table(qol$EXP_HOME_R, useNA = "always")
##
## 1 2 3 4 5 <NA>
## 9427 285 130 92 80 2117
table(qol$EXP_FOOD_R, useNA = "always")
##
## 1 2 3 4 5 <NA>
## 9968 361 309 274 454 765
table(qol$EXP_NFOOD_R, useNA = "always")
##
## 1 2 3 4 5 <NA>
## 9383 395 425 390 814 724
table(qol$EXP_FOODBK_R, useNA = "always")
##
## 1 2 3 4 5 <NA>
## 10974 95 54 52 157 799
table(qol$EXP_TRANS_R, useNA = "always")
##
## 1 2 3 4 5 <NA>
## 10337 288 171 138 226 971
table(qol$EXP_WANT_R, useNA = "always")
##
## 1 2 3 4 5 <NA>
## 7220 860 1026 683 1559 783
table(qol$EXP_NEED_R, useNA = "always")
##
## 1 2 3 4 5 <NA>
## 9135 661 490 440 693 712
table(qol$TIMEREST_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 717 268 395 503 702 600 872 932 886 5941 315
table(qol$TIMESELF_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 434 215 316 406 776 703 978 1017 1068 5827 391
table(qol$TIMESOC_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 445 291 434 579 896 940 1075 1016 962 5025 468
table(qol$TIMEPHYS_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 463 316 393 561 915 873 1013 926 985 4915 771
table(qol$TIMEMEAL_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 295 185 329 483 747 905 1103 1109 1161 5401 413
table(qol$TIMECOMM_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 597 369 524 652 974 980 945 883 881 3910 1416
table(qol$TIMENURT_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 523 320 361 453 705 684 684 711 838 4100 2752
table(qol$TIMECHOR_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 361 240 396 611 810 957 1211 1125 1151 4845 424
table(qol$TIMEKIDS_R, useNA = "always") #excess missing values, perhaps contingent on answering you have kids?
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 282 113 147 205 356 400 472 427 419 1392 7918
table(qol$TIMESPOU_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 367 196 246 406 537 576 763 818 903 4713 2606
table(qol$TIMEFAML_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 568 284 384 572 806 911 1162 1061 1095 4127 1161
table(qol$TIMERELA_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 420 223 329 403 680 778 871 862 957 3872 2736
table(qol$TIMECREA_R, useNA = "always")
##
## 1 2 3 4 5 6 7 8 9 10 <NA>
## 673 393 486 604 836 936 932 872 905 3883 1611
# screening predictors by running basic frequencies
table(qol$REGION.f, useNA="always")
##
## <NA>
## 0
table(qol$PARRELIG.f, useNA="always")
##
## <NA>
## 0
table(qol$WORKPAY.f, useNA="always")
##
## <NA>
## 0
table(qol$GENDER.f, useNA="always")
##
## <NA>
## 0
table(qol$BORN_CAN.f, useNA="always")
##
## <NA>
## 0
table(qol$DISABILITY.f, useNA="always")
##
## <NA>
## 0
table(qol$PARTHAVE.f, useNA="always")
##
## <NA>
## 0
table(qol$VOLUNTEER.f, useNA="always")
##
## <NA>
## 0
#screening numerical data using histograms
#social support
hist(qol$RELATVS)
hist(qol$FRIENDS)
hist(qol$NEIGHBRS)
#sense of community scale items
hist(qol$LVG_H1)
hist(qol$LVG_S1)
hist(qol$LVG_N1)
hist(qol$LVG_H2)
hist(qol$LVG_SI1)
hist(qol$LVG_S2)
hist(qol$LVG_N2)
hist(qol$LVG_H3)
hist(qol$LVG_SI2)
hist(qol$LVG_S3)
hist(qol$LVG_SI3)
hist(qol$LVG_H4)
hist(qol$LVG_S4)
hist(qol$LVG_N4)
hist(qol$LVG_V1)
#sense of community subscale totals
hist(qol$SOCIAL_CLIMATE)
hist(qol$SOC_HELP)
hist(qol$SOC_NEEDS)
hist(qol$OVERALL_SOC)
hist(qol$SOCIAL_ISO)
#perceptions of safety/trust
hist(qol$SAFE_NBR)
hist(qol$TRUST1)
hist(qol$TRUST2)
hist(qol$TRUST4)
hist(qol$TRUST_I1)
hist(qol$TRUST_I2)
hist(qol$TRUST_I3)
hist(qol$TRUST_I4)
hist(qol$TRUST_I5)
hist(qol$TRUST_I6)
#confidence in institutions
hist(qol$CONFID_1)
hist(qol$CONFID_2)
hist(qol$CONFID_3)
hist(qol$CONFID_4)
#health
hist(qol$PHYSHLTH)
hist(qol$MNTLHLTH)
hist(qol$HB_EXERCISE)
table(qol$POLICY, useNA="always")
##
## 1 2 3 4 5 6 7 8 9 <NA>
## 339 283 548 5287 2140 1616 561 1055 203 99
#experiences of financial security
table(qol$EXP_BILL, useNA="always")
##
## 1 2 3 4 5 6 <NA>
## 9221 833 551 430 393 584 119
hist(qol$EXP_BILL)
hist(qol$EXP_HOME)
hist(qol$EXP_FOOD)
hist(qol$EXP_NFOOD)
hist(qol$EXP_FOODBK)
hist(qol$EXP_TRANS)
hist(qol$EXP_WANT)
hist(qol$EXP_NEED)
#time adequacy scale items
hist(qol$TIMEREST)
hist(qol$TIMESELF)
hist(qol$TIMESOC)
hist(qol$TIMEPHYS)
hist(qol$TIMEMEAL)
hist(qol$TIMECOMM)
hist(qol$TIMENURT)
hist(qol$TIMECHOR)
hist(qol$TIMEKIDS)
hist(qol$TIMESPOU)
hist(qol$TIMEFAML)
hist(qol$TIMERELA)
hist(qol$TIMECREA)
#demographics
hist(qol$AGE)
hist(qol$KIDS_U5)
hist(qol$KIDS_5TO12)
hist(qol$KIDS_13TO18)
hist(qol$KIDS_OVER18)
#re-calculate time adequacy
qol$TIME_ADEQ_R <- rowMeans(subset(qol,select = c(TIMEREST_R:TIMECREA_R)), na.rm=TRUE)
# checking
descriptives(qol, TIME_ADEQ_R)
##
## DESCRIPTIVES
##
## Descriptives
## ──────────────────────────
## TIME_ADEQ_R
## ──────────────────────────
## N 11949
## Missing 182
## Mean 7.709867
## Median 8.375000
## Minimum 1.000000
## Maximum 10.00000
## ──────────────────────────
descriptives(qol, vars = vars("RELATVS", "FRIENDS", "NEIGHBRS", "PHYSHLTH", "MNTLHLTH"), missing=TRUE)
##
## DESCRIPTIVES
##
## Descriptives
## ───────────────────────────────────────────────────────────────────────
## RELATVS FRIENDS NEIGHBRS PHYSHLTH MNTLHLTH
## ───────────────────────────────────────────────────────────────────────
## N 12005 12015 12001 12098 12092
## Missing 126 116 130 33 39
## Mean 8.872928 5.799376 4.804641 3.286494 3.544244
## Median 4.000000 4.000000 3.000000 3.000000 4.000000
## Minimum 0.000000 0.000000 0.000000 1.000000 1.000000
## Maximum 13187.00 699.0000 300.0000 5.000000 5.000000
## ───────────────────────────────────────────────────────────────────────
descriptives(qol, vars = vars("HB_EXERCISE", "POLICY_R", "SLEEP", "VACADAYS", "AGE"), missing=TRUE, box=TRUE)
##
## DESCRIPTIVES
##
## Descriptives
## ──────────────────────────────────────────────────────────────────────────
## HB_EXERCISE POLICY_R SLEEP VACADAYS AGE
## ──────────────────────────────────────────────────────────────────────────
## N 12062 10774 12007 11853 12126
## Missing 69 1357 124 278 5
## Mean 4.654618 4.457026 687.7746 19.58006 59.91062
## Median 5.000000 4.000000 7.000000 10.00000 62.00000
## Minimum 1.000000 1.000000 0.000000 0.000000 14.00000
## Maximum 7.000000 7.000000 8000000 365.0000 101.0000
## ──────────────────────────────────────────────────────────────────────────
descriptives(qol, vars = vars("SOCIAL_CLIMATE", "SOC_HELP", "SOC_NEEDS", "OVERALL_SOC", "SOCIAL_ISO", "TIME_ADEQ_R"), missing=TRUE, box=TRUE)
##
## DESCRIPTIVES
##
## Descriptives
## ──────────────────────────────────────────────────────────────────────────────────────────────────
## SOCIAL_CLIMATE SOC_HELP SOC_NEEDS OVERALL_SOC SOCIAL_ISO TIME_ADEQ_R
## ──────────────────────────────────────────────────────────────────────────────────────────────────
## N 11946 11965 11953 11978 11968 11949
## Missing 185 166 178 153 163 182
## Mean 4.978926 4.915093 4.535960 4.809479 3.123886 7.709867
## Median 5.000000 5.000000 4.500000 4.833333 3.000000 8.375000
## Minimum 1.000000 1.000000 1.000000 1.000000 1.000000 1.000000
## Maximum 7.000000 7.000000 7.000000 7.000000 7.000000 10.00000
## ──────────────────────────────────────────────────────────────────────────────────────────────────
#looking at correlations of numeric variables identified as relevant to our first pass
qol.plot<- qol[,c("LIFESAT", "RELATVS", "FRIENDS", "NEIGHBRS", "PHYSHLTH", "MNTLHLTH", "HB_EXERCISE", "POLICY_R", "SLEEP",
"VACADAYS", "AGE", "SOCIAL_CLIMATE", "SOC_HELP", "SOC_NEEDS", "OVERALL_SOC", "SOCIAL_ISO", "TIME_ADEQ_R")]
#Calculating correlations and CIs
cor1 <- cor.mtest(qol.plot, use="pairwise.complete.obs", conf.level = 0.95)
cor1
## $p
## [,1] [,2] [,3] [,4] [,5]
## [1,] 0.000000e+00 9.248621e-03 9.220037e-21 1.147659e-50 0.000000e+00
## [2,] 9.248621e-03 0.000000e+00 3.215465e-02 5.999927e-02 1.934269e-01
## [3,] 9.220037e-21 3.215465e-02 0.000000e+00 3.911301e-62 5.313607e-08
## [4,] 1.147659e-50 5.999927e-02 3.911301e-62 0.000000e+00 1.423136e-29
## [5,] 0.000000e+00 1.934269e-01 5.313607e-08 1.423136e-29 0.000000e+00
## [6,] 0.000000e+00 5.952267e-02 1.252809e-11 4.086942e-44 0.000000e+00
## [7,] 7.426011e-189 5.826287e-02 5.172306e-07 1.275818e-17 0.000000e+00
## [8,] 2.133679e-133 2.427928e-01 2.393966e-03 1.728622e-18 2.264749e-80
## [9,] 3.411500e-01 9.754642e-01 7.601689e-01 8.741335e-01 1.759412e-01
## [10,] 1.228698e-58 9.874884e-01 1.238577e-01 8.907930e-04 3.705966e-21
## [11,] 8.440182e-131 6.347267e-01 5.388044e-06 6.950880e-06 6.526822e-16
## [12,] 0.000000e+00 4.286784e-11 1.429212e-40 1.255829e-232 2.566323e-154
## [13,] 8.154689e-302 1.720690e-07 3.440084e-25 9.123312e-176 2.377279e-124
## [14,] 0.000000e+00 5.654574e-05 1.121040e-20 5.579414e-72 7.420066e-151
## [15,] 0.000000e+00 1.394672e-09 3.459186e-37 3.094297e-199 4.315428e-195
## [16,] 0.000000e+00 2.836705e-10 6.641116e-26 1.305859e-105 1.056862e-150
## [17,] 0.000000e+00 9.208575e-02 4.469453e-08 7.887850e-16 5.288654e-59
## [,6] [,7] [,8] [,9] [,10]
## [1,] 0.000000e+00 7.426011e-189 2.133679e-133 0.3411500 1.228698e-58
## [2,] 5.952267e-02 5.826287e-02 2.427928e-01 0.9754642 9.874884e-01
## [3,] 1.252809e-11 5.172306e-07 2.393966e-03 0.7601689 1.238577e-01
## [4,] 4.086942e-44 1.275818e-17 1.728622e-18 0.8741335 8.907930e-04
## [5,] 0.000000e+00 0.000000e+00 2.264749e-80 0.1759412 3.705966e-21
## [6,] 0.000000e+00 8.936008e-184 1.253983e-66 0.6190283 1.329868e-32
## [7,] 8.936008e-184 0.000000e+00 1.032315e-58 0.2931558 2.663379e-18
## [8,] 1.253983e-66 1.032315e-58 0.000000e+00 0.7219744 4.271314e-09
## [9,] 6.190283e-01 2.931558e-01 7.219744e-01 0.0000000 6.502847e-01
## [10,] 1.329868e-32 2.663379e-18 4.271314e-09 0.6502847 0.000000e+00
## [11,] 9.135334e-119 5.392800e-01 4.340586e-21 0.7614760 2.182615e-40
## [12,] 0.000000e+00 2.059844e-114 3.009174e-160 0.2277202 3.035586e-18
## [13,] 3.141046e-191 2.254998e-64 1.097246e-167 0.2067218 1.645054e-09
## [14,] 3.698525e-229 4.780568e-116 0.000000e+00 0.3608242 1.049395e-20
## [15,] 0.000000e+00 1.404918e-132 1.499834e-315 0.1962249 3.658058e-21
## [16,] 0.000000e+00 5.517294e-92 2.537035e-101 0.4857339 1.059702e-22
## [17,] 4.731567e-299 2.293487e-74 1.157822e-91 0.4784504 1.224959e-74
## [,11] [,12] [,13] [,14] [,15]
## [1,] 8.440182e-131 0.000000e+00 8.154689e-302 0.000000e+00 0.000000e+00
## [2,] 6.347267e-01 4.286784e-11 1.720690e-07 5.654574e-05 1.394672e-09
## [3,] 5.388044e-06 1.429212e-40 3.440084e-25 1.121040e-20 3.459186e-37
## [4,] 6.950880e-06 1.255829e-232 9.123312e-176 5.579414e-72 3.094297e-199
## [5,] 6.526822e-16 2.566323e-154 2.377279e-124 7.420066e-151 4.315428e-195
## [6,] 9.135334e-119 0.000000e+00 3.141046e-191 3.698525e-229 0.000000e+00
## [7,] 5.392800e-01 2.059844e-114 2.254998e-64 4.780568e-116 1.404918e-132
## [8,] 4.340586e-21 3.009174e-160 1.097246e-167 0.000000e+00 1.499834e-315
## [9,] 7.614760e-01 2.277202e-01 2.067218e-01 3.608242e-01 1.962249e-01
## [10,] 2.182615e-40 3.035586e-18 1.645054e-09 1.049395e-20 3.658058e-21
## [11,] 0.000000e+00 2.733732e-51 1.312649e-24 6.485392e-86 2.996878e-70
## [12,] 2.733732e-51 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [13,] 1.312649e-24 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [14,] 6.485392e-86 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [15,] 2.996878e-70 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [16,] 3.878532e-22 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [17,] 0.000000e+00 9.502690e-197 1.731124e-126 3.661824e-213 3.701737e-244
## [,16] [,17]
## [1,] 0.000000e+00 0.000000e+00
## [2,] 2.836705e-10 9.208575e-02
## [3,] 6.641116e-26 4.469453e-08
## [4,] 1.305859e-105 7.887850e-16
## [5,] 1.056862e-150 5.288654e-59
## [6,] 0.000000e+00 4.731567e-299
## [7,] 5.517294e-92 2.293487e-74
## [8,] 2.537035e-101 1.157822e-91
## [9,] 4.857339e-01 4.784504e-01
## [10,] 1.059702e-22 1.224959e-74
## [11,] 3.878532e-22 0.000000e+00
## [12,] 0.000000e+00 9.502690e-197
## [13,] 0.000000e+00 1.731124e-126
## [14,] 0.000000e+00 3.661824e-213
## [15,] 0.000000e+00 3.701737e-244
## [16,] 0.000000e+00 1.230273e-181
## [17,] 1.230273e-181 0.000000e+00
##
## $lowCI
## [,1] [,2] [,3] [,4] [,5]
## [1,] 1.000000000 0.0058799041 0.067472756 0.1186753392 0.351039210
## [2,] 0.005879904 1.0000000000 0.001669231 -0.0007246962 -0.006027305
## [3,] 0.067472756 0.0016692306 1.000000000 0.1337533526 0.031796310
## [4,] 0.118675339 -0.0007246962 0.133753353 1.0000000000 0.085200815
## [5,] 0.351039210 -0.0060273052 0.031796310 0.0852008148 1.000000000
## [6,] 0.531293126 -0.0006915401 0.043981748 0.1091981739 0.477358666
## [7,] 0.246058701 -0.0352587509 0.027995285 0.0602595073 0.434394502
## [8,] 0.216010006 -0.0076666192 0.010417392 0.0659200248 0.163254225
## [9,] -0.026612844 -0.0182560724 -0.020763968 -0.0165258457 -0.030271088
## [10,] 0.130037340 -0.0179407990 -0.003885254 0.0125839214 0.068747891
## [11,] 0.201778689 -0.0135559802 0.023629114 0.0231508380 -0.091080010
## [12,] 0.407026642 0.0425684220 0.104260878 0.2761679654 0.221946348
## [13,] 0.314533540 0.0299981060 0.077090586 0.2383610905 0.197423402
## [14,] 0.355694704 0.0189883632 0.067569392 0.1461652989 0.219208671
## [15,] 0.421075119 0.0375856639 0.098712387 0.2544732125 0.250930086
## [16,] -0.469885697 -0.0757716051 -0.114146163 -0.2156526628 -0.252837669
## [17,] 0.457160391 -0.0025327853 0.032270146 0.0560368401 0.129959296
## [,6] [,7] [,8] [,9] [,10]
## [1,] 0.5312931264 0.24605870 0.216010006 -0.02661284 0.130037340
## [2,] -0.0006915401 -0.03525875 -0.007666619 -0.01825607 -0.017940799
## [3,] 0.0439817480 0.02799529 0.010417392 -0.02076397 -0.003885254
## [4,] 0.1091981739 0.06025951 0.065920025 -0.01652585 0.012583921
## [5,] 0.4773586663 0.43439450 0.163254225 -0.03027109 0.068747891
## [6,] 1.0000000000 0.24228864 0.146780687 -0.01337002 0.091214196
## [7,] 0.2422886362 1.00000000 0.136595192 -0.02754207 0.062248062
## [8,] 0.1467806874 0.13659519 1.000000000 -0.02241201 0.038097505
## [9,] -0.0133700213 -0.02754207 -0.022412011 1.00000000 -0.022229729
## [10,] 0.0912141959 0.06224806 0.038097505 -0.02222973 1.000000000
## [11,] 0.1913355413 -0.01225974 0.071869288 -0.01511989 0.104007564
## [12,] 0.3273151185 0.18888348 0.239518299 -0.02910329 0.062421918
## [13,] 0.2485038914 0.13667192 0.245165436 -0.02959747 0.037619621
## [14,] 0.2731987412 0.19031482 0.371700205 -0.02640969 0.068128598
## [15,] 0.3321144178 0.20439151 0.339249719 -0.02985545 0.069084984
## [16,] -0.3878170198 -0.20196873 -0.223167431 -0.01160055 -0.108405275
## [17,] 0.3130872331 0.14861360 0.176617409 -0.01148691 0.150007321
## [,11] [,12] [,13] [,14] [,15] [,16]
## [1,] 0.20177869 0.40702664 0.31453354 0.35569470 0.42107512 -0.46988570
## [2,] -0.01355598 0.04256842 0.02999811 0.01898836 0.03758566 -0.07577161
## [3,] 0.02362911 0.10426088 0.07709059 0.06756939 0.09871239 -0.11414616
## [4,] 0.02315084 0.27616797 0.23836109 0.14616530 0.25447321 -0.21565266
## [5,] -0.09108001 0.22194635 0.19742340 0.21920867 0.25093009 -0.25283767
## [6,] 0.19133554 0.32731512 0.24850389 0.27319874 0.33211442 -0.38781702
## [7,] -0.01225974 0.18888348 0.13667192 0.19031482 0.20439151 -0.20196873
## [8,] 0.07186929 0.23951830 0.24516544 0.37170020 0.33924972 -0.22316743
## [9,] -0.01511989 -0.02910329 -0.02959747 -0.02640969 -0.02985545 -0.01160055
## [10,] 0.10400756 0.06242192 0.03761962 0.06812860 0.06908498 -0.10840527
## [11,] 1.00000000 0.11958691 0.07564335 0.16087580 0.14339463 -0.10603869
## [12,] 0.11958691 1.00000000 0.68058153 0.60702780 0.88504036 -0.63356454
## [13,] 0.07564335 0.68058153 1.00000000 0.52706492 0.83942621 -0.52992973
## [14,] 0.16087580 0.60702780 0.52706492 1.00000000 0.84784458 -0.53461617
## [15,] 0.14339463 0.88504036 0.83942621 0.84784458 1.00000000 -0.65224897
## [16,] -0.10603869 -0.63356454 -0.52992973 -0.53461617 -0.65224897 1.00000000
## [17,] 0.44544610 0.25379213 0.20039206 0.26453192 0.28351003 -0.27678690
## [,17]
## [1,] 0.457160391
## [2,] -0.002532785
## [3,] 0.032270146
## [4,] 0.056036840
## [5,] 0.129959296
## [6,] 0.313087233
## [7,] 0.148613603
## [8,] 0.176617409
## [9,] -0.011486909
## [10,] 0.150007321
## [11,] 0.445446098
## [12,] 0.253792127
## [13,] 0.200392063
## [14,] 0.264531917
## [15,] 0.283510030
## [16,] -0.276786903
## [17,] 1.000000000
##
## $uppCI
## [,1] [,2] [,3] [,4] [,5]
## [1,] 1.000000000 0.041711422 0.10305196 0.15386708 0.381959145
## [2,] 0.041711422 1.000000000 0.03749681 0.03514803 0.029791004
## [3,] 0.103051964 0.037496814 1.00000000 0.16879475 0.067516406
## [4,] 0.153867080 0.035148026 0.16879475 1.00000000 0.120651958
## [5,] 0.381959145 0.029791004 0.06751641 0.12065196 1.000000000
## [6,] 0.556450539 0.035130180 0.07966220 0.14446131 0.504432222
## [7,] 0.279360301 0.000606317 0.06378057 0.09592397 0.462924065
## [8,] 0.251777186 0.030272588 0.04831097 0.10359317 0.199814062
## [9,] 0.009215294 0.017692105 0.01516882 0.01943133 0.005543812
## [10,] 0.165311257 0.018230132 0.03226301 0.04873470 0.104527100
## [11,] 0.235751181 0.022227884 0.05933718 0.05888111 -0.055625203
## [12,] 0.436572440 0.078449879 0.13972613 0.30910608 0.255809867
## [13,] 0.346522376 0.065902882 0.11273880 0.27201151 0.231656071
## [14,] 0.386673029 0.054946419 0.10329870 0.18121487 0.253108640
## [15,] 0.450157171 0.073444136 0.13417894 0.28780447 0.284226754
## [16,] -0.441434290 -0.039907513 -0.07851067 -0.18107725 -0.218954560
## [17,] 0.485098059 0.033496274 0.06820320 0.09188643 0.165085039
## [,6] [,7] [,8] [,9] [,10] [,11]
## [1,] 0.55645054 0.279360301 0.25177719 0.009215294 0.16531126 0.23575118
## [2,] 0.03513018 0.000606317 0.03027259 0.017692105 0.01823013 0.02222788
## [3,] 0.07966220 0.063780574 0.04831097 0.015168824 0.03226301 0.05933718
## [4,] 0.14446131 0.095923965 0.10359317 0.019431332 0.04873470 0.05888111
## [5,] 0.50443222 0.462924065 0.19981406 0.005543812 0.10452710 -0.05562520
## [6,] 1.00000000 0.275622851 0.18356702 0.022457096 0.12684595 0.22544221
## [7,] 0.27562285 1.000000000 0.17354865 0.008313940 0.09810407 0.02343899
## [8,] 0.18356702 0.173548654 1.00000000 0.015526265 0.07613397 0.10933191
## [9,] 0.02245710 0.008313940 0.01552626 1.000000000 0.01387913 0.02065990
## [10,] 0.12684595 0.098104068 0.07613397 0.013879134 1.00000000 0.13948695
## [11,] 0.22544221 0.023438993 0.10933191 0.020659902 0.13948695 1.00000000
## [12,] 0.35900359 0.223285637 0.27503987 0.006929977 0.09845551 0.15478441
## [13,] 0.28187279 0.171720919 0.28054995 0.006406480 0.07374456 0.11117483
## [14,] 0.30609558 0.224688699 0.40400430 0.009616339 0.10411552 0.19559848
## [15,] 0.36364599 0.238514560 0.37242817 0.006130060 0.10503069 0.17829239
## [16,] -0.35690519 -0.167295904 -0.18675475 0.024403732 -0.07246749 -0.07047812
## [17,] 0.34511127 0.183565407 0.21317282 0.024497598 0.18519784 0.47373625
## [,12] [,13] [,14] [,15] [,16] [,17]
## [1,] 0.436572440 0.34652238 0.386673029 0.45015717 -0.44143429 0.48509806
## [2,] 0.078449879 0.06590288 0.054946419 0.07344414 -0.03990751 0.03349627
## [3,] 0.139726127 0.11273880 0.103298700 0.13417894 -0.07851067 0.06820320
## [4,] 0.309106084 0.27201151 0.181214873 0.28780447 -0.18107725 0.09188643
## [5,] 0.255809867 0.23165607 0.253108640 0.28422675 -0.21895456 0.16508504
## [6,] 0.359003588 0.28187279 0.306095576 0.36364599 -0.35690519 0.34511127
## [7,] 0.223285637 0.17172092 0.224688699 0.23851456 -0.16729590 0.18356541
## [8,] 0.275039872 0.28054995 0.404004300 0.37242817 -0.18675475 0.21317282
## [9,] 0.006929977 0.00640648 0.009616339 0.00613006 0.02440373 0.02449760
## [10,] 0.098455509 0.07374456 0.104115524 0.10503069 -0.07246749 0.18519784
## [11,] 0.154784410 0.11117483 0.195598478 0.17829239 -0.07047812 0.47373625
## [12,] 1.000000000 0.69937585 0.629205052 0.89257105 -0.61158963 0.28726944
## [13,] 0.699375850 1.00000000 0.552483596 0.84969879 -0.50364855 0.23477546
## [14,] 0.629205052 0.55248360 1.000000000 0.85762504 -0.50850281 0.29778469
## [15,] 0.892571045 0.84969879 0.857625041 1.00000000 -0.63116685 0.31633695
## [16,] -0.611589632 -0.50364855 -0.508502808 -0.63116685 1.00000000 -0.24313843
## [17,] 0.287269443 0.23477546 0.297784687 0.31633695 -0.24313843 1.00000000
#Correlation Matrix
corrplot(cor(qol.plot, use="pairwise.complete.obs"), method="number", type="upper",
addCoef.col = "black", tl.col="black", tl.srt=40, p.mat = cor1$p, tl.cex = .5,
sig.level = 0.05, insig = "blank", diag=FALSE, number.cex= 10/ncol(qol.plot))
qol.corr = rcorr(as.matrix(qol.plot,use="pairwise.complete.obs"), type = c("pearson"))
qol.corr
## LIFESAT RELATVS FRIENDS NEIGHBRS PHYSHLTH MNTLHLTH HB_EXERCISE
## LIFESAT 1.00 0.02 0.09 0.14 0.37 0.54 0.26
## RELATVS 0.02 1.00 0.02 0.02 0.01 0.02 -0.02
## FRIENDS 0.09 0.02 1.00 0.15 0.05 0.06 0.05
## NEIGHBRS 0.14 0.02 0.15 1.00 0.10 0.13 0.08
## PHYSHLTH 0.37 0.01 0.05 0.10 1.00 0.49 0.45
## MNTLHLTH 0.54 0.02 0.06 0.13 0.49 1.00 0.26
## HB_EXERCISE 0.26 -0.02 0.05 0.08 0.45 0.26 1.00
## POLICY_R 0.23 0.01 0.03 0.08 0.18 0.17 0.16
## SLEEP -0.01 0.00 0.00 0.00 -0.01 0.00 -0.01
## VACADAYS 0.15 0.00 0.01 0.03 0.09 0.11 0.08
## AGE 0.22 0.00 0.04 0.04 -0.07 0.21 0.01
## SOCIAL_CLIMATE 0.42 0.06 0.12 0.29 0.24 0.34 0.21
## SOC_HELP 0.33 0.05 0.09 0.26 0.21 0.27 0.15
## SOC_NEEDS 0.37 0.04 0.09 0.16 0.24 0.29 0.21
## OVERALL_SOC 0.44 0.06 0.12 0.27 0.27 0.35 0.22
## SOCIAL_ISO -0.46 -0.06 -0.10 -0.20 -0.24 -0.37 -0.18
## TIME_ADEQ_R 0.47 0.02 0.05 0.07 0.15 0.33 0.17
## POLICY_R SLEEP VACADAYS AGE SOCIAL_CLIMATE SOC_HELP SOC_NEEDS
## LIFESAT 0.23 -0.01 0.15 0.22 0.42 0.33 0.37
## RELATVS 0.01 0.00 0.00 0.00 0.06 0.05 0.04
## FRIENDS 0.03 0.00 0.01 0.04 0.12 0.09 0.09
## NEIGHBRS 0.08 0.00 0.03 0.04 0.29 0.26 0.16
## PHYSHLTH 0.18 -0.01 0.09 -0.07 0.24 0.21 0.24
## MNTLHLTH 0.17 0.00 0.11 0.21 0.34 0.27 0.29
## HB_EXERCISE 0.16 -0.01 0.08 0.01 0.21 0.15 0.21
## POLICY_R 1.00 0.00 0.06 0.09 0.26 0.26 0.39
## SLEEP 0.00 1.00 0.00 0.00 -0.01 -0.01 -0.01
## VACADAYS 0.06 0.00 1.00 0.12 0.08 0.06 0.09
## AGE 0.09 0.00 0.12 1.00 0.14 0.09 0.18
## SOCIAL_CLIMATE 0.26 -0.01 0.08 0.14 1.00 0.69 0.62
## SOC_HELP 0.26 -0.01 0.06 0.09 0.69 1.00 0.54
## SOC_NEEDS 0.39 -0.01 0.09 0.18 0.62 0.54 1.00
## OVERALL_SOC 0.36 -0.01 0.09 0.16 0.89 0.84 0.85
## SOCIAL_ISO -0.21 0.01 -0.09 -0.09 -0.62 -0.52 -0.52
## TIME_ADEQ_R 0.19 0.01 0.17 0.46 0.27 0.22 0.28
## OVERALL_SOC SOCIAL_ISO TIME_ADEQ_R
## LIFESAT 0.44 -0.46 0.47
## RELATVS 0.06 -0.06 0.02
## FRIENDS 0.12 -0.10 0.05
## NEIGHBRS 0.27 -0.20 0.07
## PHYSHLTH 0.27 -0.24 0.15
## MNTLHLTH 0.35 -0.37 0.33
## HB_EXERCISE 0.22 -0.18 0.17
## POLICY_R 0.36 -0.21 0.19
## SLEEP -0.01 0.01 0.01
## VACADAYS 0.09 -0.09 0.17
## AGE 0.16 -0.09 0.46
## SOCIAL_CLIMATE 0.89 -0.62 0.27
## SOC_HELP 0.84 -0.52 0.22
## SOC_NEEDS 0.85 -0.52 0.28
## OVERALL_SOC 1.00 -0.64 0.30
## SOCIAL_ISO -0.64 1.00 -0.26
## TIME_ADEQ_R 0.30 -0.26 1.00
##
## n
## LIFESAT RELATVS FRIENDS NEIGHBRS PHYSHLTH MNTLHLTH HB_EXERCISE
## LIFESAT 12075 11955 11963 11951 12044 12038 12009
## RELATVS 11955 12005 11962 11934 11974 11968 11939
## FRIENDS 11963 11962 12015 11948 11984 11978 11949
## NEIGHBRS 11951 11934 11948 12001 11969 11963 11934
## PHYSHLTH 12044 11974 11984 11969 12098 12076 12042
## MNTLHLTH 12038 11968 11978 11963 12076 12092 12036
## HB_EXERCISE 12009 11939 11949 11934 12042 12036 12062
## POLICY_R 10733 10673 10683 10672 10751 10744 10718
## SLEEP 11969 11891 11901 11885 11976 11971 11950
## VACADAYS 11817 11745 11755 11736 11824 11817 11799
## AGE 12070 12000 12010 11996 12093 12087 12057
## SOCIAL_CLIMATE 11895 11848 11856 11841 11914 11910 11904
## SOC_HELP 11914 11865 11875 11860 11933 11927 11921
## SOC_NEEDS 11903 11852 11862 11847 11921 11916 11909
## OVERALL_SOC 11926 11877 11887 11872 11946 11940 11934
## SOCIAL_ISO 11917 11867 11877 11862 11936 11930 11925
## TIME_ADEQ_R 11916 11832 11841 11826 11918 11913 11894
## POLICY_R SLEEP VACADAYS AGE SOCIAL_CLIMATE SOC_HELP SOC_NEEDS
## LIFESAT 10733 11969 11817 12070 11895 11914 11903
## RELATVS 10673 11891 11745 12000 11848 11865 11852
## FRIENDS 10683 11901 11755 12010 11856 11875 11862
## NEIGHBRS 10672 11885 11736 11996 11841 11860 11847
## PHYSHLTH 10751 11976 11824 12093 11914 11933 11921
## MNTLHLTH 10744 11971 11817 12087 11910 11927 11916
## HB_EXERCISE 10718 11950 11799 12057 11904 11921 11909
## POLICY_R 10774 10676 10552 10770 10619 10635 10627
## SLEEP 10676 12007 11785 12003 11832 11851 11838
## VACADAYS 10552 11785 11853 11848 11682 11702 11690
## AGE 10770 12003 11848 12126 11941 11960 11948
## SOCIAL_CLIMATE 10619 11832 11682 11941 11946 11938 11927
## SOC_HELP 10635 11851 11702 11960 11938 11965 11941
## SOC_NEEDS 10627 11838 11690 11948 11927 11941 11953
## OVERALL_SOC 10647 11863 11713 11973 11946 11965 11953
## SOCIAL_ISO 10636 11853 11704 11963 11931 11949 11940
## TIME_ADEQ_R 10642 11866 11721 11944 11777 11796 11786
## OVERALL_SOC SOCIAL_ISO TIME_ADEQ_R
## LIFESAT 11926 11917 11916
## RELATVS 11877 11867 11832
## FRIENDS 11887 11877 11841
## NEIGHBRS 11872 11862 11826
## PHYSHLTH 11946 11936 11918
## MNTLHLTH 11940 11930 11913
## HB_EXERCISE 11934 11925 11894
## POLICY_R 10647 10636 10642
## SLEEP 11863 11853 11866
## VACADAYS 11713 11704 11721
## AGE 11973 11963 11944
## SOCIAL_CLIMATE 11946 11931 11777
## SOC_HELP 11965 11949 11796
## SOC_NEEDS 11953 11940 11786
## OVERALL_SOC 11978 11959 11809
## SOCIAL_ISO 11959 11968 11799
## TIME_ADEQ_R 11809 11799 11949
##
## P
## LIFESAT RELATVS FRIENDS NEIGHBRS PHYSHLTH MNTLHLTH HB_EXERCISE
## LIFESAT 0.0092 0.0000 0.0000 0.0000 0.0000 0.0000
## RELATVS 0.0092 0.0322 0.0600 0.1934 0.0595 0.0583
## FRIENDS 0.0000 0.0322 0.0000 0.0000 0.0000 0.0000
## NEIGHBRS 0.0000 0.0600 0.0000 0.0000 0.0000 0.0000
## PHYSHLTH 0.0000 0.1934 0.0000 0.0000 0.0000 0.0000
## MNTLHLTH 0.0000 0.0595 0.0000 0.0000 0.0000 0.0000
## HB_EXERCISE 0.0000 0.0583 0.0000 0.0000 0.0000 0.0000
## POLICY_R 0.0000 0.2428 0.0024 0.0000 0.0000 0.0000 0.0000
## SLEEP 0.3411 0.9755 0.7602 0.8741 0.1759 0.6190 0.2932
## VACADAYS 0.0000 0.9875 0.1239 0.0009 0.0000 0.0000 0.0000
## AGE 0.0000 0.6347 0.0000 0.0000 0.0000 0.0000 0.5393
## SOCIAL_CLIMATE 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## SOC_HELP 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## SOC_NEEDS 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## OVERALL_SOC 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## SOCIAL_ISO 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## TIME_ADEQ_R 0.0000 0.0921 0.0000 0.0000 0.0000 0.0000 0.0000
## POLICY_R SLEEP VACADAYS AGE SOCIAL_CLIMATE SOC_HELP
## LIFESAT 0.0000 0.3411 0.0000 0.0000 0.0000 0.0000
## RELATVS 0.2428 0.9755 0.9875 0.6347 0.0000 0.0000
## FRIENDS 0.0024 0.7602 0.1239 0.0000 0.0000 0.0000
## NEIGHBRS 0.0000 0.8741 0.0009 0.0000 0.0000 0.0000
## PHYSHLTH 0.0000 0.1759 0.0000 0.0000 0.0000 0.0000
## MNTLHLTH 0.0000 0.6190 0.0000 0.0000 0.0000 0.0000
## HB_EXERCISE 0.0000 0.2932 0.0000 0.5393 0.0000 0.0000
## POLICY_R 0.7220 0.0000 0.0000 0.0000 0.0000
## SLEEP 0.7220 0.6503 0.7615 0.2277 0.2067
## VACADAYS 0.0000 0.6503 0.0000 0.0000 0.0000
## AGE 0.0000 0.7615 0.0000 0.0000 0.0000
## SOCIAL_CLIMATE 0.0000 0.2277 0.0000 0.0000 0.0000
## SOC_HELP 0.0000 0.2067 0.0000 0.0000 0.0000
## SOC_NEEDS 0.0000 0.3608 0.0000 0.0000 0.0000 0.0000
## OVERALL_SOC 0.0000 0.1962 0.0000 0.0000 0.0000 0.0000
## SOCIAL_ISO 0.0000 0.4857 0.0000 0.0000 0.0000 0.0000
## TIME_ADEQ_R 0.0000 0.4785 0.0000 0.0000 0.0000 0.0000
## SOC_NEEDS OVERALL_SOC SOCIAL_ISO TIME_ADEQ_R
## LIFESAT 0.0000 0.0000 0.0000 0.0000
## RELATVS 0.0000 0.0000 0.0000 0.0921
## FRIENDS 0.0000 0.0000 0.0000 0.0000
## NEIGHBRS 0.0000 0.0000 0.0000 0.0000
## PHYSHLTH 0.0000 0.0000 0.0000 0.0000
## MNTLHLTH 0.0000 0.0000 0.0000 0.0000
## HB_EXERCISE 0.0000 0.0000 0.0000 0.0000
## POLICY_R 0.0000 0.0000 0.0000 0.0000
## SLEEP 0.3608 0.1962 0.4857 0.4785
## VACADAYS 0.0000 0.0000 0.0000 0.0000
## AGE 0.0000 0.0000 0.0000 0.0000
## SOCIAL_CLIMATE 0.0000 0.0000 0.0000 0.0000
## SOC_HELP 0.0000 0.0000 0.0000 0.0000
## SOC_NEEDS 0.0000 0.0000 0.0000
## OVERALL_SOC 0.0000 0.0000 0.0000
## SOCIAL_ISO 0.0000 0.0000 0.0000
## TIME_ADEQ_R 0.0000 0.0000 0.0000
print(qol.corr$P,3)
## LIFESAT RELATVS FRIENDS NEIGHBRS PHYSHLTH MNTLHLTH HB_EXERCISE
## LIFESAT NA 9.25e-03 0.00e+00 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## RELATVS 0.00925 NA 3.22e-02 6.00e-02 1.93e-01 5.95e-02 5.83e-02
## FRIENDS 0.00000 3.22e-02 NA 0.00e+00 5.31e-08 1.25e-11 5.17e-07
## NEIGHBRS 0.00000 6.00e-02 0.00e+00 NA 0.00e+00 0.00e+00 0.00e+00
## PHYSHLTH 0.00000 1.93e-01 5.31e-08 0.00e+00 NA 0.00e+00 0.00e+00
## MNTLHLTH 0.00000 5.95e-02 1.25e-11 0.00e+00 0.00e+00 NA 0.00e+00
## HB_EXERCISE 0.00000 5.83e-02 5.17e-07 0.00e+00 0.00e+00 0.00e+00 NA
## POLICY_R 0.00000 2.43e-01 2.39e-03 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## SLEEP 0.34115 9.75e-01 7.60e-01 8.74e-01 1.76e-01 6.19e-01 2.93e-01
## VACADAYS 0.00000 9.87e-01 1.24e-01 8.91e-04 0.00e+00 0.00e+00 0.00e+00
## AGE 0.00000 6.35e-01 5.39e-06 6.95e-06 6.66e-16 0.00e+00 5.39e-01
## SOCIAL_CLIMATE 0.00000 4.29e-11 0.00e+00 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## SOC_HELP 0.00000 1.72e-07 0.00e+00 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## SOC_NEEDS 0.00000 5.65e-05 0.00e+00 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## OVERALL_SOC 0.00000 1.39e-09 0.00e+00 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## SOCIAL_ISO 0.00000 2.84e-10 0.00e+00 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## TIME_ADEQ_R 0.00000 9.21e-02 4.47e-08 8.88e-16 0.00e+00 0.00e+00 0.00e+00
## POLICY_R SLEEP VACADAYS AGE SOCIAL_CLIMATE SOC_HELP
## LIFESAT 0.00e+00 0.341 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## RELATVS 2.43e-01 0.975 9.87e-01 6.35e-01 4.29e-11 1.72e-07
## FRIENDS 2.39e-03 0.760 1.24e-01 5.39e-06 0.00e+00 0.00e+00
## NEIGHBRS 0.00e+00 0.874 8.91e-04 6.95e-06 0.00e+00 0.00e+00
## PHYSHLTH 0.00e+00 0.176 0.00e+00 6.66e-16 0.00e+00 0.00e+00
## MNTLHLTH 0.00e+00 0.619 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## HB_EXERCISE 0.00e+00 0.293 0.00e+00 5.39e-01 0.00e+00 0.00e+00
## POLICY_R NA 0.722 4.27e-09 0.00e+00 0.00e+00 0.00e+00
## SLEEP 7.22e-01 NA 6.50e-01 7.61e-01 2.28e-01 2.07e-01
## VACADAYS 4.27e-09 0.650 NA 0.00e+00 0.00e+00 1.65e-09
## AGE 0.00e+00 0.761 0.00e+00 NA 0.00e+00 0.00e+00
## SOCIAL_CLIMATE 0.00e+00 0.228 0.00e+00 0.00e+00 NA 0.00e+00
## SOC_HELP 0.00e+00 0.207 1.65e-09 0.00e+00 0.00e+00 NA
## SOC_NEEDS 0.00e+00 0.361 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## OVERALL_SOC 0.00e+00 0.196 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## SOCIAL_ISO 0.00e+00 0.486 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## TIME_ADEQ_R 0.00e+00 0.478 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## SOC_NEEDS OVERALL_SOC SOCIAL_ISO TIME_ADEQ_R
## LIFESAT 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## RELATVS 5.65e-05 1.39e-09 2.84e-10 9.21e-02
## FRIENDS 0.00e+00 0.00e+00 0.00e+00 4.47e-08
## NEIGHBRS 0.00e+00 0.00e+00 0.00e+00 8.88e-16
## PHYSHLTH 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## MNTLHLTH 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## HB_EXERCISE 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## POLICY_R 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## SLEEP 3.61e-01 1.96e-01 4.86e-01 4.78e-01
## VACADAYS 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## AGE 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## SOCIAL_CLIMATE 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## SOC_HELP 0.00e+00 0.00e+00 0.00e+00 0.00e+00
## SOC_NEEDS NA 0.00e+00 0.00e+00 0.00e+00
## OVERALL_SOC 0.00e+00 NA 0.00e+00 0.00e+00
## SOCIAL_ISO 0.00e+00 0.00e+00 NA 0.00e+00
## TIME_ADEQ_R 0.00e+00 0.00e+00 0.00e+00 NA
#coefficients
qol.plot.coeff = qol.corr$r
#p-values
qol.plot.p = qol.corr$P
#plot
corrplot(qol.plot.coeff, type="upper",p.mat = qol.corr$P, sig.level = 0.05, insig = "blank")
#correlation chart
chart.Correlation(qol.plot, histogram=TRUE)
