Created
July 29, 2018 16:47
-
-
Save mkim0710/135326ba6c3240261b56676101fe31ad to your computer and use it in GitHub Desktop.
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit from .r
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate( | |
| Q3138rowMeansReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38)/8 # remove labels | |
| , Q3138rowSumsReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38) # remove labels | |
| ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138")) | |
| # > ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate( | |
| # + Q3138rowMeansReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38)/8 # remove labels | |
| # + , Q3138rowSumsReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38) # remove labels | |
| # + ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138")) | |
| # # A tibble: 191 x 10 | |
| # Q31 Q32 Q33 Q34 Q35 Q36 Q37 Q38 Q3138rowMeansReverseCoded Q3138rowSumsReverseCoded | |
| # <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl> <dbl> | |
| # 1 NA NA NA NA NA NA NA NA NA NA | |
| # 2 1 2 3 3 4 4 2 3 3.25 26 | |
| # 3 3 3 2 2 3 4 3 3 3.12 25 | |
| # 4 NA NA NA NA NA NA NA NA NA NA | |
| # 5 3 1 4 1 3 5 3 2 4 32 | |
| # 6 3 3 2 2 4 4 2 2 3.5 28 | |
| # 7 1 3 3 2 3 5 2 2 3.38 27 | |
| # 8 NA NA NA NA NA NA NA NA NA NA | |
| # 9 2 2 2 1 2 3 3 2 3.12 25 | |
| # 10 2 4 1 1 1 1 3 1 2.5 20 | |
| # # ... with 181 more rows | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate( | |
| Q3138rowMeansReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38)/8 # remove labels | |
| , Q3138rowSumsReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38) # remove labels | |
| , Q4044rowMeans = as.numeric(Q40 + Q41 + Q42 + Q43 + Q44)/5 # remove labels | |
| , Q4044rowSums = as.numeric(Q40 + Q41 + Q42 + Q43 + Q44) # remove labels | |
| ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138"), Q40, Q41, Q42, Q43, Q44, matches("Q4044")) | |
| # > ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate( | |
| # + Q3138rowMeansReverseCoded = (Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38)/8 | |
| # + , Q3138rowSumsReverseCoded = Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38 | |
| # + , Q4044rowMeans = (Q40 + Q41 + Q42 + Q43 + Q44)/5 | |
| # + , Q4044rowSums = Q40 + Q41 + Q42 + Q43 + Q44 | |
| # + ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138"), Q40, Q41, Q42, Q43, Q44, matches("Q4044")) | |
| # # A tibble: 191 x 17 | |
| # Q31 Q32 Q33 Q34 Q35 Q36 Q37 Q38 Q3138rowMeansReverseCoded Q3138rowSumsReverseCoded Q40 Q41 Q42 Q43 Q44 Q4044rowMeans Q4044rowSums | |
| # <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> | |
| # 1 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA | |
| # 2 1 2 3 3 4 4 2 3 3.25 26 4 4 5 4 3 4 20 | |
| # 3 3 3 2 2 3 4 3 3 3.125 25 2 3 1 3 3 2.4 12 | |
| # 4 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA | |
| # 5 3 1 4 1 3 5 3 2 4 32 4 4 2 4 5 3.8 19 | |
| # 6 3 3 2 2 4 4 2 2 3.5 28 4 4 4 4 5 4.2 21 | |
| # 7 1 3 3 2 3 5 2 2 3.375 27 3 3 4 3 2 3 15 | |
| # 8 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA | |
| # 9 2 2 2 1 2 3 3 2 3.125 25 3 3 3 3 4 3.2 16 | |
| # 10 2 4 1 1 1 1 3 1 2.5 20 5 4 2 4 5 4 20 | |
| # # ... with 181 more rows | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate( | |
| Q3138rowMeansReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38)/8 # remove labels | |
| , Q3138rowSumsReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38) # remove labels | |
| , Q4044rowMeans = as.numeric(Q40 + Q41 + Q42 + Q43 + Q44)/5 # remove labels | |
| , Q4044rowSums = as.numeric(Q40 + Q41 + Q42 + Q43 + Q44) # remove labels | |
| ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138"), Q40, Q41, Q42, Q43, Q44, matches("Q4044")) %>% | |
| summary | |
| # > ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate( | |
| # + Q3138rowMeansReverseCoded = (Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38)/8 | |
| # + , Q3138rowSumsReverseCoded = Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38 | |
| # + , Q4044rowMeans = (Q40 + Q41 + Q42 + Q43 + Q44)/5 | |
| # + , Q4044rowSums = Q40 + Q41 + Q42 + Q43 + Q44 | |
| # + ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138"), Q40, Q41, Q42, Q43, Q44, matches("Q4044")) %>% | |
| # + summary | |
| # Q31 Q32 Q33 Q34 Q35 Q36 Q37 Q38 Q3138rowMeansReverseCoded Q3138rowSumsReverseCoded | |
| # Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.00 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.875 Min. :15.00 | |
| # 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:1.000 1st Qu.:2.00 1st Qu.:3.000 1st Qu.:2.000 1st Qu.:1.000 1st Qu.:3.000 1st Qu.:24.00 | |
| # Median :3.000 Median :3.000 Median :3.000 Median :1.000 Median :3.00 Median :4.000 Median :2.000 Median :2.000 Median :3.375 Median :27.00 | |
| # Mean :2.391 Mean :2.827 Mean :2.731 Mean :1.628 Mean :3.09 Mean :3.346 Mean :2.442 Mean :1.827 Mean :3.354 Mean :26.83 | |
| # 3rd Qu.:3.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:2.000 3rd Qu.:4.00 3rd Qu.:4.000 3rd Qu.:3.000 3rd Qu.:2.000 3rd Qu.:3.875 3rd Qu.:31.00 | |
| # Max. :4.000 Max. :5.000 Max. :5.000 Max. :4.000 Max. :5.00 Max. :5.000 Max. :5.000 Max. :5.000 Max. :4.500 Max. :36.00 | |
| # NA's :35 NA's :35 NA's :35 NA's :35 NA's :35 NA's :35 NA's :35 NA's :35 NA's :35 NA's :35 | |
| # Q40 Q41 Q42 Q43 Q44 Q4044rowMeans Q4044rowSums | |
| # Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. : 5.00 | |
| # 1st Qu.:3.000 1st Qu.:3.000 1st Qu.:2.000 1st Qu.:3.000 1st Qu.:3.000 1st Qu.:2.800 1st Qu.:14.00 | |
| # Median :4.000 Median :4.000 Median :3.000 Median :4.000 Median :4.000 Median :3.600 Median :18.00 | |
| # Mean :3.438 Mean :3.556 Mean :3.026 Mean :3.516 Mean :3.673 Mean :3.442 Mean :17.21 | |
| # 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:20.00 | |
| # Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :25.00 | |
| # NA's :38 NA's :38 NA's :38 NA's :38 NA's :38 NA's :38 NA's :38 | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate( | |
| Q3138rowMeansReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38)/8 # remove labels | |
| , Q3138rowSumsReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38) # remove labels | |
| , Q4044rowMeans = as.numeric(Q40 + Q41 + Q42 + Q43 + Q44)/5 # remove labels | |
| , Q4044rowSums = as.numeric(Q40 + Q41 + Q42 + Q43 + Q44) # remove labels | |
| ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138"), Q40, Q41, Q42, Q43, Q44, matches("Q4044")) %>% | |
| na.omit %>% summary | |
| # > ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate( | |
| # + Q3138rowMeansReverseCoded = (Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38)/8 | |
| # + , Q3138rowSumsReverseCoded = Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38 | |
| # + , Q4044rowMeans = (Q40 + Q41 + Q42 + Q43 + Q44)/5 | |
| # + , Q4044rowSums = Q40 + Q41 + Q42 + Q43 + Q44 | |
| # + ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138"), Q40, Q41, Q42, Q43, Q44, matches("Q4044")) %>% | |
| # + na.omit %>% summary | |
| # Q31 Q32 Q33 Q34 Q35 Q36 Q37 Q38 Q3138rowMeansReverseCoded Q3138rowSumsReverseCoded | |
| # Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.00 Min. :1.875 Min. :15.00 | |
| # 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:1.000 1st Qu.:2.000 1st Qu.:3.000 1st Qu.:2.000 1st Qu.:1.00 1st Qu.:3.000 1st Qu.:24.00 | |
| # Median :3.000 Median :3.000 Median :3.000 Median :1.000 Median :3.000 Median :4.000 Median :2.000 Median :2.00 Median :3.375 Median :27.00 | |
| # Mean :2.392 Mean :2.824 Mean :2.732 Mean :1.627 Mean :3.092 Mean :3.359 Mean :2.438 Mean :1.81 Mean :3.359 Mean :26.88 | |
| # 3rd Qu.:3.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:2.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:3.000 3rd Qu.:2.00 3rd Qu.:3.875 3rd Qu.:31.00 | |
| # Max. :4.000 Max. :5.000 Max. :5.000 Max. :4.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.00 Max. :4.500 Max. :36.00 | |
| # Q40 Q41 Q42 Q43 Q44 Q4044rowMeans Q4044rowSums | |
| # Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. : 5.00 | |
| # 1st Qu.:3.000 1st Qu.:3.000 1st Qu.:2.000 1st Qu.:3.000 1st Qu.:3.000 1st Qu.:2.800 1st Qu.:14.00 | |
| # Median :4.000 Median :4.000 Median :3.000 Median :4.000 Median :4.000 Median :3.600 Median :18.00 | |
| # Mean :3.438 Mean :3.556 Mean :3.026 Mean :3.516 Mean :3.673 Mean :3.442 Mean :17.21 | |
| # 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:20.00 | |
| # Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :25.00 | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate( | |
| Q3138rowMeansReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38)/8 # remove labels | |
| , Q3138rowMeansReverseCoded_gt3 = Q3138rowMeansReverseCoded > 3 | |
| , Q3138rowSumsReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38) # remove labels | |
| , Q3138rowSumsReverseCoded_gt27 = Q3138rowSumsReverseCoded > 27 | |
| , Q4044rowMeans = as.numeric(Q40 + Q41 + Q42 + Q43 + Q44)/5 # remove labels | |
| , Q4044rowMeans_gt3 = Q4044rowMeans > 3 | |
| , Q4044rowSums = as.numeric(Q40 + Q41 + Q42 + Q43 + Q44) # remove labels | |
| , Q4044rowSums_gt18 = Q4044rowSums > 18 | |
| ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138"), Q40, Q41, Q42, Q43, Q44, matches("Q4044")) %>% | |
| na.omit %>% summary | |
| # > ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate( | |
| # + Q3138rowMeansReverseCoded = (Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38)/8 | |
| # + , Q3138rowMeansReverseCoded_gt3 = Q3138rowMeansReverseCoded > 3 | |
| # + , Q3138rowSumsReverseCoded = Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38 | |
| # + , Q3138rowSumsReverseCoded_gt27 = Q3138rowSumsReverseCoded > 27 | |
| # + , Q4044rowMeans = (Q40 + Q41 + Q42 + Q43 + Q44)/5 | |
| # + , Q4044rowMeans_gt3 = Q4044rowMeans > 3 | |
| # + , Q4044rowSums = Q40 + Q41 + Q42 + Q43 + Q44 | |
| # + , Q4044rowSums_gt18 = Q40 + Q41 + Q42 + Q43 + Q44 > 18 | |
| # + ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138"), Q40, Q41, Q42, Q43, Q44, matches("Q4044")) %>% | |
| # + na.omit %>% summary | |
| # Q31 Q32 Q33 Q34 Q35 Q36 Q37 Q38 Q3138rowMeansReverseCoded Q3138rowMeansReverseCoded_gt3 Q3138rowSumsReverseCoded Q3138rowSumsReverseCoded_gt27 | |
| # Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.00 Min. :1.875 Mode :logical Min. :15.00 Mode :logical | |
| # 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:1.000 1st Qu.:2.000 1st Qu.:3.000 1st Qu.:2.000 1st Qu.:1.00 1st Qu.:3.000 FALSE:44 1st Qu.:24.00 FALSE:79 | |
| # Median :3.000 Median :3.000 Median :3.000 Median :1.000 Median :3.000 Median :4.000 Median :2.000 Median :2.00 Median :3.375 TRUE :109 Median :27.00 TRUE :74 | |
| # Mean :2.392 Mean :2.824 Mean :2.732 Mean :1.627 Mean :3.092 Mean :3.359 Mean :2.438 Mean :1.81 Mean :3.359 Mean :26.88 | |
| # 3rd Qu.:3.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:2.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:3.000 3rd Qu.:2.00 3rd Qu.:3.875 3rd Qu.:31.00 | |
| # Max. :4.000 Max. :5.000 Max. :5.000 Max. :4.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.00 Max. :4.500 Max. :36.00 | |
| # Q40 Q41 Q42 Q43 Q44 Q4044rowMeans Q4044rowMeans_gt3 Q4044rowSums Q4044rowSums_gt18 | |
| # Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Mode :logical Min. : 5.00 Mode :logical | |
| # 1st Qu.:3.000 1st Qu.:3.000 1st Qu.:2.000 1st Qu.:3.000 1st Qu.:3.000 1st Qu.:2.800 FALSE:51 1st Qu.:14.00 FALSE:80 | |
| # Median :4.000 Median :4.000 Median :3.000 Median :4.000 Median :4.000 Median :3.600 TRUE :102 Median :18.00 TRUE :73 | |
| # Mean :3.438 Mean :3.556 Mean :3.026 Mean :3.516 Mean :3.673 Mean :3.442 Mean :17.21 | |
| # 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:20.00 | |
| # Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :25.00 | |
| #@ ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit ===== | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit = | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate( | |
| Q3138rowMeansReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38)/8 # remove labels | |
| , Q3138rowMeansReverseCoded_gt3 = Q3138rowMeansReverseCoded > 3 | |
| , Q3138rowSumsReverseCoded = as.numeric(Q31 + 6 - Q32 + Q33 + 6 - Q34 + Q35 + Q36 + 6 - Q37 + 6 - Q38) # remove labels | |
| , Q3138rowSumsReverseCoded_gt27 = Q3138rowSumsReverseCoded > 27 | |
| , Q4044rowMeans = as.numeric(Q40 + Q41 + Q42 + Q43 + Q44)/5 # remove labels | |
| , Q4044rowMeans_gt3 = Q4044rowMeans > 3 | |
| , Q4044rowSums = as.numeric(Q40 + Q41 + Q42 + Q43 + Q44) # remove labels | |
| , Q4044rowSums_gt18 = Q4044rowSums > 18 | |
| ) %>% na.omit | |
| #@ polynomial terms and dichotomization of age variable ----- | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit = | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit %>% mutate( | |
| Q1_squared = Q1 ^ 2 | |
| , Q1_cubic = Q1 ^ 3 | |
| , Q1_gt32 = Q1 > 32 | |
| , Q1_gt30 = Q1 > 30 | |
| ) | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit %>% | |
| select(matches("Q1")) %>% summary | |
| # > ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit %>% | |
| # + select(matches("Q1")) %>% summary | |
| # Q1 Q10 Q11 Q13 Q1_squared Q1_cubic Q1_gt32 Q1_gt30 | |
| # Min. :21.00 Min. :1.000 Min. :1.000 Min. :1.000 Min. : 441 Min. : 9261 Mode :logical Mode :logical | |
| # 1st Qu.:30.00 1st Qu.:2.000 1st Qu.:3.000 1st Qu.:2.000 1st Qu.: 900 1st Qu.: 27000 FALSE:78 FALSE:47 | |
| # Median :32.00 Median :3.000 Median :4.000 Median :3.000 Median :1024 Median : 32768 TRUE :74 TRUE :105 | |
| # Mean :34.93 Mean :2.625 Mean :3.776 Mean :2.921 Mean :1312 Mean : 53528 | |
| # 3rd Qu.:37.00 3rd Qu.:3.000 3rd Qu.:5.000 3rd Qu.:4.000 3rd Qu.:1369 3rd Qu.: 50653 | |
| # Max. :66.00 Max. :5.000 Max. :5.000 Max. :5.000 Max. :4356 Max. :287496 | |
| #@ more dichotomous variables ====== | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit = | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit %>% mutate( | |
| Q2is1 = Q2 == 1 | |
| , Q2is2 = Q2 == 2 | |
| , Q2is1 = Q2 == 1 | |
| , Q2is2 = Q2 == 2 | |
| , Q3is1 = Q3 == 1 | |
| , Q3is2 = Q3 == 2 | |
| , Q3is3 = Q3 == 3 | |
| , Q3is4 = Q3 == 4 | |
| , Q3is5 = Q3 == 5 | |
| , Q3is6 = Q3 == 6 | |
| , Q3is7 = Q3 == 7 | |
| , Q4is1 = Q4 == 1 | |
| , Q4is2 = Q4 == 2 | |
| , Q4is3 = Q4 == 3 | |
| , Q4is4 = Q4 == 4 | |
| , Q4is5 = Q4 == 5 | |
| , Q4is6 = Q4 == 6 | |
| , Q4is7 = Q4 == 7 | |
| , Q5is1 = Q5 == 1 | |
| , Q5is2 = Q5 == 2 | |
| , Q7is1 = Q7 == 1 | |
| , Q7is2 = Q7 == 2 | |
| , Q7is3 = Q7 == 3 | |
| , Q7is4 = Q7 == 4 | |
| , Q7is5 = Q7 == 5 | |
| , Q7is6 = Q7 == 6 | |
| , Q7is7 = Q7 == 7 | |
| , Q8is1 = Q8 == 1 | |
| , Q8is2 = Q8 == 2 | |
| , Q6is1 = Q6 == 1 | |
| , Q6is2 = Q6 == 2 | |
| , Q6is3 = Q6 == 3 | |
| , Q6is4 = Q6 == 4 | |
| , Q6is5 = Q6 == 5 | |
| , Q6is6 = Q6 == 6 | |
| , Q6is7 = Q6 == 7 | |
| ) | |
| #@ more polynomial continous variables ====== | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit = | |
| ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit %>% mutate( | |
| Q3138rowMeansReverseCoded_squared = Q3138rowMeansReverseCoded ^ 2 | |
| , Q3138rowMeansReverseCoded_cubic = Q3138rowMeansReverseCoded ^ 3 | |
| , Q3138rowMeansReverseCoded_sq = Q3138rowMeansReverseCoded ^ 2 # potential error in Stata due to too long variable name -_- | |
| , Q3138rowMeansReverseCoded_cb = Q3138rowMeansReverseCoded ^ 3 # potential error in Stata due to too long variable name -_- | |
| , Q4044rowMeans_squared = Q4044rowMeans ^ 2 | |
| , Q4044rowMeans_cubic = Q4044rowMeans ^ 3 | |
| ) | |
| #@ attributes(ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit[[i]]) = attributes(ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34[[i]]) ===== | |
| for (i in names(ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34)) { | |
| attributes(ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeansReverseCoded.na.omit[[i]]) = attributes(ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34[[i]]) | |
| } | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment