SOC_DS_CLSA_COP.Rmd

---
title: "Social factors DataSchema"
output: html_document
---
```{r, echo=TRUE}
library(tidyverse)
library(epiDisplay)
library(scales) 
library(car)
library(sjmisc)
# Connecting with Opal data server
## Login to server and assign study data
#Load Opal R library
library(opalr)
# Create an opal object with the login information
erasmus_opal <- opal.login()
#Login to Opal server and assign the content of the CLSA table(s) to your RStudio environment
# CLSA-cop_0
opal.assign.table.tibble(erasmus_opal, 'CoP4_Baseline', 'CLSA_1.CoP4_Baseline', variables = 
list('K10_DSCORE_MCQ','K10_TIRED_MCQ','K10_NRVS_MCQ','K10_NRVSCLMD_MCQ','K10_HPLS_MCQ','K10_RSTLS_MCQ','K10_RSTLSSTL_MCQ','K10_DEP_MCQ','K10_EFFRT_MCQ','K10_NOCHRUP_MCQ','K10_WRTHLSS_MCQ','K10_FLING_MCQ','K10_FLINGLESS_MCQ','K10_FLINGMORE_MCQ','K10_UNWK_NB_MCQ','K10_HFWK_NB_MCQ','K10_DOC_NB_MCQ','K10_OTPFLING_MCQ','K10_OTPFLING_OTSP_MCQ','K10_PHYSHLTH_MCQ','DEP_DPSFD_COM','DEP_NBRMIS_COM','DEP_CESD10_COM','DEP_BOTR_COM','DEP_MIND_COM','DEP_FLDP_COM','DEP_FFRT_COM','DEP_HPFL_COM','DEP_FRFL_COM','DEP_RSTLS_COM','DEP_HAPP_COM','DEP_LONLY_COM','DEP_GTGO_COM','SLS_DLIFE_COM','SLS_DCOND_COM','SLS_DSATS_COM','SLS_DIMP_COM','SLS_DOVER_COM','PSD_NGHTM_COM','PSD_AVOID_COM','PSD_GUARD_COM','PSD_DETACH_COM','COG_REYI_SCORE_COM','COG_REYII_SCORE_COM','COG_ANML_COM','COG_ANMLRPT_COM','COG_AFT_SCORE_1_COM','COG_AFT_SCORE_2_COM','COG_MAT_SCORE_COM','SN_CHILDSTP_NB_COM','SN_CHILDBIO_NB_COM','SN_CHILDADP_NB_COM','SN_FRND_NB_COM','SN_SEEFRND_COM','SN_NEIBR_NB_COM','SN_SEENEIBR_COM','SN_RELLIV_NB_COM','SN_SEESIB_COM','SN_SEECHILD_COM','SN_SEEREL_COM','SN_PERCOM_NB_COM','SSA_CHORES_COM','SSA_LOVU_COM','SSA_SUGG_COM','SSA_ENJOY_COM','SSA_PROBLM_COM','SPA_CHRCH_COM','SPA_EDUC_COM','SPA_VOLUN_COM','SPA_NEIBR_COM','SPA_PREVAC_AF_COM','SPA_PREVAC_TP_COM','SPA_SOAC_HY_COM','TRA_LVDHM_YR_MCQ','TRA_LVCMNTY_YR_MCQ','OWN_DWLG_COM','OWN_OWN_COM', 'AGE_NMBR_COM'))
CoP4_Baseline <- opal.execute(erasmus_opal,'CoP4_Baseline')
# CLSA-cop_1
opal.assign.table.tibble(erasmus_opal, 'CoP_FU1', 'CLSA_1.CoP_FU1', variables = 
list('K10_TIRED_COF1','K10_NRVS_COF1','K10_NRVSCLMD_COF1','K10_HPLS_COF1','K10_RSTLS_COF1','K10_RSTLSSTL_COF1','K10_DEP_COF1','K10_EFFRT_COF1','K10_NOCHRUP_COF1','K10_WRTHLSS_COF1','K10_FLING_COF1','K10_FLINGLESS_COF1','K10_FLINGMORE_COF1','K10_UNWK_NB_COF1','K10_HFWK_NB_COF1','K10_DOC_NB_COF1','K10_OTPFLING_COF1','K10_PHYSHLTH_COF1','DEP_BOTR_COF1','DEP_MIND_COF1','DEP_FLDP_COF1','DEP_FFRT_COF1','DEP_HPFL_COF1','DEP_FRFL_COF1','DEP_RSTLS_COF1','DEP_HAPP_COF1','DEP_LONLY_COF1','DEP_GTGO_COF1','SLS_LIFE_COF1','SLS_LIFENEG_COF1','SLS_LIFEPOS_COF1','SLS_COND_COF1','SLS_CONDNEG_COF1','SLS_CONDPOS_COF1','SLS_SATS_COF1','SLS_SATSNEG_COF1','SLS_SATSPOS_COF1','SLS_IMP_COF1','SLS_IMPNEG_COF1',
'SLS_IMPPOS_COF1','SLS_OVER_COF1','SLS_OVERNEG_COF1','SLS_OVERPOS_COF1','LONE_OFTN_COF1','LONE_LEFT_COF1','LONE_ISOL_COF1', 'SN_CHILDSTP_NB_COF1','SN_CHILDBIO_NB_COF1','SN_CHILDADP_NB_COF1','SN_FRND_NB_COF1','SN_SEEFRND_COF1','SN_NEIBR_NB_COF1','SN_SEENEIBR_COF1','SN_RELLIV_NB_COF1','SN_SEESIB_COF1','SN_SEECHILD_COF1','SN_SEEREL_COF1','SN_PERCOM_NB_COF1','SSA_CHORES_COF1','SSA_LOVU_COF1','SSA_SUGG_COF1','SSA_ENJOY_COF1','SSA_PROBLM_COF1','SPA_CHRCH_COF1','SPA_EDUC_COF1','SPA_VOLUN_COF1','SPA_NEIBR_COF1','SPA_PREVAC_AF_COF1','SPA_PREVAC_TP_COF1','SPA_SOAC_HY_COF1','TRA_LVCMNTY_YR_COF1','TRA_LVDHM_YR_COF1','OWN_DWLG_COF1','OWN_OWN_COF1', 'SN_CHILD_NB_COF1')) 
CoP_FU1 <- opal.execute(erasmus_opal,'CoP_FU1')
```
## Assign participant id as first column of your harmonized dataframes
```{r, echo=FALSE}
soc_CLSA_cop_0 <- data.frame(id = CoP4_Baseline$id)
soc_CLSA_cop_1 <- data.frame(id = CoP_FU1$id)
# When you are done with your work, logout of Opal server
opal.logout(erasmus_opal)
```

# Table of Contents  
1. [Social network subdomain](#social-network-subdomain)  
2. [Social support subdomain](#social-support-subdomain)  
3. [Social participation subdomain](#social-participation-subdomain)  
4. [Major life events subdomain](#major-life-events-subdomain)  
5. [Residential characteristics subdomain](#residential-characteristics-subdomain)

# Social network subdomain

### **Variable label**:   Network size of children      
**Variable name**:   soc_sn_num_children_0    
**Variable description**:  Number of living biological, adopted or step children.      
**Value type**:  integer  
**Variable unit**: children       
**Category coding**:      

**Harmonization status**:  complete  
**Harmonization comment**:  Study specific items used ask about living biological, adopted and step children. 
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$SN_CHILDSTP_NB_COM, useNA="always") 

soc_CLSA_cop_0$soc_sn_num_children_0 <- as.integer((CoP4_Baseline$SN_CHILDSTP_NB_COM) + (CoP4_Baseline$SN_CHILDBIO_NB_COM)+ (CoP4_Baseline$SN_CHILDADP_NB_COM)) 

table(soc_CLSA_cop_0$soc_sn_num_children_0, useNA="always") 

```
### **Variable label**:   Network size of children      
**Variable name**:   soc_sn_num_children_1    
**Variable description**:  Number of living biological, adopted or step children.          
**Value type**:  integer  
**Variable unit**:  children    
**Category coding**:    

**Harmonization status**:  complete  
**Harmonization comment**:  Study specific items used ask about living biological, adopted and step children. 
**R script**:  
```{r, echo=TRUE}
table(CoP_FU1$SN_CHILD_NB_COF1, CoP_FU1$SN_CHILDBIO_NB_COF1)
table(CoP_FU1$SN_CHILD_NB_COF1,useNA="always") 
soc_CLSA_cop_1$soc_sn_num_children_1<- as.integer((CoP_FU1$SN_CHILD_NB_COF1) + (CoP_FU1$SN_CHILDBIO_NB_COF1)+ (CoP_FU1$SN_CHILDADP_NB_COF1)) 

table(soc_CLSA_cop_1$soc_sn_num_children_1, useNA="always") 
```
### **Variable label**:   Network size of children      
**Variable name**:   soc_sn_num_children_2    
**Variable description**:  Number of living biological, adopted or step children.        
**Value type**:  integer  
**Variable unit**: children       
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:  
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of children      
**Variable name**:   soc_sn_num_children_3    
**Variable description**:  Number of living biological, adopted or step children.         
**Value type**:  integer  
**Variable unit**: children       
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of children      
**Variable name**:   soc_sn_num_children_4    
**Variable description**:  Number of living biological, adopted or step children.         
**Value type**:  integer  
**Variable unit**: children       
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of children      
**Variable name**:   soc_sn_num_children_5    
**Variable description**:  Number of living biological, adopted or step children.          
**Value type**:  integer  
**Variable unit**: children     
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of children      
**Variable name**:   soc_sn_num_children_6    
**Variable description**:  Number of living biological, adopted or step children.          
**Value type**:  integer  
**Variable unit**: children     
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Ranked network size of children         
**Variable name**:   soc_sn_children_rank_0      
**Variable description**:  Indicator of whether the participant has a low, medium or high network size compromised of children. It is measured by ranking the size of the network which is comprised of any type of child (biological, step, adoptive, foster, in-law son/daughter).  Low rank indicates no children.  Note: cohorts inquire about different types of children due to the particular questionnaire used, therefore a childless respondent in one study would not necessarily be considered childless in another study.  
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
0 |  Low rank of network size comprised of children (childless) 
1 |  Medium rank of network size comprised of children  (1 or 2 children)
2 |  Large rank of network size comprised of children  (more than 2 children) 

**Harmonization status**:  complete  
**Harmonization comment**:  CLSA asks about living children.  
**R script**:  
```{r, echo=TRUE}
soc_CLSA_cop_0$soc_sn_children_rank_0 <- ifelse(soc_CLSA_cop_0$soc_sn_num_children_0==0,0L, 
                                             ifelse(soc_CLSA_cop_0$soc_sn_num_children_0==1 | soc_CLSA_cop_0$soc_sn_num_children_0==2,1L,
                                                    ifelse(soc_CLSA_cop_0$soc_sn_num_children_0 >2,2L, NA)))
table(soc_CLSA_cop_0$soc_sn_num_children_0, useNA = "always")
table(soc_CLSA_cop_0$soc_sn_children_rank_0, useNA = "always")

```

### **Variable label**:   Ranked network size of children           
**Variable name**:   soc_sn_children_rank_1      
**Variable description**:  Indicator of whether the participant has a low, medium or high network size compromised of children. It is measured by ranking the size of the network which is comprised of any type of child (biological, step, adoptive, foster, in-law son/daughter).  Low rank indicates no children.  Note: cohorts inquire about different types of children due to the particular questionnaire used, therefore a childless respondent in one study would not necessarily be considered childless in another study.  
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
0 |  Low rank of network size comprised of children (childless) 
1 |  Medium rank of network size comprised of children  (1 or 2 children)
2 |  Large rank of network size comprised of children  (more than 2 children)  

**Harmonization status**:  complete  
**Harmonization comment**:  CLSA asks about living children.  
**R script**:  
```{r, echo=TRUE}
soc_CLSA_cop_1$soc_sn_children_rank_1 <- ifelse(soc_CLSA_cop_1$soc_sn_num_children_1==0,0L, 
                                             ifelse(soc_CLSA_cop_1$soc_sn_num_children_1==1 | soc_CLSA_cop_1$soc_sn_num_children_1==2,1L,
                                                    ifelse(soc_CLSA_cop_1$soc_sn_num_children_1 >2,2L, NA)))
table(soc_CLSA_cop_1$soc_sn_num_children_1, useNA = "always")
table(soc_CLSA_cop_1$soc_sn_children_rank_1, useNA = "always")

```
### **Variable label**:   Ranked network size of children           
**Variable name**:   soc_sn_children_rank_2      
**Variable description**:  Indicator of whether the participant has a low, medium or high network size compromised of children. It is measured by ranking the size of the network which is comprised of any type of child (biological, step, adoptive, foster, in-law son/daughter).  Low rank indicates no children.  Note: cohorts inquire about different types of children due to the particular questionnaire used, therefore a childless respondent in one study would not necessarily be considered childless in another study.    
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
0 |  Low rank of network size comprised of children (childless) 
1 |  Medium rank of network size comprised of children  (1 or 2 children)
2 |  Large rank of network size comprised of children  (more than 2 children)  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Ranked network size of children          
**Variable name**:   soc_sn_children_rank_3      
**Variable description**:  Indicator of whether the participant has a low, medium or high network size compromised of children. It is measured by ranking the size of the network which is comprised of any type of child (biological, step, adoptive, foster, in-law son/daughter).  Low rank indicates no children.  Note: cohorts inquire about different types of children due to the particular questionnaire used, therefore a childless respondent in one study would not necessarily be considered childless in another study.  
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
0 |  Low rank of network size comprised of children (childless) 
1 |  Medium rank of network size comprised of children  (1 or 2 children)
2 |  Large rank of network size comprised of children  (more than 2 children)  

**Harmonization status**: impossible    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Ranked network size of children          
**Variable name**:   soc_sn_children_rank_4      
**Variable description**:  Indicator of whether the participant has a low, medium or high network size compromised of children. It is measured by ranking the size of the network which is comprised of any type of child (biological, step, adoptive, foster, in-law son/daughter).  Low rank indicates no children.  Note: cohorts inquire about different types of children due to the particular questionnaire used, therefore a childless respondent in one study would not necessarily be considered childless in another study.  
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
0 |  Low rank of network size comprised of children (childless) 
1 |  Medium rank of network size comprised of children  (1 or 2 children)
2 |  Large rank of network size comprised of children  (more than 2 children)  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Ranked network size of children          
**Variable name**:   soc_sn_children_rank_5      
**Variable description**:  Indicator of whether the participant has a low, medium or high network size compromised of children. It is measured by ranking the size of the network which is comprised of any type of child (biological, step, adoptive, foster, in-law son/daughter).  Low rank indicates no children.  Note: cohorts inquire about different types of children due to the particular questionnaire used, therefore a childless respondent in one study would not necessarily be considered childless in another study.  
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
0 |  Low rank of network size comprised of children (childless) 
1 |  Medium rank of network size comprised of children  (1 or 2 children)
2 |  Large rank of network size comprised of children  (more than 2 children)  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Ranked network size of children         
**Variable name**:   soc_sn_children_rank_6      
**Variable description**:  Indicator of whether the participant has a low, medium or high network size compromised of children. It is measured by ranking the size of the network which is comprised of any type of child (biological, step, adoptive, foster, in-law son/daughter).  Low rank indicates no children.  Note: cohorts inquire about different types of children due to the particular questionnaire used, therefore a childless respondent in one study would not necessarily be considered childless in another study.  
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
0 |  Low rank of network size comprised of children (childless) 
1 |  Medium rank of network size comprised of children  (1 or 2 children)
2 |  Large rank of network size comprised of children  (more than 2 children)  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```

### **Variable label**:   Network size of friends    
**Variable name**:   soc_sn_num_friends_0  
**Variable description**:  Number of close friends. These are friends which the participant feels they can talk to/reach out to.    
**Value type**:  integer  
**Variable unit**: friends  
**Category coding**:      

**Harmonization status**:  complete  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$SN_FRND_NB_COM) 

soc_CLSA_cop_0$soc_sn_num_friends_0 <- as.integer(CoP4_Baseline$SN_FRND_NB_COM) 

table(soc_CLSA_cop_0$soc_sn_num_friends_0) 

```
### **Variable label**:   Network size of friends    
**Variable name**:   soc_sn_num_friends_1    
**Variable description**: Number of close friends. These are friends which the participant feels they can talk to/reach out to.  
**Value type**:  integer  
**Variable unit**:  friends 
**Category coding**:        

**Harmonization status**:  complete  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(CoP_FU1$SN_FRND_NB_COF1) 

soc_CLSA_cop_1$soc_sn_num_friends_1 <- as.integer(CoP_FU1$SN_FRND_NB_COF1) 

table(soc_CLSA_cop_1$soc_sn_num_friends_1) 
summary(soc_CLSA_cop_1$soc_sn_num_friends_1) 
```
### **Variable label**:   Network size of friends    
**Variable name**:   soc_sn_num_friends_2    
**Variable description**:  Number of close friends. These are friends which the participant feels they can talk to/reach out to.    
**Value type**:  integer  
**Variable unit**:  friends 
**Category coding**:      

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of friends    
**Variable name**:   soc_sn_num_friends_3    
**Variable description**: Number of close friends. These are friends which the participant feels they can talk to/reach out to.    
**Value type**:  integer  
**Variable unit**:  friends 
**Category coding**:         

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of friends    
**Variable name**:   soc_sn_num_friends_4    
**Variable description**:  Number of close friends. These are friends which the participant feels they can talk to/reach out to.    
**Value type**:  integer  
**Variable unit**:  friends 
**Category coding**:      

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of friends    
**Variable name**:   soc_sn_num_friends_5    
**Variable description**:  Number of close friends. These are friends which the participant feels they can talk to/reach out to.      
**Value type**:  integer  
**Variable unit**:  friends  
**Category coding**:      

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```

### **Variable label**:   Network size of friends    
**Variable name**:   soc_sn_num_friends_6    
**Variable description**:  Number of close friends. These are friends which the participant feels they can talk to/reach out to.    
**Value type**:  integer  
**Variable unit**:  friends 
**Category coding**:         

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```

### **Variable label**:   In-person contact frequency with friends        
**Variable name**:   soc_sn_freq_friends_inperson_0       
**Variable description**:   Indicator of the frequency at which the participant has in-person contact with close friends.      
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month in-person contact with friends 
2 |  Once per month in-person contact with friends
3 |  A few times per year, once per year or never in-person contact with friends  

**Harmonization status**:  impossible  
**Harmonization comment**:   Study specific variable asks about last get together with close friends outside of household.
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   In-person contact frequency with friends        
**Variable name**:   soc_sn_freq_friends_inperson_1       
**Variable description**:   Indicator of the frequency at which the participant has in-person contact with close friends.  
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month in-person contact with friends 
2 |  Once per month in-person contact with friends
3 |  A few times per year, once per year or never in-person contact with friends  

**Harmonization status**:  impossible  
**Harmonization comment**:   Study specific variable asks about last get together with close friends outside of household. 
**R script**:  
```{r, echo=TRUE}


``` 
### **Variable label**:   In-person contact frequency with friends        
**Variable name**:   soc_sn_freq_friends_inperson_2       
**Variable description**:   Indicator of the frequency at which the participant has in-person contact with close friends.  
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month in-person contact with friends 
2 |  Once per month in-person contact with friends
3 |  A few times per year, once per year or never in-person contact with friends  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   In-person contact frequency with friends       
**Variable name**:   soc_sn_freq_friends_inperson_3       
**Variable description**:   Indicator of the frequency at which the participant has in-person contact with close friends.      
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month in-person contact with friends 
2 |  Once per month in-person contact with friends
3 |  A few times per year, once per year or never in-person contact with friends  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   In-person contact frequency with friends       
**Variable name**:   soc_sn_freq_friends_inperson_4       
**Variable description**:   Indicator of the frequency at which the participant has in-person contact with close friends.     
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month in-person contact with friends 
2 |  Once per month in-person contact with friends
3 |  A few times per year, once per year or never in-person contact with friends  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Contact frequency with friends        
**Variable name**:   soc_sn_freq_friends_0       
**Variable description**:   Indicator of the frequency at which the participant has contact with close friends.         
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with friends 
2 |  Once per month contact with friends
3 |  A few times per year, once per year or never contact with friends

**Harmonization status**:  impossible  
**Harmonization comment**:   Study specific variable asks about last get together with close friends outside of household.  
**R script**:  
```{r, echo=TRUE}
``` 
### **Variable label**:   Contact frequency with friends        
**Variable name**:   soc_sn_freq_friends_1       
**Variable description**:   Indicator of the frequency at which the participant has contact with close friends.          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with friends 
2 |  Once per month contact with friends
3 |  A few times per year, once per year or never contact with friends

**Harmonization status**:  impossible  
**Harmonization comment**:   Study specific variable asks about last get together with close friends outside of household.  
**R script**:  
```{r, echo=TRUE}
``` 
### **Variable label**:   Contact frequency with friends        
**Variable name**:   soc_sn_freq_friends_2       
**Variable description**:   Indicator of the frequency at which the participant has contact with close friends.          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with friends 
2 |  Once per month contact with friends
3 |  A few times per year, once per year or never contact with friends

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Contact frequency with friends        
**Variable name**:   soc_sn_freq_friends_3       
**Variable description**:   Indicator of the frequency at which the participant has contact with close friends.          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with friends 
2 |  Once per month contact with friends
3 |  A few times per year, once per year or never contact with friends

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Contact frequency with friends        
**Variable name**:   soc_sn_freq_friends_4       
**Variable description**:   Indicator of the frequency at which the participant has contact with close friends.          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with friends 
2 |  Once per month contact with friends
3 |  A few times per year, once per year or never contact with friends

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Contact frequency with friends        
**Variable name**:   soc_sn_freq_friends_5       
**Variable description**:   Indicator of the frequency at which the participant has contact with close friends.          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with friends 
2 |  Once per month contact with friends
3 |  A few times per year, once per year or never contact with friends

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Contact frequency with friends        
**Variable name**:   soc_sn_freq_friends_6       
**Variable description**:   Indicator of the frequency at which the participant has contact with close friends.           
**Value type**:  integer  
**Variable unit**:   
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with friends 
2 |  Once per month contact with friends
3 |  A few times per year, once per year or never contact with friends

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Network size of neighbours           
**Variable name**:   soc_sn_num_nbhs_0    
**Variable description**:  Indicator of the number of neighbours that the participant knows well enough to be in touch with or visit.    
**Value type**:  integer    
**Variable unit**:    
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  No neighbours 
2 |  1 or 2 neighbours 
3 |  3 to 5 neighbours 
4 |  6 to 10 neighbours 
5 |  11 to 20 neighbours 
6 |  More than 20 neighbours   

**Harmonization status**:  impossible  
**Harmonization comment**:   The study-specific variable is:"How many of your neighbours do you know?"
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Network size of neighbours           
**Variable name**:   soc_sn_num_nbhs_1    
**Variable description**:  Indicator of the number of neighbours that the participant knows well enough to be in touch with or visit.  
**Value type**:  integer    
**Variable unit**:    
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  No neighbours 
2 |  1 or 2 neighbours 
3 |  3 to 5 neighbours 
4 |  6 to 10 neighbours 
5 |  11 to 20 neighbours 
6 |  More than 20 neighbours    

**Harmonization status**:  impossible  
**Harmonization comment**:   The study-specific variable is:"How many of your neighbours do you know?"
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Network size of neighbours           
**Variable name**:   soc_sn_num_nbhs_2    
**Variable description**:  Indicator of the number of neighbours that the participant knows well enough to be in touch with or visit.  
**Value type**:  integer    
**Variable unit**:    
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  No neighbours 
2 |  1 or 2 neighbours 
3 |  3 to 5 neighbours 
4 |  6 to 10 neighbours 
5 |  11 to 20 neighbours 
6 |  More than 20 neighbours    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Network size of neighbours           
**Variable name**:   soc_sn_num_nbhs_3    
**Variable description**:  Indicator of the number of neighbours that the participant knows well enough to be in touch with or visit.  
**Value type**:  integer    
**Variable unit**:    
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  No neighbours 
2 |  1 or 2 neighbours 
3 |  3 to 5 neighbours 
4 |  6 to 10 neighbours 
5 |  11 to 20 neighbours 
6 |  More than 20 neighbours    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Network size of neighbours           
**Variable name**:   soc_sn_num_nbhs_4    
**Variable description**:  Indicator of the number of neighbours that the participant knows well enough to be in touch with or visit.  
**Value type**:  integer    
**Variable unit**:    
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  No neighbours 
2 |  1 or 2 neighbours 
3 |  3 to 5 neighbours 
4 |  6 to 10 neighbours 
5 |  11 to 20 neighbours 
6 |  More than 20 neighbours    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Network size of neighbours           
**Variable name**:   soc_sn_num_nbhs_5    
**Variable description**:  Indicator of the number of neighbours that the participant knows well enough to be in touch with or visit.  
**Value type**:  integer    
**Variable unit**:    
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  No neighbours 
2 |  1 or 2 neighbours 
3 |  3 to 5 neighbours 
4 |  6 to 10 neighbours 
5 |  11 to 20 neighbours 
6 |  More than 20 neighbours    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 
### **Variable label**:   Network size of neighbours           
**Variable name**:   soc_sn_num_nbhs_6    
**Variable description**:  Indicator of the number of neighbours that the participant knows well enough to be in touch with or visit.  
**Value type**:  integer    
**Variable unit**:    
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  No neighbours 
2 |  1 or 2 neighbours 
3 |  3 to 5 neighbours 
4 |  6 to 10 neighbours 
5 |  11 to 20 neighbours 
6 |  More than 20 neighbours 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

``` 

### **Variable label**:   Contact frequency with neighbours        
**Variable name**:   soc_sn_freq_nbhs_0    
**Variable description**:  Indicator of the contact frequency with neighbours that the participant knows well enough to be in touch with or visit.   
**Value type**:  integer  
**Variable unit**:     
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with neighbours 
2 |  Once per month contact with neighbours
3 |  A few times per year, once per year or never contact with neighbours

**Harmonization status**:  impossible   
**Harmonization comment**: Study specific variable asks about last get together with neighbours.  
**R script**:  
```{r, echo=TRUE}


``` 
### **Variable label**:   Contact frequency with neighbours        
**Variable name**:   soc_sn_freq_nbhs_1    
**Variable description**:  Indicator of the contact frequency with neighbours that the participant knows well enough to be in touch with or visit.   
**Value type**:  integer  
**Variable unit**:     
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with neighbours 
2 |  Once per month contact with neighbours
3 |  A few times per year, once per year or never contact with neighbours

**Harmonization status**:  impossible   
**Harmonization comment**: Study specific variable asks about last get together with neighbours.    
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with neighbours        
**Variable name**:   soc_sn_freq_nbhs_2    
**Variable description**:  Indicator of the contact frequency with neighbours that the participant knows well enough to be in touch with or visit.   
**Value type**:  integer  
**Variable unit**:     
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with neighbours 
2 |  Once per month contact with neighbours
3 |  A few times per year, once per year or never contact with neighbours

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with neighbours        
**Variable name**:   soc_sn_freq_nbhs_3    
**Variable description**:  Indicator of the contact frequency with neighbours that the participant knows well enough to be in touch with or visit.   
**Value type**:  integer  
**Variable unit**:     
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with neighbours 
2 |  Once per month contact with neighbours
3 |  A few times per year, once per year or never contact with neighbours

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with neighbours        
**Variable name**:   soc_sn_freq_nbhs_4    
**Variable description**:  Indicator of the contact frequency with neighbours that the participant knows well enough to be in touch with or visit.   
**Value type**:  integer  
**Variable unit**:     
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with neighbours 
2 |  Once per month contact with neighbours
3 |  A few times per year, once per year or never contact with neighbours

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with neighbours        
**Variable name**:   soc_sn_freq_nbhs_5    
**Variable description**:  Indicator of the contact frequency with neighbours that the participant knows well enough to be in touch with or visit.   
**Value type**:  integer  
**Variable unit**:     
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with neighbours 
2 |  Once per month contact with neighbours
3 |  A few times per year, once per year or never contact with neighbours

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with neighbours        
**Variable name**:   soc_sn_freq_nbhs_6      
**Variable description**:  Indicator of the contact frequency with neighbours that the participant knows well enough to be in touch with or visit.   
**Value type**:  integer  
**Variable unit**:     
**Category coding**:    

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to several times per month contact with neighbours 
2 |  Once per month contact with neighbours
3 |  A few times per year, once per year or never contact with neighbours

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of relatives      
**Variable name**:   soc_sn_num_relatives_0    
**Variable description**:  Number of relatives, including siblings and excluding partner/children living at home, which the participant is close to, i.e. is in touch with regularly.           
**Value type**:  integer  
**Variable unit**: relatives     
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**: Study-specific variable SN_RELLIV_NB_COM is an indicator of the number of living relatives.    
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of relatives      
**Variable name**:   soc_sn_num_relatives_1    
**Variable description**:  Number of relatives, including siblings and excluding partner/children living at home, which the participant is close to, i.e. is in touch with regularly.           
**Value type**:  integer  
**Variable unit**:  relatives    
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:  Study-specific variable SN_RELLIV_NB_COF1 is an indicator of the number of living relatives.    
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of relatives      
**Variable name**:   soc_sn_num_relatives_2    
**Variable description**:  Number of relatives, including siblings and excluding partner/children living at home, which participant is close to, i.e. is in touch with regularly.           
**Value type**:  integer  
**Variable unit**:  relatives      
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of relatives      
**Variable name**:   soc_sn_num_relatives_3    
**Variable description**:  Number of relatives, including siblings and excluding partner/children living at home, which participant is close to, i.e. is in touch with regularly.           
**Value type**:  integer  
**Variable unit**: relatives        
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of relatives      
**Variable name**:   soc_sn_num_relatives_4    
**Variable description**:  Number of relatives, including siblings and excluding partner/children living at home, which participant is close to, i.e. is in touch with regularly.           
**Value type**:  integer  
**Variable unit**: relatives       
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of relatives      
**Variable name**:   soc_sn_num_relatives_5    
**Variable description**:  Number of relatives, including siblings and excluding partner/children living at home, which participant is close to, i.e. is in touch with regularly.           
**Value type**:  integer  
**Variable unit**:  relatives      
**Category coding**:   
   
**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of relatives      
**Variable name**:   soc_sn_num_relatives_6    
**Variable description**:  Number of relatives, including siblings and excluding partner/children living at home, which participant is close to, i.e. is in touch with regularly.           
**Value type**:  integer  
**Variable unit**: relatives       
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with family   
**Variable name**:   soc_sn_freq_close_relatives_0    
**Variable description**:  Indicator of the contact frequency with relatives including siblings and children, which participant is close to.                
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with family 
2 |  Once per month contact with family
3 |  A few times per year, once per year or never contact with family  

**Harmonization status**:  impossible    
**Harmonization comment**:  
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with family     
**Variable name**:   soc_sn_freq_close_relatives_1    
**Variable description**:  Indicator of the contact frequency with relatives including siblings and children, which participant is close to.                 
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with family 
2 |  Once per month contact with family
3 |  A few times per year, once per year or never contact with family  

**Harmonization status**:   impossible       
**Harmonization comment**:  
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with family    
**Variable name**:   soc_sn_freq_close_relatives_2    
**Variable description**:  Indicator of the contact frequency with relatives including siblings and children, which participant is close to.               
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with family 
2 |  Once per month contact with family
3 |  A few times per year, once per year or never contact with family  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with family    
**Variable name**:   soc_sn_freq_close_relatives_3      
**Variable description**:  Indicator of the contact frequency with relatives including siblings and children, which participant is close to.                 
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with family 
2 |  Once per month contact with family
3 |  A few times per year, once per year or never contact with family  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with family   
**Variable name**:   soc_sn_freq_close_relatives_4      
**Variable description**:  Indicator of the contact frequency with relatives including siblings and children, which participant is close to.                 
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with family 
2 |  Once per month contact with family
3 |  A few times per year, once per year or never contact with family  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with family    
**Variable name**:   soc_sn_freq_close_relatives_5      
**Variable description**:  Indicator of the contact frequency with relatives including siblings and children, which participant is close to.                 
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with family 
2 |  Once per month contact with family
3 |  A few times per year, once per year or never contact with family  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with family    
**Variable name**:   soc_sn_freq_close_relatives_6      
**Variable description**:  Indicator of the contact frequency with relatives including siblings and children, which participant is close to.               
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with family 
2 |  Once per month contact with family
3 |  A few times per year, once per year or never contact with family  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```

### **Variable label**:   Contact frequency with relatives   
**Variable name**:   soc_sn_freq_relatives_0        
**Variable description**:  Indicator of the contact frequency with relatives, including siblings and children regardless of how close the participant feels to them.                
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with relatives 
2 |  Once per month contact with relatives
3 |  A few times per year, once per year or never contact with relatives  

**Harmonization status**:    impossible  
**Harmonization comment**: 
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with relatives      
**Variable name**:   soc_sn_freq_relatives_1          
**Variable description**:  Indicator of the contact frequency with relatives, including siblings and children regardless of how close the participant feels to them.                
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with relatives 
2 |  Once per month contact with relatives
3 |  A few times per year, once per year or never contact with relatives  

**Harmonization status**:  impossible    
**Harmonization comment**: 
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with relatives     
**Variable name**:   soc_sn_freq_relatives_2          
**Variable description**:  Indicator of the contact frequency with relatives, including siblings and children regardless of how close the participant feels to them.                
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with relatives 
2 |  Once per month contact with relatives
3 |  A few times per year, once per year or never contact with relatives  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with relatives    
**Variable name**:   soc_sn_freq_relatives_3          
**Variable description**:  Indicator of the contact frequency with relatives, including siblings and children regardless of how close the participant feels to them.                
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with relatives 
2 |  Once per month contact with relatives
3 |  A few times per year, once per year or never contact with relatives  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with relatives    
**Variable name**:   soc_sn_freq_relatives_4          
**Variable description**:  Indicator of the contact frequency with relatives, including siblings and children regardless of how close the participant feels to them.                
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with relatives 
2 |  Once per month contact with relatives
3 |  A few times per year, once per year or never contact with relatives  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with relatives     
**Variable name**:   soc_sn_freq_relatives_5          
**Variable description**:  Indicator of the contact frequency with relatives, including siblings and children regardless of how close the participant feels to them.                
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with relatives 
2 |  Once per month contact with relatives
3 |  A few times per year, once per year or never contact with relatives  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with relatives    
**Variable name**:   soc_sn_freq_relatives_6          
**Variable description**:  Indicator of the contact frequency with relatives, including siblings and children regardless of how close the participant feels to them.                
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with relatives 
2 |  Once per month contact with relatives
3 |  A few times per year, once per year or never contact with relatives  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of non-kin      
**Variable name**:   soc_sn_num_nonkin_0    
**Variable description**:  Number of non-kin members of the participant’s social network consisting of neighbours, colleagues (from work or school), members of associations (that participant is a part of, such as community activities and organization) and friends.         
**Value type**:  integer  
**Variable unit**: members       
**Category coding**:   

**Harmonization status**:  complete  
**Harmonization comment**:  Study specific variables added to obtain this DataSchema are: number of close friends, number of neighbours, number of people known through community involvement.  
**R script**:  
```{r, echo=TRUE}
soc_CLSA_cop_0$soc_sn_num_nonkin_0 <- as.integer((CoP4_Baseline$SN_FRND_NB_COM) + (CoP4_Baseline$SN_NEIBR_NB_COM)+ (CoP4_Baseline$SN_PERCOM_NB_COM)) 

table(soc_CLSA_cop_0$soc_sn_num_nonkin_0, useNA="always") 

```
### **Variable label**:   Network size of non-kin      
**Variable name**:   soc_sn_num_nonkin_1      
**Variable description**:  Number of non-kin members of the participant’s social network consisting of neighbours, colleagues (from work or school), members of associations (that participant is a part of, such as community activities and organization) and friends.         
**Value type**:  integer  
**Variable unit**: members       
**Category coding**:   

**Harmonization status**:  complete  
**Harmonization comment**:  Study specific variables added to obtain this DataSchema are: number of close friends, number of neighbours, number of people known through community involvement.  
**R script**:  
```{r, echo=TRUE}
soc_CLSA_cop_1$soc_sn_num_nonkin_1 <- as.integer((CoP_FU1$SN_FRND_NB_COF1) + (CoP_FU1$SN_NEIBR_NB_COF1)+ (CoP_FU1$SN_PERCOM_NB_COF1)) 

table(soc_CLSA_cop_1$soc_sn_num_nonkin_1, useNA="always") 

```
### **Variable label**:   Network size of non-kin      
**Variable name**:   soc_sn_num_nonkin_2      
**Variable description**:  Number of non-kin members of the participant’s social network consisting of neighbours, colleagues (from work or school), members of associations (that participant is a part of, such as community activities and organization) and friends.         
**Value type**:  integer  
**Variable unit**: members       
**Category coding**:      

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of non-kin      
**Variable name**:   soc_sn_num_nonkin_3      
**Variable description**:  Number of non-kin members of the participant’s social network consisting of neighbours, colleagues (from work or school), members of associations (that participant is a part of, such as community activities and organization) and friends.         
**Value type**:  integer  
**Variable unit**:  members      
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of non-kin      
**Variable name**:   soc_sn_num_nonkin_4      
**Variable description**:  Number of non-kin members of the participant’s social network consisting of neighbours, colleagues (from work or school), members of associations (that participant is a part of, such as community activities and organization) and friends.         
**Value type**:  integer  
**Variable unit**:  members      
**Category coding**:     

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of non-kin      
**Variable name**:   soc_sn_num_nonkin_5      
**Variable description**:  Number of non-kin members of the participant’s social network consisting of neighbours, colleagues (from work or school), members of associations (that participant is a part of, such as community activities and organization) and friends.         
**Value type**:  integer  
**Variable unit**:  members      
**Category coding**:   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Network size of non-kin      
**Variable name**:   soc_sn_num_nonkin_6      
**Variable description**: Number of non-kin members of the participant’s social network consisting of neighbours, colleagues (from work or school), members of associations (that participant is a part of, such as community activities and organization) and friends.         
**Value type**:  integer  
**Variable unit**: members       
**Category coding**:      

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```

### **Variable label**:   Contact frequency with non-kin  
**Variable name**:   soc_sn_freq_nonkin_0          
**Variable description**:  Indicator of the contact frequency with non-kin members of social network, consisting of neighbours, relatives and friends.            
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with non-kin members 
2 |  Once per month contact with non-kin members
3 |  A few times per year, once per year or never contact with non-kin members    

**Harmonization status**:  impossible    
**Harmonization comment**:  Study specific variables are: SN_SEENEIBR_COM = last get together with neighbours and SN_SEEFRND_COM = last get together with close friends outside of household. 
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with non-kin  
**Variable name**:   soc_sn_freq_nonkin_1            
**Variable description**:  Indicator of the contact frequency with non-kin members of social network, consisting of neighbours, relatives and friends.            
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with non-kin members 
2 |  Once per month contact with non-kin members
3 |  A few times per year, once per year or never contact with non-kin members    

**Harmonization status**:  impossible    
**Harmonization comment**:  Study specific variables are: SN_SEENEIBR_COF1 = last get together with neighbours and SN_SEEFRND_COF1 = last get together with close friends outside of household.   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with non-kin  
**Variable name**:   soc_sn_freq_nonkin_2            
**Variable description**:  Indicator of the contact frequency with non-kin members of social network, consisting of neighbours, relatives and friends.            
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with non-kin members 
2 |  Once per month contact with non-kin members
3 |  A few times per year, once per year or never contact with non-kin members    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with non-kin  
**Variable name**:   soc_sn_freq_nonkin_3            
**Variable description**:  Indicator of the contact frequency with non-kin members of social network, consisting of neighbours, relatives and friends.            
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with non-kin members 
2 |  Once per month contact with non-kin members
3 |  A few times per year, once per year or never contact with non-kin members    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with non-kin  
**Variable name**:   soc_sn_freq_nonkin_4            
**Variable description**:  Indicator of the contact frequency with non-kin members of social network, consisting of neighbours, relatives and friends.            
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with non-kin members 
2 |  Once per month contact with non-kin members
3 |  A few times per year, once per year or never contact with non-kin members    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with non-kin  
**Variable name**:   soc_sn_freq_nonkin_5          
**Variable description**:  Indicator of the contact frequency with non-kin members of social network, consisting of neighbours, relatives and friends.            
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with non-kin members 
2 |  Once per month contact with non-kin members
3 |  A few times per year, once per year or never contact with non-kin members    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:   Contact frequency with non-kin  
**Variable name**:   soc_sn_freq_nonkin_6          
**Variable description**:  Indicator of the contact frequency with non-kin members of social network, consisting of neighbours, relatives and friends.            
**Value type**:  integer  
**Variable unit**:      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  Daily to less than monthly (once per month) contact with non-kin members 
2 |  Once per month contact with non-kin members
3 |  A few times per year, once per year or never contact with non-kin members    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
# Social support subdomain

### **Variable label**: Received emotional support    
**Variable name**:   soc_ss_received_emo_0 
**Variable description**:  Indicator of the frequency of received emotional support i.e. receiving affection from or sharing personal experiences/feelings with, from the participant’s three social network members that they indicated they are closest to.        
**Value type**: integer   
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received emotional support
1 |  Sometimes received emotional support
2 |  Often received emotional support

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received emotional support    
**Variable name**:   soc_ss_received_emo_1 
**Variable description**:  Indicator of the frequency of received emotional support i.e. receiving affection from or sharing personal experiences/feelings with, from the participant’s three social network members that they indicated they are closest to.        
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received emotional support
1 |  Sometimes received emotional support
2 |  Often received emotional support

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received emotional support    
**Variable name**:   soc_ss_received_emo_2 
**Variable description**:  Indicator of the frequency of received emotional support i.e. receiving affection from or sharing personal experiences/feelings with, from the participant’s three social network members that they indicated they are closest to.          
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received emotional support
1 |  Sometimes received emotional support
2 |  Often received emotional support

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received emotional support    
**Variable name**:   soc_ss_received_emo_3 
**Variable description**:  Indicator of the frequency of received emotional support i.e. receiving affection from or sharing personal experiences/feelings with, from the participant’s three social network members that they indicated they are closest to.       
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received emotional support
1 |  Sometimes received emotional support
2 |  Often received emotional support

**Harmonization status**:  impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received emotional support    
**Variable name**:   soc_ss_received_emo_4 
**Variable description**:  Indicator of the frequency of received emotional support i.e. receiving affection from or sharing personal experiences/feelings with, from the participant’s three social network members that they indicated they are closest to.       
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received emotional support
1 |  Sometimes received emotional support
2 |  Often received emotional support

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received emotional support    
**Variable name**:   soc_ss_received_emo_5 
**Variable description**:  Indicator of the frequency of received emotional support i.e. receiving affection from or sharing personal experiences/feelings with, from the participant’s three social network members that they indicated they are closest to.       
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received emotional support
1 |  Sometimes received emotional support
2 |  Often received emotional support

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received emotional support    
**Variable name**:   soc_ss_received_emo_6 
**Variable description**:  Indicator of the frequency of received emotional support i.e. receiving affection from or sharing personal experiences/feelings with, from the participant’s three social network members that they indicated they are closest to.    
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received emotional support
1 |  Sometimes received emotional support
2 |  Often received emotional support

**Harmonization status**:   impossible    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received instrumental support   
**Variable name**:   soc_ss_received_instru_0 
**Variable description**:  Indicator of the frequency of received instrumental support, i.e. tangible help, from the participant’s three social network members that they indicated they are closest to.      
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received instrumental support
1 |  Sometimes received instrumental support
2 |  Often received instrumental support

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received instrumental support   
**Variable name**:   soc_ss_received_instru_1 
**Variable description**:  Indicator of the frequency of received instrumental support, i.e. tangible help, from the participant’s three social network members that they indicated they are closest to.     
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received instrumental support
1 |  Sometimes received instrumental support
2 |  Often received instrumental support

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received instrumental support   
**Variable name**:   soc_ss_received_instru_2 
**Variable description**:  Indicator of the frequency of received instrumental support, i.e. tangible help, from the participant’s three social network members that they indicated they are closest to.      
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received instrumental support
1 |  Sometimes received instrumental support
2 |  Often received instrumental support

**Harmonization status**:  impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received instrumental support   
**Variable name**:   soc_ss_received_instru_3 
**Variable description**:  Indicator of the frequency of received instrumental support, i.e. tangible help, from the participant’s three social network members that they indicated they are closest to.      
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received instrumental support
1 |  Sometimes received instrumental support
2 |  Often received instrumental support

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received instrumental support   
**Variable name**:   soc_ss_received_instru_4 
**Variable description**:  Indicator of the frequency of received instrumental support, i.e. tangible help, from the participant’s three social network members that they indicated they are closest to.      
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |   Never received instrumental support
1 |   Sometimes received instrumental support
2 |   Often received instrumental support

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received instrumental support   
**Variable name**:   soc_ss_received_instru_5 
**Variable description**:  Indicator of the frequency of received instrumental support, i.e. tangible help, from the participant’s three social network members that they indicated they are closest to.      
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received instrumental support
1 |  Sometimes received instrumental support
2 |  Often received instrumental support

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Received instrumental support   
**Variable name**:   soc_ss_received_instru_6 
**Variable description**:  Indicator of the frequency of received instrumental support, i.e. tangible help, from the participant’s three social network members that they indicated they are closest to.      
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Never received instrumental support
1 |  Sometimes received instrumental support
2 |  Often received instrumental support

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Perceived emotional support Z-score   
**Variable name**:   soc_ss_Zscore_perceived_emo_0      
**Variable description**:  Z-score of perceived emotional support.     
**Value type**:  decimal    
**Variable unit**:  
**Category coding**:  

**Harmonization status**:  complete          
**Harmonization comment**:  Caution in using this variable. Study specific items used are: SSA_LOVU_COM = Support availability by love and making participant feel wanted, SSA_SUGG_COM = Support availability for suggestions with a personal problem, SSA_ENJOY_COM = Support availability to do something enjoyable, SSA_PROBLM_COM = Support availability for understanding problems. The following approach was taken to derive the perceived emotional support Z-score. The response categories to these items are: none of the time (1), a little of the time (2), some of the time(3), most of the time(4) and all of the time(5).  The response to each of the four items were added and the z-score calculated from this sum.  Answer categories 'don't know' and 'refused' are categorized as missing.  
**R script**:  
```{r, echo=TRUE}
 
table(CoP4_Baseline$SSA_LOVU_COM, useNA="always") 
table(CoP4_Baseline$SSA_SUGG_COM, useNA="always") 
table(CoP4_Baseline$SSA_ENJOY_COM, useNA="always") 
table(CoP4_Baseline$SSA_PROBLM_COM, useNA="always") 

soc_CLSA_cop_0$soc_ss_perceived_instru_0_love_inter <- as.numeric(ifelse(CoP4_Baseline$SSA_LOVU_COM<6,CoP4_Baseline$SSA_LOVU_COM,NA))

table(soc_CLSA_cop_0$soc_ss_perceived_instru_0_love_inter) 

soc_CLSA_cop_0$soc_ss_perceived_instru_0_sugg_inter <- as.numeric(ifelse(CoP4_Baseline$SSA_SUGG_COM<6,CoP4_Baseline$SSA_SUGG_COM,NA))

table(soc_CLSA_cop_0$soc_ss_perceived_instru_0_sugg_inter) 

soc_CLSA_cop_0$soc_ss_perceived_instru_0_enjoy_inter <- as.numeric(ifelse(CoP4_Baseline$SSA_ENJOY_COM<6,CoP4_Baseline$SSA_ENJOY_COM,NA))

table(soc_CLSA_cop_0$soc_ss_perceived_instru_0_enjoy_inter) 

soc_CLSA_cop_0$soc_ss_perceived_instru_0_prob_inter <- as.numeric(ifelse(CoP4_Baseline$SSA_PROBLM_COM<6,CoP4_Baseline$SSA_PROBLM_COM,NA))

table(soc_CLSA_cop_0$soc_ss_perceived_instru_0_prob_inter) 


soc_CLSA_cop_0$soc_ss_Zscore_perceived_emo_0_inter <- (soc_CLSA_cop_0$soc_ss_perceived_instru_0_love_inter  + soc_CLSA_cop_0$soc_ss_perceived_instru_0_sugg_inter +
                                                       soc_CLSA_cop_0$soc_ss_perceived_instru_0_enjoy_inter + soc_CLSA_cop_0$soc_ss_perceived_instru_0_prob_inter)

table(soc_CLSA_cop_0$soc_ss_Zscore_perceived_emo_0_inter) 

soc_CLSA_cop_0$soc_ss_Zscore_perceived_emo_0 <-as.numeric(scale(soc_CLSA_cop_0$soc_ss_Zscore_perceived_emo_0_inter, center = TRUE, scale= TRUE)) 

table(soc_CLSA_cop_0$soc_ss_Zscore_perceived_emo_0) 
summary(soc_CLSA_cop_0$soc_ss_Zscore_perceived_emo_0)

```
### **Variable label**: Perceived emotional support Z-score   
**Variable name**:   soc_ss_Zscore_perceived_emo_1      
**Variable description**:  Z-score of perceived emotional support.  
**Value type**:  decimal    
**Variable unit**:  
**Category coding**:  

**Harmonization status**:  complete          
**Harmonization comment**:  Caution in using this variable. Study specific items used are: SSA_LOVU_COF1 = Support availability by love and making participant feel wanted, SSA_SUGG_COM = Support availability for suggestions with a personal problem, SSA_ENJOY_COF1 = Support availability to do something enjoyable, SSA_PROBLM_COF1 = Support availability for understanding problems. The following approach was taken to derive the perceived emotional support Z-score. The response categories to these items are: none of the time (1), a little of the time (2), some of the time(3), most of the time(4) and all of the time(5).  The response to each of the four items were added and the z-score calculated from this sum.  Answer categories 'don't know' and 'refused' are categorized as missing.  
**R script**:  
```{r, echo=TRUE}
table(CoP_FU1$SSA_LOVU_COF1) 
table(CoP_FU1$SSA_SUGG_COF1) 
table(CoP_FU1$SSA_ENJOY_COF1) 
table(CoP_FU1$SSA_PROBLM_COF1) 

soc_CLSA_cop_1$soc_ss_perceived_instru_1_love_inter <- as.numeric(ifelse(CoP_FU1$SSA_LOVU_COF1<6,CoP_FU1$SSA_LOVU_COF1,NA))

table(soc_CLSA_cop_1$soc_ss_perceived_instru_1_love_inter) 

soc_CLSA_cop_1$soc_ss_perceived_instru_1_sugg_inter <- as.numeric(ifelse(CoP_FU1$SSA_SUGG_COF1<6,CoP_FU1$SSA_SUGG_COF1,NA))

table(soc_CLSA_cop_1$soc_ss_perceived_instru_1_sugg_inter) 

soc_CLSA_cop_1$soc_ss_perceived_instru_1_enjoy_inter <- as.numeric(ifelse(CoP_FU1$SSA_ENJOY_COF1<6,CoP_FU1$SSA_ENJOY_COF1,NA))

table(soc_CLSA_cop_1$soc_ss_perceived_instru_1_enjoy_inter) 

soc_CLSA_cop_1$soc_ss_perceived_instru_1_prob_inter <- as.numeric(ifelse(CoP_FU1$SSA_PROBLM_COF1<6,CoP_FU1$SSA_PROBLM_COF1,NA))

table(soc_CLSA_cop_1$soc_ss_perceived_instru_1_prob_inter) 


soc_CLSA_cop_1$soc_ss_Zscore_perceived_emo_1_inter <- (soc_CLSA_cop_1$soc_ss_perceived_instru_1_love_inter + soc_CLSA_cop_1$soc_ss_perceived_instru_1_sugg_inter +
                                                       soc_CLSA_cop_1$soc_ss_perceived_instru_1_enjoy_inter + soc_CLSA_cop_1$soc_ss_perceived_instru_1_prob_inter)

table(soc_CLSA_cop_1$soc_ss_Zscore_perceived_emo_1_inter) 

soc_CLSA_cop_1$soc_ss_Zscore_perceived_emo_1 <-as.numeric(scale(soc_CLSA_cop_1$soc_ss_Zscore_perceived_emo_1_inter, center = TRUE, scale= TRUE)) 

table(soc_CLSA_cop_1$soc_ss_Zscore_perceived_emo_1, useNA="always") 
summary(soc_CLSA_cop_1$soc_ss_Zscore_perceived_emo_1)

```
### **Variable label**: Perceived emotional support Z-score   
**Variable name**:   soc_ss_Zscore_perceived_emo_2      
**Variable description**: Z-score of perceived emotional support.   
**Value type**:  decimal    
**Variable unit**:  
**Category coding**:  

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Perceived emotional support Z-score   
**Variable name**:   soc_ss_Zscore_perceived_emo_3      
**Variable description**: Z-score of perceived emotional support.  
**Value type**:  decimal    
**Variable unit**:  
**Category coding**:  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Perceived emotional support Z-score   
**Variable name**:   soc_ss_Zscore_perceived_emo_4       
**Variable description**:  Z-score of perceived emotional support.  
**Value type**:  decimal    
**Variable unit**:  
**Category coding**:     

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Perceived emotional support Z-score   
**Variable name**:   soc_ss_Zscore_perceived_emo_5        
**Variable description**:  Z-score of perceived emotional support.  
**Value type**:  decimal    
**Variable unit**:  
**Category coding**:  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Perceived emotional support Z-score   
**Variable name**:   soc_ss_Zscore_perceived_emo_6        
**Variable description**:  Z-score of perceived emotional support.  
**Value type**:  decimal    
**Variable unit**:  
**Category coding**:  
 
**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Perceived instrumental support        
**Variable name**:   soc_ss_perceived_instru_0      
**Variable description**:  Indicator of perceived instrumental support, i.e. participant feels like there is someone to help with daily chores in case of need.          
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Feels tangible help is available  
1 |  Does not feel tangible help is available   

**Harmonization status**:  complete 
**Harmonization comment**:  Study specific variable SSA_CHORES_COM, identifies the support availability with daily chores. The response (to this item) 'none of the time' is catregorized as 'Does not feel tangible help is available'. The responses: a little of the time, some of the time, most of the time and all of the time, are coded as 'Feels tangible help is available'.   
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$SSA_CHORES_COM) 

soc_CLSA_cop_0$soc_ss_perceived_instru_0 <- ifelse(CoP4_Baseline$SSA_CHORES_COM==1,1L, 
                                            ifelse((CoP4_Baseline$SSA_CHORES_COM>= 2 & CoP4_Baseline$SSA_CHORES_COM <=5),0L, NA))

table(soc_CLSA_cop_0$soc_ss_perceived_instru_0) 
summary(soc_CLSA_cop_0$soc_ss_perceived_instru_0) 

```
### **Variable label**: Perceived instrumental support        
**Variable name**:   soc_ss_perceived_instru_1      
**Variable description**:  Indicator of perceived instrumental support, i.e. participant feels like there is someone to help with daily chores in case of need.        
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Feels tangible help is available  
1 |  Does not feel tangible help is available   

**Harmonization status**:  complete  
**Harmonization comment**:  Study specific variable SSA_CHORES_COF1, identifies the support availability with daily chores. The response (to this item) 'none of the time' is catregorized as 'Does not feel tangible help is available'. The responses: a little of the time, some of the time, most of the time and all of the time, are coded as 'Feels tangible help is available'.  
**R script**:  
```{r, echo=TRUE}

soc_CLSA_cop_1$soc_ss_perceived_instru_1 <- ifelse(CoP_FU1$SSA_CHORES_COF1==1,1L, 
                                            ifelse((CoP_FU1$SSA_CHORES_COF1>= 2 & CoP_FU1$SSA_CHORES_COF1 <=5),0L, NA))

table(soc_CLSA_cop_1$soc_ss_perceived_instru_1, useNA="always") 
summary(soc_CLSA_cop_1$soc_ss_perceived_instru_1) 
```
### **Variable label**: Perceived instrumental support        
**Variable name**:   soc_ss_perceived_instru_2      
**Variable description**:  Indicator of perceived instrumental support, i.e. participant feels like there is someone to help with daily chores in case of need.        
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Feels tangible help is available   
1 |  Does not feel tangible help is available   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Perceived instrumental support        
**Variable name**:   soc_ss_perceived_instru_3      
**Variable description**:  Indicator of perceived instrumental support, i.e. participant feels like there is someone to help with daily chores in case of need.       
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Feels tangible help is available   
1 |  Does not feel tangible help is available    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Perceived instrumental support        
**Variable name**:   soc_ss_perceived_instru_4      
**Variable description**:  Indicator of perceived instrumental support, i.e. participant feels like there is someone to help with daily chores in case of need.       
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Feels tangible help is available   
1 |  Does not feel tangible help is available  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Perceived instrumental support        
**Variable name**:   soc_ss_perceived_instru_5      
**Variable description**:  Indicator of perceived instrumental support, i.e. participant feels like there is someone to help with daily chores in case of need.       
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Feels tangible help is available   
1 |  Does not feel tangible help is available  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**: Perceived instrumental support        
**Variable name**:   soc_ss_perceived_instru_6      
**Variable description**:  Indicator of perceived instrumental support, i.e. participant feels like there is someone to help with daily chores in case of need.       
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Feels tangible help is available   
1 |  Does not feel tangible help is available   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```

# Social participation subdomain


### **Variable label**:  Religious participation 
**Variable name**:  soc_sp_religious_0        
**Variable description**:  Indicator of participation in a religious organization.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a religious organization   
1 |  Does participate in a religious organization 

**Harmonization status**:  impossible   
**Harmonization comment**:  Study specific variable asks 'In the past 12 months, how often did you participate in Church or religious activities such as services, committees or choirs'.   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Religious participation 
**Variable name**:  soc_sp_religious_1        
**Variable description**:  Indicator of participation in a religious organization.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a religious organization   
1 |  Does participate in a religious organization  

**Harmonization status**:  impossible   
**Harmonization comment**:  Study specific variable asks 'In the past 12 months, how often did you participate in Church or religious activities such as services, committees or choirs'.   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Religious participation 
**Variable name**:  soc_sp_religious_2        
**Variable description**:  Indicator of participation in a religious organization.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a religious organization   
1 |  Does participate in a religious organization 

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Religious participation 
**Variable name**:  soc_sp_religious_3        
**Variable description**:  Indicator of participation in a religious organization.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a religious organization   
1 |  Does participate in a religious organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Religious participation 
**Variable name**:  soc_sp_religious_4        
**Variable description**:  Indicator of participation in a religious organization.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a religious organization   
1 |  Does participate in a religious organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Religious participation 
**Variable name**:  soc_sp_religious_5        
**Variable description**:  Indicator of participation in a religious organization.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a religious organization   
1 |  Does participate in a religious organization  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Religious participation 
**Variable name**:  soc_sp_religious_6        
**Variable description**:  Indicator of participation in a religious organization.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a religious organization   
1 |  Does participate in a religious organization  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Frequency of religious participation 
**Variable name**:  soc_sp_freq_religious_0        
**Variable description**:  Indicator of the frequency of participation in a religious organization.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Weekly participation in religious organization 
2 |  Monthly participation in religious organization
3 |  Less than monthly participation in religious organization
4 |  Never participates in religious organization
5 |  No answer/don’t know regarding participation in religious organization

**Harmonization status**:  impossible    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Frequency of religious participation 
**Variable name**:  soc_sp_freq_religious_1        
**Variable description**:  Indicator of the frequency of participation in a religious organization.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Weekly participation in religious organization 
2 |  Monthly participation in religious organization
3 |  Less than monthly participation in religious organization
4 |  Never participates in religious organization
5 |  No answer/don’t know regarding participation in religious organization

**Harmonization status**:  impossible     
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
```
### **Variable label**:  Frequency of religious participation 
**Variable name**:  soc_sp_freq_religious_2        
**Variable description**:  Indicator of the frequency of participation in a religious organization.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Weekly participation in religious organization 
2 |  Monthly participation in religious organization
3 |  Less than monthly participation in religious organization
4 |  Never participates in religious organization
5 |  No answer/don’t know regarding participation in religious organization

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Frequency of religious participation 
**Variable name**:  soc_sp_freq_religious_3        
**Variable description**:  Indicator of the frequency of participation in a religious organization.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Weekly participation in religious organization 
2 |  Monthly participation in religious organization
3 |  Less than monthly participation in religious organization
4 |  Never participates in religious organization
5 |  No answer/don’t know regarding participation in religious organization

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Frequency of religious participation 
**Variable name**:  soc_sp_freq_religious_4        
**Variable description**:  Indicator of the frequency of participation in a religious organization.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Weekly participation in religious organization 
2 |  Monthly participation in religious organization
3 |  Less than monthly participation in religious organization
4 |  Never participates in religious organization
5 |  No answer/don’t know regarding participation in religious organization

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Frequency of religious participation 
**Variable name**:  soc_sp_freq_religious_5        
**Variable description**:  Indicator of the frequency of participation in a religious organization.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Weekly participation in religious organization 
2 |  Monthly participation in religious organization
3 |  Less than monthly participation in religious organization
4 |  Never participates in religious organization
5 |  No answer/don’t know regarding participation in religious organization

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Frequency of religious participation 
**Variable name**:  soc_sp_freq_religious_6        
**Variable description**:  Indicator of the frequency of participation in a religious organization.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Weekly participation in religious organization 
2 |  Monthly participation in religious organization
3 |  Less than monthly participation in religious organization
4 |  Never participates in religious organization
5 |  No answer/don’t know regarding participation in religious organization

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural and educational participation   
**Variable name**:  soc_sp_cultural_edu_0           
**Variable description**:  Indicator of whether the participant is a member of/participates in a group, club or activity related to education or culture.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural or educational organization  
1 |  Does participate in a cultural or educational organization 

**Harmonization status**:  complete 
**Harmonization comment**:  Study specific variable SPA_EDUC_COM, used asks about 'Frequency of participation in educational or cultural activities (past 12 months).' Answer category 'never' is coded as 'Does not participate in a cultural or educational organization.'    
**R script**:  
```{r, echo=TRUE}
#SPA_EDUC_COM 

table(CoP4_Baseline$SPA_EDUC_COM) 

soc_CLSA_cop_0$soc_sp_cultural_edu_0 <- ifelse(CoP4_Baseline$SPA_EDUC_COM ==5,0L, 
                                                  ifelse(CoP4_Baseline$SPA_EDUC_COM <5,1L,NA))
                                                           
table(soc_CLSA_cop_0$soc_sp_cultural_edu_0) 

```
### **Variable label**:  Cultural and educational participation   
**Variable name**:  soc_sp_cultural_edu_1           
**Variable description**:  Indicator of whether the participant is a member of/participates in a group, club or activity related to education or culture.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural or educational organization  
1 |  Does participate in a cultural or educational organization 

**Harmonization status**:  complete 
**Harmonization comment**:  Study specific variable SPA_EDUC_COF1, used asks about 'Frequency of participation in educational or cultural activities (past 12 months).' Answer category 'never' is coded as 'Does not participate in a cultural or educational organization.'    
**R script**:  
```{r, echo=TRUE}
table(CoP_FU1$SPA_EDUC_COF1) 

soc_CLSA_cop_1$soc_sp_cultural_edu_1 <- ifelse(CoP_FU1$SPA_EDUC_COF1 ==5,0L, 
                                                  ifelse(CoP_FU1$SPA_EDUC_COF1 <5,1L,NA))
                                                           
table(soc_CLSA_cop_1$soc_sp_cultural_edu_1) 

```
### **Variable label**:  Cultural and educational participation   
**Variable name**:  soc_sp_cultural_edu_2           
**Variable description**:  Indicator of whether the participant is a member of/participates in a group, club or activity related to education or culture.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural or educational organization  
1 |  Does participate in a cultural or educational organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural and educational participation   
**Variable name**:  soc_sp_cultural_edu_3           
**Variable description**:  Indicator of whether the participant is a member of/participates in a group, club or activity related to education or culture.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural or educational organization  
1 |  Does participate in a cultural or educational organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural and educational participation   
**Variable name**:  soc_sp_cultural_edu_4           
**Variable description**:  Indicator of whether the participant is a member of/participates in a group, club or activity related to education or culture.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural or educational organization  
1 |  Does participate in a cultural or educational organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural and educational participation   
**Variable name**:  soc_sp_cultural_edu_5           
**Variable description**:  Indicator of whether the participant is a member of/participates in a group, club or activity related to education or culture.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural or educational organization  
1 |  Does participate in a cultural or educational organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural and educational participation   
**Variable name**:  soc_sp_cultural_edu_6           
**Variable description**:  Indicator of whether the participant is a member of/participates in a group, club or activity related to education or culture.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural or educational organization  
1 |  Does participate in a cultural or educational organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural, educational and social participation    
**Variable name**:  soc_sp_cul_edu_soc_0                 
**Variable description**:  Indicator of whether the participant is a member of/ participates in a group, club or activity related to culture, educational or social activities.   
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural, educational or social organization  
1 |  Does participate in a cultural, educational or social organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural, educational and social participation       
**Variable name**:  soc_sp_cul_edu_soc_1                 
**Variable description**:  Indicator of whether the participant is a member of/ participates in a group, club or activity related to culture, educational or social activities.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural, educational or social organization  
1 |  Does participate in a cultural, educational or social organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural, educational and social participation       
**Variable name**:  soc_sp_cul_edu_soc_2                 
**Variable description**:  Indicator of whether the participant is a member of/ participates in a group, club or activity related to culture, educational or social activities.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural, educational or social organization  
1 |  Does participate in a cultural, educational or social organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural, educational and social participation       
**Variable name**:  soc_sp_cul_edu_soc_3               
**Variable description**:  Indicator of whether the participant is a member of/ participates in a group, club or activity related to culture, educational or social activities.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural, educational or social organization  
1 |  Does participate in a cultural, educational or social organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural, educational and social participation       
**Variable name**:  soc_sp_cul_edu_soc_4               
**Variable description**:  Indicator of whether the participant is a member of/ participates in a group, club or activity related to culture, educational or social activities.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural, educational or social organization  
1 |  Does participate in a cultural, educational or social organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural, educational and social participation       
**Variable name**:  soc_sp_cul_edu_soc_5               
**Variable description**:  Indicator of whether the participant is a member of/ participates in a group, club or activity related to culture, educational or social activities.     
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural, educational or social organization  
1 |  Does participate in a cultural, educational or social organization 

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Cultural, educational and social participation       
**Variable name**:  soc_sp_cul_edu_soc_6               
**Variable description**:  Indicator of whether the participant is a member of/ participates in a group, club or activity related to culture, educational or social activities.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a cultural, educational or social organization  
1 |  Does participate in a cultural, educational or social organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Volunteering      
**Variable name**:  soc_sp_volunteer_0                
**Variable description**:  Indicator of whether the participant takes part in volunteer activities including charity work or volunteer work in an association with a social aim.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in volunteer activities
1 |  Does take part in volunteer activities  

**Harmonization status**:  complete 
**Harmonization comment**:  Study specific variable SPA_VOLUN_COM, used asks about 'Frequency of participation in volunteer or charity work (past 12 months).' Answer category 'never' is coded as 'Does take part in volunteer activities.'   
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$SPA_VOLUN_COM) 

soc_CLSA_cop_0$soc_sp_volunteer_0 <- ifelse(CoP4_Baseline$SPA_VOLUN_COM ==5,0L, 
                                           ifelse(CoP4_Baseline$SPA_VOLUN_COM <5,1L,NA))

table(soc_CLSA_cop_0$soc_sp_volunteer_0) 

```
### **Variable label**:  Volunteering      
**Variable name**:  soc_sp_volunteer_1                
**Variable description**:  Indicator of whether the participant takes part in volunteer activities including charity work or volunteer work in an association with a social aim.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in volunteer activities
1 |  Does take part in volunteer activities  

**Harmonization status**:  complete 
**Harmonization comment**:  Study specific variable SPA_VOLUN_COF1, used asks about 'Frequency of participation in volunteer or charity work (past 12 months).' Answer category 'never' is coded as 'Does take part in volunteer activities.'   
**R script**:  
```{r, echo=TRUE}
soc_CLSA_cop_1$soc_sp_volunteer_1 <- ifelse(CoP_FU1$SPA_VOLUN_COF1 ==5,0L, 
                                           ifelse(CoP_FU1$SPA_VOLUN_COF1 <5,1L,NA))

table(soc_CLSA_cop_1$soc_sp_volunteer_1)
```
### **Variable label**:  Volunteering      
**Variable name**:  soc_sp_volunteer_2                
**Variable description**:  Indicator of whether the participant takes part in volunteer activities including charity work or volunteer work in an association with a social aim.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in volunteer activities
1 |  Does take part in volunteer activities  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Volunteering      
**Variable name**:  soc_sp_volunteer_3                
**Variable description**:  Indicator of whether the participant takes part in volunteer activities including charity work or volunteer work in an association with a social aim.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in volunteer activities
1 |  Does take part in volunteer activities 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Volunteering      
**Variable name**:  soc_sp_volunteer_4                
**Variable description**:  Indicator of whether the participant takes part in volunteer activities including charity work or volunteer work in an association with a social aim.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in volunteer activities
1 |  Does take part in volunteer activities 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Volunteering      
**Variable name**:  soc_sp_volunteer_5                
**Variable description**:  Indicator of whether the participant takes part in volunteer activities including charity work or volunteer work in an association with a social aim.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in volunteer activities
1 |  Does take part in volunteer activities 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Volunteering      
**Variable name**:  soc_sp_volunteer_6                
**Variable description**:  Indicator of whether the participant takes part in volunteer activities including charity work or volunteer work in an association with a social aim.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in volunteer activities
1 |  Does take part in volunteer activities 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Political / union participation         
**Variable name**:  soc_sp_pol_0                
**Variable description**:  Indicator of participation in a union or political party.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a union or political party     
1 |  Does participate in a union or political party     

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Political / union participation         
**Variable name**:  soc_sp_pol_1                
**Variable description**:  Indicator of participation in a union or political party.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a union or political party     
1 |  Does participate in a union or political party     

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
 

```
### **Variable label**:  Political / union participation         
**Variable name**:  soc_sp_pol_2                
**Variable description**:  Indicator of participation in a union or political party.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a union or political party     
1 |  Does participate in a union or political party     

**Harmonization status**:  impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
 

```
### **Variable label**:  Political / union participation         
**Variable name**:  soc_sp_pol_3                
**Variable description**:  Indicator of participation in a union or political party.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a union or political party     
1 |  Does participate in a union or political party     

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
 

```
### **Variable label**:  Political / union participation         
**Variable name**:  soc_sp_pol_4                
**Variable description**:  Indicator of participation in a union or political party.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a union or political party     
1 |  Does participate in a union or political party    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
 

```
### **Variable label**:  Political / union participation         
**Variable name**:  soc_sp_pol_5                
**Variable description**:  Indicator of participation in a union or political party.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a union or political party     
1 |  Does participate in a union or political party    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Political / union participation         
**Variable name**:  soc_sp_pol_6                
**Variable description**:  Indicator of participation in a union or political party.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in a union or political party     
1 |  Does participate in a union or political party    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Professional participation         
**Variable name**:  soc_sp_prof_0                
**Variable description**:  Indicator of participation in a professional association, including a union or neighbourhood association.  
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in an union, professional or neighbourhood organization   
1 |  Does participate in an union, professional or neighbourhood organization  

**Harmonization status**:  complete  
**Harmonization comment**:  Study specific variable SPA_NEIBR_COM, used asks about 'Frequency of participation in neighbourhood, community or professional association activities (past 12 months).' Answer category 'never' is coded as 'Does not participate in an union, professional or neighbourhood organization.' 
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$SPA_NEIBR_COM) 

soc_CLSA_cop_0$soc_sp_prof_0 <- ifelse(CoP4_Baseline$SPA_NEIBR_COM ==5,0L, 
                                           ifelse(CoP4_Baseline$SPA_NEIBR_COM <5,1L,NA))

table(soc_CLSA_cop_0$soc_sp_prof_0) 
summary(soc_CLSA_cop_0$soc_sp_prof_0) 

```
### **Variable label**:  Professional participation         
**Variable name**:  soc_sp_prof_1                
**Variable description**:  Indicator of participation in a professional association, including a union or neighbourhood association.  
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in an union, professional or neighbourhood organization   
1 |  Does participate in an union, professional or neighbourhood organization  

**Harmonization status**:  complete 
**Harmonization comment**:  Study specific variable used SPA_NEIBR_COF1, asks about 'Frequency of participation in neighbourhood, community or professional association activities (past 12 months).' Answer category 'never' is coded as 'Does not participate in an union, professional or neighbourhood organization.'      
**R script**:  
```{r, echo=TRUE}
table(CoP_FU1$SPA_NEIBR_COF1) 

soc_CLSA_cop_1$soc_sp_prof_1 <- ifelse(CoP_FU1$SPA_NEIBR_COF1 ==5,0L, 
                                           ifelse(CoP_FU1$SPA_NEIBR_COF1 <5,1L,NA))

table(soc_CLSA_cop_1$soc_sp_prof_1) 
summary(soc_CLSA_cop_1$soc_sp_prof_1) 

```
### **Variable label**:  Professional participation         
**Variable name**:  soc_sp_prof_2                
**Variable description**:  Indicator of participation in a professional association, including a union or neighbourhood association.  
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in an union, professional or neighbourhood organization  
1 |  Does participate in an union, professional or neighbourhood organization 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Professional participation         
**Variable name**:  soc_sp_prof_3                
**Variable description**:  Indicator of participation in a professional association, including a union or neighbourhood association.  
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in an union, professional or neighbourhood organization   
1 |  Does participate in an union, professional or neighbourhood organization  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Professional participation         
**Variable name**:  soc_sp_prof_4                
**Variable description**:  Indicator of participation in a professional association, including a union or neighbourhood association.  
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in an union, professional or neighbourhood organization   
1 |  Does participate in an union, professional or neighbourhood organization   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Professional participation         
**Variable name**:  soc_sp_prof_5                
**Variable description**:  Indicator of participation in a professional association, including a union or neighbourhood association.  
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in an union, professional or neighbourhood organization   
1 |  Does participate in an union, professional or neighbourhood organization   

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Professional participation         
**Variable name**:  soc_sp_prof_6                
**Variable description**:  Indicator of participation in a professional association, including a union or neighbourhood association.  
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not participate in an union, professional or neighbourhood organization  
1 |  Does participate in an union, professional or neighbourhood organization   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  General social participation          
**Variable name**:  soc_sp_general_0                
**Variable description**:  Indicator of participation in a religious, cultural, educational, civic, political, social/charity work association and/or volunteering.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in a social organization/volunteers   
1 |  Does take part in a social organization/volunteers   

**Harmonization status**:  complete    
**Harmonization comment**:   Dataschemas pertaining to participation (religious, cultural, educational, neighbourhood association and/or volunteering) were used to harmonize this variable.  
**R script**:  
```{r, echo=TRUE}
soc_CLSA_cop_0$soc_sp_general_0 <- ifelse(soc_CLSA_cop_0$soc_sp_prof_0 =='1' |  soc_CLSA_cop_0$soc_sp_volunteer_0 =='1' |  
                                          soc_CLSA_cop_0$soc_sp_cultural_edu_0 =='1' | soc_CLSA_cop_0$soc_sp_religious_0 =='1',1L, 
                                                  ifelse(soc_CLSA_cop_0$soc_sp_prof_0 =='0'& soc_CLSA_cop_0$soc_sp_volunteer_0 =='0' &
                                                          soc_CLSA_cop_0$soc_sp_cultural_edu_0 =='0' & soc_CLSA_cop_0$soc_sp_religious_0 =='0',0L, NA))

table(soc_CLSA_cop_0$soc_sp_general_0) 

```
### **Variable label**:  General social participation            
**Variable name**:  soc_sp_general_1                
**Variable description**:  Indicator of participation in a religious, cultural, educational, civic, political, social/charity work association and/or volunteering.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in a social organization/volunteers     
1 |  Does take part in a social organization/volunteers       

**Harmonization status**:  complete    
**Harmonization comment**:   Dataschemas pertaining to participation (religious, cultural, educational, neighbourhood association and/or volunteering) were used to harmonize this variable.    
**R script**:  
```{r, echo=TRUE}
soc_CLSA_cop_1$soc_sp_general_1 <- ifelse(soc_CLSA_cop_1$soc_sp_prof_1 =='1' |  soc_CLSA_cop_1$soc_sp_volunteer_1 =='1' |  
                                          soc_CLSA_cop_1$soc_sp_cultural_edu_1 =='1' | soc_CLSA_cop_1$soc_sp_religious_1 =='1',1L, 
                                                  ifelse(soc_CLSA_cop_1$soc_sp_prof_1 =='0'& soc_CLSA_cop_1$soc_sp_volunteer_1 =='0' &
                                                          soc_CLSA_cop_1$soc_sp_cultural_edu_1 =='0' & soc_CLSA_cop_1$soc_sp_religious_1 =='0',0L, NA))

table(soc_CLSA_cop_1$soc_sp_general_1) 

```
### **Variable label**:  General social participation          
**Variable name**:  soc_sp_general_2                
**Variable description**:  Indicator of participation in a religious, cultural, educational, civic, political, social/charity work association and/or volunteering.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in a social organization/volunteers     
1 |  Does take part in a social organization/volunteers     

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  General social participation          
**Variable name**:  soc_sp_general_3                
**Variable description**:  Indicator of participation in a religious, cultural, educational, civic, political, social/charity work association and/or volunteering.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in a social organization/volunteers     
1 |  Does take part in a social organization/volunteers       

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  General social participation          
**Variable name**:  soc_sp_general_4                
**Variable description**:  Indicator of participation in a religious, cultural, educational, civic, political, social/charity work association and/or volunteering.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in a social organization/volunteers     
1 |  Does take part in a social organization/volunteers     

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  General social participation          
**Variable name**:  soc_sp_general_5                
**Variable description**:  Indicator of participation in a religious, cultural, educational, civic, political, social/charity work association and/or volunteering.        
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in a social organization/volunteers     
1 |  Does take part in a social organization/volunteers    

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  General social participation          
**Variable name**:  soc_sp_general_6                
**Variable description**:  Indicator of participation in a religious, cultural, educational, civic, political, social/charity work association and/or volunteering.      
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not take part in a social organization/volunteers     
1 |  Does take part in a social organization/volunteers    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Non participation due to safety       
**Variable name**:  soc_sp_nosafety_0                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to safety concerns.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Safety concerns did not affect participation  
1 |  Did not participate due to safety concerns   

**Harmonization status**:  complete  
**Harmonization comment**:  SPA_PREVAC_AF_COM 
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$SPA_PREVAC_AF_COM) 

soc_CLSA_cop_0$soc_sp_nosafety_0 <- ifelse(CoP4_Baseline$SPA_PREVAC_AF_COM ==1,1L, 
                                           ifelse(CoP4_Baseline$SPA_PREVAC_AF_COM ==0,0L,NA))

table(soc_CLSA_cop_0$soc_sp_nosafety_0) 

```
### **Variable label**:  Non participation due to safety       
**Variable name**:  soc_sp_nosafety_1                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to safety concerns.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Safety concerns did not affect participation  
1 |  Did not participate due to safety concerns   

**Harmonization status**:  complete  
**Harmonization comment**: SPA_PREVAC_AF_COF1  
**R script**:  
```{r, echo=TRUE}
table(CoP_FU1$SPA_PREVAC_AF_COF1) 

soc_CLSA_cop_1$soc_sp_nosafety_1 <- ifelse(CoP_FU1$SPA_PREVAC_AF_COF1 ==1,1L, 
                                           ifelse(CoP_FU1$SPA_PREVAC_AF_COF1 ==0,0L,NA))

table(soc_CLSA_cop_1$soc_sp_nosafety_1) 

```
### **Variable label**:  Non participation due to safety       
**Variable name**:  soc_sp_nosafety_2                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to safety concerns.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Safety concerns did not affect participation  
1 |  Did not participate due to safety concerns   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Non participation due to safety       
**Variable name**:  soc_sp_nosafety_3                   
**Variable description**:  Indicator of whether the participant did not participate in social activities due to safety concerns.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Safety concerns did not affect participation  
1 |  Did not participate due to safety concerns   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Non participation due to safety       
**Variable name**:  soc_sp_nosafety_4                    
**Variable description**:  Indicator of whether the participant did not participate in social activities due to safety concerns.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Safety concerns did not affect participation  
1 |  Did not participate due to safety concerns   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Non participation due to safety       
**Variable name**:  soc_sp_nosafety_5                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to safety concerns.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Safety concerns did not affect participation  
1 |  Did not participate due to safety concerns   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Non participation due to safety       
**Variable name**:  soc_sp_nosafety_6                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to safety concerns.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Safety concerns did not affect participation  
1 |  Did not participate due to safety concerns   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Non participation due to lack of transportation      
**Variable name**:  soc_sp_notrans_0                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to transport issues.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lack of transportation did not affect participation
1 |  Did not participate due to lack of transportation   

**Harmonization status**:  complete  
**Harmonization comment**:   SPA_PREVAC_TP_COM
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$SPA_PREVAC_TP_COM) 

soc_CLSA_cop_0$soc_sp_notrans_0 <- ifelse(CoP4_Baseline$SPA_PREVAC_TP_COM ==1,1L, 
                                           ifelse(CoP4_Baseline$SPA_PREVAC_TP_COM ==0,0L,NA))

table(soc_CLSA_cop_0$soc_sp_notrans_0) 
summary(soc_CLSA_cop_0$soc_sp_notrans_0) 
```
### **Variable label**:  Non participation due to lack of transportation      
**Variable name**:  soc_sp_notrans_1                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to transport issues.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lack of transportation did not affect participation
1 |  Did not participate due to lack of transportation   

**Harmonization status**:  complete  
**Harmonization comment**:   SPA_PREVAC_TP_COF1
**R script**:  
```{r, echo=TRUE}
table(CoP_FU1$SPA_PREVAC_TP_COF1) 

soc_CLSA_cop_1$soc_sp_notrans_1 <- ifelse(CoP_FU1$SPA_PREVAC_TP_COF1 ==1,1L, 
                                           ifelse(CoP_FU1$SPA_PREVAC_TP_COF1 ==0,0L,NA))

table(soc_CLSA_cop_1$soc_sp_notrans_1) 
summary(soc_CLSA_cop_1$soc_sp_notrans_1) 
```
### **Variable label**:  Non participation due to lack of transportation      
**Variable name**:  soc_sp_notrans_2                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to transport issues.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lack of transportation did not affect participation
1 |  Did not participate due to lack of transportation   

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Non participation due to lack of transportation      
**Variable name**:  soc_sp_notrans_3                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to transport issues.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lack of transportation did not affect participation
1 |  Did not participate due to lack of transportation   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Non participation due to lack of transportation      
**Variable name**:  soc_sp_notrans_4                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to transport issues.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lack of transportation did not affect participation
1 |  Did not participate due to lack of transportation   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Non participation due to lack of transportation      
**Variable name**:  soc_sp_notrans_5                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to transport issues.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lack of transportation did not affect participation
1 |  Did not participate due to lack of transportation   

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Non participation due to lack of transportation      
**Variable name**:  soc_sp_notrans_6                  
**Variable description**:  Indicator of whether the participant did not participate in social activities due to transport issues.       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lack of transportation did not affect participation
1 |  Did not participate due to lack of transportation   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Hobby      
**Variable name**:  soc_sp_hobby_0                       
**Variable description**:  Indicator of whether the participant has a hobby.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not have a hobby
1 |  Does have a hobby  

**Harmonization status**:  complete  
**Harmonization comment**: SPA_SOAC_HY_COM  
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$SPA_SOAC_HY_COM) 

soc_CLSA_cop_0$soc_sp_hobby_0 <- ifelse(CoP4_Baseline$SPA_SOAC_HY_COM ==1,1L, 
                                           ifelse(CoP4_Baseline$SPA_SOAC_HY_COM ==0,0L,NA))

table(soc_CLSA_cop_0$soc_sp_hobby_0) 
summary(soc_CLSA_cop_0$soc_sp_hobby_0) 
```
### **Variable label**:  Hobby      
**Variable name**:  soc_sp_hobby_1                       
**Variable description**:  Indicator of whether the participant has a hobby.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not have a hobby
1 |  Does have a hobby   

**Harmonization status**:  complete  
**Harmonization comment**:   SPA_SOAC_HY_COF1
**R script**:  
```{r, echo=TRUE}
table(CoP_FU1$SPA_SOAC_HY_COF1) 

soc_CLSA_cop_1$soc_sp_hobby_1 <- ifelse(CoP_FU1$SPA_SOAC_HY_COF1 ==1,1L, 
                                           ifelse(CoP_FU1$SPA_SOAC_HY_COF1 ==0,0L,NA))

table(soc_CLSA_cop_1$soc_sp_hobby_1) 
summary(soc_CLSA_cop_1$soc_sp_hobby_1)
```
### **Variable label**:  Hobby      
**Variable name**:  soc_sp_hobby_2                       
**Variable description**:  Indicator of whether the participant has a hobby.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not have a hobby
1 |  Does have a hobby  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Hobby      
**Variable name**:  soc_sp_hobby_3                       
**Variable description**:  Indicator of whether the participant has a hobby.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not have a hobby
1 |  Does have a hobby  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Hobby      
**Variable name**:  soc_sp_hobby_4                       
**Variable description**:  Indicator of whether the participant has a hobby.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not have a hobby
1 |  Does have a hobby 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Hobby      
**Variable name**:  soc_sp_hobby_5                       
**Variable description**:  Indicator of whether the participant has a hobby.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not have a hobby
1 |  Does have a hobby  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Hobby      
**Variable name**:  soc_sp_hobby_6                       
**Variable description**:  Indicator of whether the participant has a hobby.         
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not have a hobby
1 |  Does have a hobby 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```

### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_0  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no members in social network and no participation in an association (any type, including religious organization).       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Not socially isolated, has social network and/ or social participation 
1 |  Socially isolated, no social network and no social participation 

**Harmonization status**:  impossible    
**Harmonization comment**:  
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_1  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no members in social network and no participation in an association (any type, including religious organization).       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Not socially isolated, has social network and/ or social participation 
1 |  Socially isolated, no social network and no social participation 

**Harmonization status**:  impossible   
**Harmonization comment**:  
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_2  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no members in social network and no participation in an association (any type, including religious organization).       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Not socially isolated, has social network and/ or social participation 
1 |  Socially isolated, no social network and no social participation 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_3  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no members in social network and no participation in an association (any type, including religious organization).       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Not socially isolated, has social network and/ or social participation 
1 |  Socially isolated, no social network and no social participation 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_4  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no members in social network and no participation in an association (any type, including religious organization).       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Not socially isolated, has social network and/ or social participation 
1 |  Socially isolated, no social network and no social participation 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_5  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no members in social network and no participation in an association (any type, including religious organization).       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Not socially isolated, has social network and/ or social participation 
1 |  Socially isolated, no social network and no social participation 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_6  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no members in social network and no participation in an association (any type, including religious organization).       
**Value type**:  integer  
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Not socially isolated, has social network and/ or social participation 
1 |  Socially isolated, no social network and no social participation 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```

# Major life events subdomain

### **Variable label**:  Life event: victim     
**Variable name**:  soc_le_vic_0         
**Variable description**:   Indicator of whether the participant experienced being the victim of a crime (i.e. theft, assault) in the past few years.     
**Value type**:  integer    
**Variable unit**:      
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience being the victim of a crime
1 |  Did experience being the victim of a crime 

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: victim     
**Variable name**:  soc_le_vic_1         
**Variable description**:   Indicator of whether the participant experienced being the victim of a crime (i.e. theft, assault) in the past few years.     
**Value type**:  integer    
**Variable unit**:      
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience being the victim of a crime
1 |  Did experience being the victim of a crime 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: victim     
**Variable name**:  soc_le_vic_2         
**Variable description**:   Indicator of whether the participant experienced being the victim of a crime (i.e. theft, assault) in the past few years.     
**Value type**:  integer    
**Variable unit**:      
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience being the victim of a crime
1 |  Did experience being the victim of a crime 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: victim     
**Variable name**:  soc_le_vic_3         
**Variable description**:   Indicator of whether the participant experienced being the victim of a crime (i.e. theft, assault) in the past few years.     
**Value type**:  integer    
**Variable unit**:      
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience being the victim of a crime
1 |  Did experience being the victim of a crime 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: victim     
**Variable name**:  soc_le_vic_4         
**Variable description**:   Indicator of whether the participant experienced being the victim of a crime (i.e. theft, assault) in the past few years.     
**Value type**:  integer    
**Variable unit**:    
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience being the victim of a crime
1 |  Did experience being the victim of a crime 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: victim     
**Variable name**:  soc_le_vic_5         
**Variable description**:   Indicator of whether the participant experienced being the victim of a crime (i.e. theft, assault) in the past few years.     
**Value type**:  integer    
**Variable unit**:      
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience being the victim of a crime
1 |  Did experience being the victim of a crime 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: victim     
**Variable name**:  soc_le_vic_6         
**Variable description**:   Indicator of whether the participant experienced being the victim of a crime (i.e. theft, assault) in the past few years.     
**Value type**:  integer    
**Variable unit**:     
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience being the victim of a crime
1 |  Did experience being the victim of a crime 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: financial problems      
**Variable name**:  soc_le_fprob_0             
**Variable description**:  Indicator of whether the participant experienced financial problems in the past few years.        
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience financial problems
1 |  Did experience financial problems  

**Harmonization status**:  impossible    
**Harmonization comment**:   Study-specific variable WEA_FNSTATUS_MCQ, is an indicator of whether the participant and their partner/spouse are getting along financially these days.  
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: financial problems      
**Variable name**:  soc_le_fprob_1             
**Variable description**:  Indicator of whether the participant experienced financial problems in the past few years.        
**Value type**:  integer      
**Variable unit**:       
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience financial problems
1 |  Did experience financial problems    

**Harmonization status**:  impossible  
**Harmonization comment**:  Study-specific variable WEA_FNSTATUS_COF1, is an indicator of participant and their partner/spouse's financial situation.  
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: financial problems      
**Variable name**:  soc_le_fprob_2             
**Variable description**:  Indicator of whether the participant experienced financial problems in the past few years.        
**Value type**:  integer      
**Variable unit**:         
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience financial problems
1 |  Did experience financial problems   

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: financial problems      
**Variable name**:  soc_le_fprob_3             
**Variable description**:  Indicator of whether the participant experienced financial problems in the past few years.        
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience financial problems
1 |  Did experience financial problems   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: financial problems      
**Variable name**:  soc_le_fprob_4             
**Variable description**:  Indicator of whether the participant experienced financial problems in the past few years.        
**Value type**:  integer      
**Variable unit**:       
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience financial problems
1 |  Did experience financial problems   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: financial problems      
**Variable name**:  soc_le_fprob_5             
**Variable description**:  Indicator of whether the participant experienced financial problems in the past few years.        
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience financial problems
1 |  Did experience financial problems    

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: financial problems      
**Variable name**:  soc_le_fprob_6             
**Variable description**:  Indicator of whether the participant experienced financial problems in the past few years.        
**Value type**:  integer      
**Variable unit**:       
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience financial problems
1 |  Did experience financial problems    

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: relationship problems        
**Variable name**:  soc_le_rprob_0             
**Variable description**:  Indicator of whether the participant experienced relationship problems in the past few years.          
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience relationship problems
1 |  Did experience relationship problems

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: relationship problems        
**Variable name**:  soc_le_rprob_1             
**Variable description**:  Indicator of whether the participant experienced relationship problems in the past few years.          
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience relationship problems
1 |  Did experience relationship problems

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: relationship problems        
**Variable name**:  soc_le_rprob_2             
**Variable description**:  Indicator of whether the participant experienced relationship problems in the past few years.          
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience relationship problems
1 |  Did experience relationship problems  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: divorce/relationship breakup           
**Variable name**:  soc_le_divorce_0             
**Variable description**:  Indicator of the occurrence of divorce/relationship breakup in the past few years.         
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not divorce/ have relationship breakup
1 |  Did divorce/ had relationship breakup  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: divorce/relationship breakup           
**Variable name**:  soc_le_divorce_1             
**Variable description**:  Indicator of the occurrence of divorce/relationship breakup in the past few years.         
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not divorce/ have relationship breakup
1 |  Did divorce/ had relationship breakup  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: divorce/relationship breakup           
**Variable name**:  soc_le_divorce_2             
**Variable description**:  Indicator of the occurrence of divorce/relationship breakup in the past few years.         
**Value type**:  integer      
**Variable unit**:         
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not divorce/ have relationship breakup
1 |  Did divorce/ had relationship breakup  

**Harmonization status**: impossible    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: illness of family member             
**Variable name**:  soc_le_illfam_0                      
**Variable description**:  Indicator of whether the participant experienced the illness of family member (including partner) in the past few years.         
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience illness of family member 
1 |  Did experience illness of family member 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: illness of family member             
**Variable name**:  soc_le_illfam_1                      
**Variable description**:  Indicator of whether the participant experienced the illness of family member (including partner) in the past few years.         
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience illness of family member 
1 |  Did experience illness of family member 

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: illness of family member             
**Variable name**:  soc_le_illfam_2                      
**Variable description**:  Indicator of whether the participant experienced the illness of family member (including partner) in the past few years.         
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience illness of family member 
1 |  Did experience illness of family member 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: illness of family member             
**Variable name**:  soc_le_illfam_3                      
**Variable description**:  Indicator of whether the participant experienced the illness of family member (including partner) in the past few years.         
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience illness of family member 
1 |  Did experience illness of family member 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: illness of family member             
**Variable name**:  soc_le_illfam_4                      
**Variable description**:  Indicator of whether the participant experienced the illness of family member (including partner) in the past few years.         
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience illness of family member 
1 |  Did experience illness of family member 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: illness of family member             
**Variable name**:  soc_le_illfam_5                      
**Variable description**:  Indicator of whether the participant experienced the illness of family member (including partner) in the past few years.         
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience illness of family member 
1 |  Did experience illness of family member 

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: illness of family member             
**Variable name**:  soc_le_illfam_6                      
**Variable description**:  Indicator of whether the participant experienced the illness of family member (including partner) in the past few years.         
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience illness of family member 
1 |  Did experience illness of family member 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: death of partner             
**Variable name**:  soc_le_dpart_0                                           
**Variable description**:  Indicator of whether the participant experienced the death of partner/spouse in the past few years.      
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience death of partner/spouse
1 |  Did experience death of partner/spouse 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: death of partner             
**Variable name**:  soc_le_dpart_1                                           
**Variable description**:  Indicator of whether the participant experienced the death of partner/spouse in the past few years.         
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience death of partner/spouse
1 |  Did experience death of partner/spouse 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: death of partner             
**Variable name**:  soc_le_dpart_2                                           
**Variable description**:  Indicator of whether the participant experienced the death of partner/spouse in the past few years.         
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience death of partner/spouse
1 |  Did experience death of partner/spouse 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: death of family member or friend                
**Variable name**:  soc_le_dfam_0                                           
**Variable description**:  Indicator of whether the participant experienced the death of a child/family member/friend in the past few years.           
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience death of child/family member/friend  
1 |  Did experience death of child/family member/friend  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: death of family member or friend                
**Variable name**:  soc_le_dfam_1                                           
**Variable description**:  Indicator of whether the participant experienced the death of a child/family member/friend in the past few years.           
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience death of child/family member/friend  
1 |  Did experience death of child/family member/friend   

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Life event: death of family member or friend                
**Variable name**:  soc_le_dfam_2                                           
**Variable description**:  Indicator of whether the participant experienced the death of a child/family member/friend in the past few years.           
**Value type**:  integer      
**Variable unit**:        
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Did not experience death of child/family member/friend  
1 |  Did experience death of child/family member/friend  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
# Residential characteristics subdomain

### **Variable label**:  Residential stability in neighbourhood (individual - level)  
**Variable name**:  soc_res_num_yrsnbh_0        
**Variable description**:  Number of years that the participant has lived in the neighbourhood.  
**Value type**:  integer  
**Variable unit**:  years   
**Category coding**:  

**Harmonization status**:  complete   
**Harmonization comment**:   TRA_LVCMNTY_YR_MCQ
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$TRA_LVCMNTY_YR_MCQ> CoP4_Baseline$AGE_NMBR_COM) 
table(CoP4_Baseline$TRA_LVCMNTY_YR_MCQ[CoP4_Baseline$TRA_LVCMNTY_YR_MCQ> CoP4_Baseline$AGE_NMBR_COM],
      CoP4_Baseline$AGE_NMBR_COM[CoP4_Baseline$TRA_LVCMNTY_YR_MCQ> CoP4_Baseline$AGE_NMBR_COM]) 
table(CoP4_Baseline$TRA_LVCMNTY_YR_MCQ)
soc_CLSA_cop_0$soc_res_num_yrsnbh_0 <- ifelse(CoP4_Baseline$TRA_LVCMNTY_YR_MCQ< CoP4_Baseline$AGE_NMBR_COM, CoP4_Baseline$TRA_LVCMNTY_YR_MCQ, NA) 

table(soc_CLSA_cop_0$soc_res_num_yrsnbh_0) 

```
### **Variable label**:  Residential stability in neighbourhood (individual - level)  
**Variable name**:  soc_res_num_yrsnbh_1          
**Variable description**:  Number of years that the participant has lived in the neighbourhood.  
**Value type**:  integer  
**Variable unit**:  years   
**Category coding**:  

**Harmonization status**: complete   
**Harmonization comment**:  TRA_LVCMNTY_YR_COF1 
**R script**:  
```{r, echo=TRUE}
MyMerge <- function(x,y){
  merge(x,y, by= c("id"),all=TRUE)
}
soc_table <- Reduce(MyMerge, list(CoP4_Baseline, CoP_FU1))

table( CoP_FU1$TRA_LVCMNTY_YR_COF1)
table(soc_table$TRA_LVCMNTY_YR_COF1> soc_table$AGE_NMBR_COM+4) 

soc_table$soc_res_num_yrsnbh_1 <- ifelse(soc_table$TRA_LVCMNTY_YR_COF1< soc_table$AGE_NMBR_COM+4, soc_table$TRA_LVCMNTY_YR_COF1,NA) 

soc_CLSA_cop_1<-merge(soc_CLSA_cop_1,soc_table[,c("id","soc_res_num_yrsnbh_1")],by="id",all.x=TRUE)

table(soc_CLSA_cop_1$soc_res_num_yrsnbh_1) 
summary(soc_CLSA_cop_1$soc_res_num_yrsnbh_1) 
```
### **Variable label**:  Residential stability in neighbourhood (individual - level)  
**Variable name**:  soc_res_num_yrsnbh_2          
**Variable description**:  Number of years that the participant has lived in the neighbourhood.  
**Value type**:  integer  
**Variable unit**: years    
**Category coding**:  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential stability in neighbourhood (individual - level)  
**Variable name**:  soc_res_num_yrsnbh_3          
**Variable description**:  Number of years that the participant has lived in the neighbourhood.  
**Value type**:  integer  
**Variable unit**:  years   
**Category coding**:  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential stability in neighbourhood (individual - level)  
**Variable name**:  soc_res_num_yrsnbh_4          
**Variable description**:  Number of years that participant has lived in the neighbourhood.  
**Value type**:  integer  
**Variable unit**:  years   
**Category coding**:  

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential stability in neighbourhood (individual - level)  
**Variable name**:  soc_res_num_yrsnbh_5          
**Variable description**:  Number of years that participant has lived in the neighbourhood.  
**Value type**:  integer  
**Variable unit**:  years   
**Category coding**:  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential stability in neighbourhood (individual - level)  
**Variable name**:  soc_res_num_yrsnbh_6          
**Variable description**:  Number of years that participant has lived in the neighbourhood.  
**Value type**:  integer  
**Variable unit**: years    
**Category coding**:  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential stability in home (individual - level)
**Variable name**:  soc_res_num_yrshome_0          
**Variable description**:  Number of years that participant has lived in current home/address.    
**Value type**:  integer  
**Variable unit**: years    
**Category coding**:   

**Harmonization status**:  complete  
**Harmonization comment**: TRA_LVDHM_YR_MCQ  
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$TRA_LVDHM_YR_MCQ)   

table(CoP4_Baseline$TRA_LVDHM_YR_MCQ> CoP4_Baseline$AGE_NMBR_COM) 
table(CoP4_Baseline$TRA_LVDHM_YR_MCQ[CoP4_Baseline$TRA_LVDHM_YR_MCQ> CoP4_Baseline$AGE_NMBR_COM],
      CoP4_Baseline$AGE_NMBR_COM[CoP4_Baseline$TRA_LVDHM_YR_MCQ> CoP4_Baseline$AGE_NMBR_COM]) 
table(CoP4_Baseline$TRA_LVCMNTY_YR_MCQ)



soc_CLSA_cop_0$soc_res_num_yrshome_0 <- as.integer(CoP4_Baseline$TRA_LVDHM_YR_MCQ) 

table(soc_CLSA_cop_0$soc_res_num_yrshome_0) 

```
### **Variable label**:  Residential stability in home (individual - level)
**Variable name**:  soc_res_num_yrshome_1          
**Variable description**:  Number of years that participant has lived in current home/address.    
**Value type**:  integer  
**Variable unit**:  years   
**Category coding**:    

**Harmonization status**:  complete  
**Harmonization comment**:   TRA_LVDHM_YR_COF1  
**R script**:  
```{r, echo=TRUE}
table(CoP_FU1$TRA_LVDHM_YR_COF1)  
table(soc_table$TRA_LVDHM_YR_COF1>soc_table$AGE_NMBR_COM+3)

soc_CLSA_cop_1$soc_res_num_yrshome_1 <- as.integer(CoP_FU1$TRA_LVDHM_YR_COF1) 

table(soc_CLSA_cop_1$soc_res_num_yrshome_1) 
```
### **Variable label**:  Residential stability in home (individual - level)
**Variable name**:  soc_res_num_yrshome_2          
**Variable description**:  Number of years that participant has lived in current home/address.    
**Value type**:  integer  
**Variable unit**:  years   
**Category coding**:  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential stability in home (individual - level)
**Variable name**:  soc_res_num_yrshome_3          
**Variable description**:  Number of years that participant has lived in current home/address.    
**Value type**:  integer  
**Variable unit**: years    
**Category coding**:  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential stability in home (individual - level)
**Variable name**:  soc_res_num_yrshome_4          
**Variable description**:  Number of years that participant has lived in current home/address.    
**Value type**:  integer  
**Variable unit**: years    
**Category coding**:  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential stability in home (individual - level)
**Variable name**:  soc_res_num_yrshome_5          
**Variable description**:  Number of years that participant has lived in current home/address.    
**Value type**:  integer  
**Variable unit**: years    
**Category coding**:  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential stability in home (individual - level)
**Variable name**:  soc_res_num_yrshome_6          
**Variable description**: Number of years that participant has lived in current home/address.    
**Value type**:  integer  
**Variable unit**:  years   
**Category coding**:  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Neighbourhood satisfaction   
**Variable name**:  soc_res_satis_0             
**Variable description**:  Indicator of whether the participant desires to move away from their current neighbourhood.      
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not want to move out of neighbourhood
1 |  Does want to move out of neighbourhood

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Neighbourhood satisfaction   
**Variable name**:  soc_res_satis_1             
**Variable description**:  Indicator of whether the participant desires to move away from their current neighbourhood.      
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not want to move out of neighbourhood
1 |  Does want to move out of neighbourhood

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Neighbourhood satisfaction   
**Variable name**:  soc_res_satis_2             
**Variable description**:  Indicator of whether the participant desires to move away from their current neighbourhood.      
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not want to move out of neighbourhood
1 |  Does want to move out of neighbourhood

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Neighbourhood satisfaction   
**Variable name**:  soc_res_satis_3             
**Variable description**:  Indicator of whether the participant desires to move away from their current neighbourhood.      
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not want to move out of neighbourhood
1 |  Does want to move out of neighbourhood

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Neighbourhood satisfaction   
**Variable name**:  soc_res_satis_4             
**Variable description**:  Indicator of whether the participant desires to move away from their current neighbourhood.      
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not want to move out of neighbourhood
1 |  Does want to move out of neighbourhood

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Neighbourhood satisfaction   
**Variable name**:  soc_res_satis_5             
**Variable description**:  Indicator of whether the participant desires to move away from their current neighbourhood.      
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not want to move out of neighbourhood
1 |  Does want to move out of neighbourhood

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential mobility (individual - level)     
**Variable name**:  soc_res_move_0                
**Variable description**:  Indicator of whether the participant moved from their current neighbourhood since last interview.       
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Has not moved since last interview
1 |  Has moved since last interview

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential mobility (individual - level)     
**Variable name**:  soc_res_move_1                
**Variable description**:  Indicator of whether the participant moved from their current neighbourhood since last interview.          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Has not moved since last interview
1 |  Has moved since last interview

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential mobility (individual - level)     
**Variable name**:  soc_res_move_2                
**Variable description**:  Indicator of whether the participant moved from their current neighbourhood since last interview.          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Has not moved since last interview
1 |  Has moved since last interview

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential mobility (individual - level)     
**Variable name**:  soc_res_move_3                
**Variable description**:  Indicator of whether the participant moved from their current neighbourhood since last interview.          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Has not moved since last interview
1 |  Has moved since last interview

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential mobility (individual - level)     
**Variable name**:  soc_res_move_4                
**Variable description**:  Indicator of whether the participant moved from their current neighbourhood since last interview.          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Has not moved since last interview
1 |  Has moved since last interview

**Harmonization status**: impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential mobility (individual - level)     
**Variable name**:  soc_res_move_5                
**Variable description**:  Indicator of whether the participant moved from their current neighbourhood since last interview.          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Has not moved since last interview
1 |  Has moved since last interview

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residential mobility (individual - level)     
**Variable name**:  soc_res_move_6                  
**Variable description**:  Indicator of whether the participant moved from their current neighbourhood since last interview.          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Has not moved since last interview
1 |  Has moved since last interview

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_0                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lives independently  
1 |  Lives in a nursing home

**Harmonization status**:  complete
**Harmonization comment**: Study specific variable OWN_DWLG_COM, categories: 'Seniors’ housing (retirement home, assisted living)' and  'Institution (old age facility)' were recoded as 'Lives in a nursing home.' 
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$OWN_DWLG_COM) 
class(CoP4_Baseline$OWN_DWLG_COM)
soc_CLSA_cop_0$soc_res_indep_0 <-  ifelse(as.integer(CoP4_Baseline$OWN_DWLG_COM)==3 |as.integer(CoP4_Baseline$OWN_DWLG_COM)==4,1L,
                                   ifelse(as.integer(CoP4_Baseline$OWN_DWLG_COM)==1 | as.integer(CoP4_Baseline$OWN_DWLG_COM) ==2 |
                                          as.integer( CoP4_Baseline$OWN_DWLG_COM)<=97,0L,NA))

table(soc_CLSA_cop_0$soc_res_indep_0) 

```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_1                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lives independently  
1 |  Lives in a nursing home

**Harmonization status**:  complete
**Harmonization comment**: Study specific variable OWN_DWLG_COF1, categories: 'Seniors’ housing (retirement home, assisted living)' and  'Institution (old age facility)' were recoded as 'Lives in a nursing home.'   
**R script**:  
```{r, echo=TRUE}
table(CoP_FU1$OWN_DWLG_COF1) 

soc_CLSA_cop_1$soc_res_indep_1 <-  ifelse(as.integer(CoP_FU1$OWN_DWLG_COF1)==3 | as.integer(CoP_FU1$OWN_DWLG_COF1)==4,1L,
                                    ifelse(as.integer(CoP_FU1$OWN_DWLG_COF1)==1 |as.integer( CoP_FU1$OWN_DWLG_COF1)==2 |
                                           (as.integer(CoP_FU1$OWN_DWLG_COF1)>=5 &  as.integer(CoP_FU1$OWN_DWLG_COF1)<=97),0L,NA))

table(soc_CLSA_cop_1$soc_res_indep_1) 

```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_2                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lives independently  
1 |  Lives in a nursing home

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_3                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lives independently  
1 |  Lives in a nursing home

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_4                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lives independently  
1 |  Lives in a nursing home

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_5                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lives independently  
1 |  Lives in a nursing home

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_6                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Lives independently  
1 |  Lives in a nursing home

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Residence type     
**Variable name**:  soc_res_type_0                    
**Variable description**:  Indicator of type of home in which participant lives.           
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Lives in a flat/ apartment   
2 |  Lives in a single-family house (terraced house/ townhouse, semi-detached, detached)  
3 |  Lives in a nursing home, retirement home, home for the elderly
4 |  Lives on a farm
5 |  Other

**Harmonization status**:  complete     
**Harmonization comment**: Study specific variable OWN_DWLG_COM, does not have 'farm' as a choice answer.    
**R script**:  
```{r, echo=TRUE}

table(CoP4_Baseline$OWN_DWLG_COM) 

soc_CLSA_cop_0$soc_res_type_0 <- ifelse(as.integer(CoP4_Baseline$OWN_DWLG_COM)==1 | as.integer(CoP4_Baseline$OWN_DWLG_COM)==6,2L, 
                                                  ifelse(as.integer(CoP4_Baseline$OWN_DWLG_COM)==2,1L,
                                                      ifelse(as.integer(CoP4_Baseline$OWN_DWLG_COM)==3 | as.integer(CoP4_Baseline$OWN_DWLG_COM==4),3L,
                                                           ifelse(as.integer(CoP4_Baseline$OWN_DWLG_COM)==5 | as.integer(CoP4_Baseline$OWN_DWLG_COM)==97 |
                                                                 (as.integer(CoP4_Baseline$OWN_DWLG_COM)>=7 & as.integer(CoP4_Baseline$OWN_DWLG_COM))<=12, 5L, NA))))

table(soc_CLSA_cop_0$soc_res_type_0) 

```
### **Variable label**:  Residence type     
**Variable name**:  soc_res_type_1                    
**Variable description**:  Indicator of type of home in which participant lives.           
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Lives in a flat/ apartment   
2 |  Lives in a single-family house (terraced house/ townhouse, semi-detached, detached)  
3 |  Lives in a nursing home, retirement home, home for the elderly
4 |  Lives on a farm
5 |  Other

**Harmonization status**:  complete     
**Harmonization comment**: Study specific variable OWN_DWLG_COF1, does not have 'farm' as a choice answer.   
**R script**:  
```{r, echo=TRUE}

table(CoP_FU1$OWN_DWLG_COF1) 

soc_CLSA_cop_1$soc_res_type_1 <- ifelse(as.integer(CoP_FU1$OWN_DWLG_COF1)==1 | as.integer(CoP_FU1$OWN_DWLG_COF1)==6,2L, 
                                                  ifelse(as.integer(CoP_FU1$OWN_DWLG_COF1)==2,1L,
                                                      ifelse(as.integer(CoP_FU1$OWN_DWLG_COF1)==3 | as.integer(CoP_FU1$OWN_DWLG_COF1)==4,3L,
                                                           ifelse(as.integer(CoP_FU1$OWN_DWLG_COF1)==5 | as.integer(CoP_FU1$OWN_DWLG_COF1)==97 |
                                                                 (as.integer(CoP_FU1$OWN_DWLG_COF1)>=7 & as.integer(CoP_FU1$OWN_DWLG_COF1)<=12), 5L, NA))))

table(soc_CLSA_cop_1$soc_res_type_1) 

```
### **Variable label**:  Residence type     
**Variable name**:  soc_res_type_2                    
**Variable description**:  Indicator of type of home in which participant lives.           
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Lives in a flat/ apartment   
2 |  Lives in a single-family house (terraced house/ townhouse, semi-detached, detached)  
3 |  Lives in a nursing home, retirement home, home for the elderly
4 |  Lives on a farm
5 |  Other

**Harmonization status**: impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}


```
### **Variable label**:  Residence type     
**Variable name**:  soc_res_type_3                    
**Variable description**:  Indicator of type of home in which participant lives.           
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Lives in a flat/ apartment   
2 |  Lives in a single-family house (terraced house/ townhouse, semi-detached, detached)  
3 |  Lives in a nursing home, retirement home, home for the elderly
4 |  Lives on a farm
5 |  Other

**Harmonization status**: impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}


```
### **Variable label**:  Residence type     
**Variable name**:  soc_res_type_4                    
**Variable description**:  Indicator of type of home in which participant lives.           
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Lives in a flat/ apartment   
2 |  Lives in a single-family house (terraced house/ townhouse, semi-detached, detached)  
3 |  Lives in a nursing home, retirement home, home for the elderly
4 |  Lives on a farm
5 |  Other

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}


```
### **Variable label**:  Residence type     
**Variable name**:  soc_res_type_5                    
**Variable description**:  Indicator of type of home in which participant lives.           
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Lives in a flat/ apartment   
2 |  Lives in a single-family house (terraced house/ townhouse, semi-detached, detached)  
3 |  Lives in a nursing home, retirement home, home for the elderly
4 |  Lives on a farm
5 |  Other

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}


```
### **Variable label**:  Residence type     
**Variable name**:  soc_res_type_6                    
**Variable description**:  Indicator of type of home in which participant lives.           
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Lives in a flat/ apartment   
2 |  Lives in a single-family house (terraced house/ townhouse, semi-detached, detached)  
3 |  Lives in a nursing home, retirement home, home for the elderly
4 |  Lives on a farm
5 |  Other

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}


```
### **Variable label**:  Home ownership (2-level)      
**Variable name**:  soc_res_home_own_dich_0                     
**Variable description**:  Indicator of whether the participant owns home or not (i.e. pays rent or mortgage).          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not own home
1 |  Does own home  

**Harmonization status**: complete   
**Harmonization comment**:   OWN_OWN_COM
**R script**:  
```{r, echo=TRUE}
table(CoP4_Baseline$OWN_OWN_COM) 

soc_CLSA_cop_0$soc_res_home_own_dich_0 <- ifelse(as.integer(CoP4_Baseline$OWN_OWN_COM) ==1,0L, 
                                           ifelse(as.integer(CoP4_Baseline$OWN_OWN_COM) >=2 ,1L,NA))

table(soc_CLSA_cop_0$soc_res_home_own_dich_0) 
 summary(soc_CLSA_cop_0$soc_res_home_own_dich_0) 

```
### **Variable label**:  Home ownership (2-level)      
**Variable name**:  soc_res_home_own_dich_1                     
**Variable description**:  Indicator of whether the participant owns home or not (i.e. pays rent or mortgage).          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not own home
1 |  Does own home  

**Harmonization status**:  complete  
**Harmonization comment**:  OWN_OWN_COF1 
**R script**:  
```{r, echo=TRUE}
table(CoP_FU1$OWN_OWN_COF1) 

soc_CLSA_cop_1$soc_res_home_own_dich_1 <- ifelse(as.integer(CoP_FU1$OWN_OWN_COF1) ==1,1L, 
                                          ifelse(as.integer(CoP_FU1$OWN_OWN_COF1) ==2 ,0L,NA))

table(soc_CLSA_cop_1$soc_res_home_own_dich_1) 
summary(soc_CLSA_cop_1$soc_res_home_own_dich_1) 
```
### **Variable label**:  Home ownership (2-level)      
**Variable name**:  soc_res_home_own_dich_2                     
**Variable description**:  Indicator of whether the participant owns home or not (i.e. pays rent or mortgage).          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not own home
1 |  Does own home  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Home ownership (2-level)      
**Variable name**:  soc_res_home_own_dich_3                     
**Variable description**:  Indicator of whether the participant owns home or not (i.e. pays rent or mortgage).          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not own home
1 |  Does own home  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Home ownership (2-level)      
**Variable name**:  soc_res_home_own_dich_4                     
**Variable description**:  Indicator of whether the participant owns home or not (i.e. pays rent or mortgage).          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not own home
1 |  Does own home  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Home ownership (2-level)      
**Variable name**:  soc_res_home_own_dich_5                     
**Variable description**:  Indicator of whether the participant owns home or not (i.e. pays rent or mortgage).          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not own home
1 |  Does own home  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Home ownership (2-level)      
**Variable name**:  soc_res_home_own_dich_6                     
**Variable description**:  Indicator of whether the participant owns home or not (i.e. pays rent or mortgage).          
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
0 |  Does not own home
1 |  Does own home  

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Home ownership (3-level)      
**Variable name**:  soc_res_home_own_0                        
**Variable description**:  Indicator of whether the participant owns home, pays mortgage or rents.             
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Owns home
2 |  Pays mortgage 
3 |  Rents home 

**Harmonization status**:  impossible   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Home ownership (3-level)      
**Variable name**:  soc_res_home_own_1                        
**Variable description**:  Indicator of whether the participant owns home, pays mortgage or rents.             
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Owns home
2 |  Pays mortgage 
3 |  Rents home 

**Harmonization status**:  impossible    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **Variable label**:  Home ownership (3-level)      
**Variable name**:  soc_res_home_own_2                        
**Variable description**:  Indicator of whether the participant owns home, pays mortgage or rents.             
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

**Code** | **Category Label**  
------------- | -------------  
1 |  Owns home
2 |  Pays mortgage 
3 |  Rents home 

**Harmonization status**:  impossible  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```