SOC_DS_LASA1.Rmd

---
title: "Social factors DataSchema"
output: html_document
---

# Connecting with Opal data server
## Login to server and assign study data
```{r, echo=FALSE}
#Load Opal R library
library(opal)
# install.packages("epiDisplay")
library(epiDisplay)
# install.packages("car")
library(car)
library(dplyr)
library(data.table)
# Create an opal object with the login information
erasmus_opal <- opal.login()
#Login to Opal server and assign the content of the LASA table(s) to your RStudio environment
# LASA1B
opal.assign.table.tibble(erasmus_opal, 'LASA1B', 'LASA.LASA1B',variables = list('blo1','blo4','blo7','blo8','blo11','bsocp04','bsocp14','bsocp15','bsocp16','bsocp17','bsocp18','bsocp19','bsocp20','bsocp21','bsocp23','bsocp24','bsocp31','bsocp43','bsocp44','bsocp46','bsocp48','bsocp55','bsocp57','bmoved','bhindep','bhoustyp','bsocp01','bsocp02','bsocp03','bsocp04','bsocp05','bsocp07','bsocp08','bsocp10','bsocp11','bsocpyn')) 
LASA1B <- opal.execute(erasmus_opal,'LASA1B') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1B_socialnet', 'LASA.LASA1B_socialnet',variables = list ('nkids','nfriends','friendscf','nneighbours','neighbourscf','nrelatives','familycf','relativescf','nnonkin','nonkincf','rec_emo_conf1','rec_emo_conf2','rec_emo_conf3','rec_instru_conf1','rec_instru_conf2','rec_instru_conf3','perceived_instru'))
LASA1B_socialnet <- opal.execute(erasmus_opal,'LASA1B_socialnet') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1B_extradata2', 'LASA.LASA1B_extradata2',variables = list ('byneigh','bmovefut','bhowner','bmortga'))
LASA1B_extradata2 <- opal.execute(erasmus_opal,'LASA1B_extradata2') %>% as_tibble %>% arrange(id)

# LASA1C
opal.assign.table.tibble(erasmus_opal, 'LASA1C', 'LASA.LASA1C', variables=list('clo1','clo4','clo7','clo8','clo11','csocp14','csocp15','csocp16','csocp17','csocp18','csocp19','csocp20','csocp21','csocp23','csocp24','csocp31','csocp46','csocp48','csocp55','csocp57','cmoved','chindep','choustyp','ccrime','cfinanc','cillpart','cilloth','cfadied','cmodied','cbrodied','csisdied','csondied','cdaudied','cgcdied','csocpyn','csocp01','csocp02','csocp03','csocp04','csocp05','csocp07','csocp08','csocp10','csocp11','csocpyn','cpartst')) 
LASA1C<- opal.execute(erasmus_opal,'LASA1C') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1C_socialnet', 'LASA.LASA1C_socialnet', variables=list('nkids','nfriends','friendscf','nneighbours','neighbourscf','nrelatives','familycf','relativescf','nnonkin','nonkincf','rec_emo_conf1','rec_emo_conf2','rec_emo_conf3','rec_instru_conf1','rec_instru_conf2','rec_instru_conf3','perceived_instru')) 
LASA1C_socialnet<- opal.execute(erasmus_opal,'LASA1C_socialnet') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1C_extradata2', 'LASA.LASA1C_extradata2',variables = list ('cyneigh','cmovefut','chowner','cmortga'))
LASA1C_extradata2 <- opal.execute(erasmus_opal,'LASA1C_extradata2') %>% as_tibble %>% arrange(id)

# LASA1D
opal.assign.table.tibble(erasmus_opal, 'LASA1D', 'LASA.LASA1D',variables=list('dlo1','dlo4','dlo7','dlo8','dlo11','dsocp14','dsocp15','dsocp16','dsocp17','dsocp18','dsocp19','dsocp20','dsocp21','dsocp23','dsocp24','dsocp31','dsocp46','dsocp48','dsocp55','dsocp57','dmoved','dhindep','dhoustyp','dcrime','dfinanc','dillpart','dilloth','dfadied','dmodied','dbrodied','dsisdied','dsondied','ddaudied','dgcdied','dsocpyn','dsocp01','dsocp02','dsocp03','dsocp04','dsocp05','dsocp07','dsocp08','dsocp10','dsocp11','dsocpyn','dpartst'))
LASA1D <- opal.execute(erasmus_opal,'LASA1D') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1D_socialnet', 'LASA.LASA1D_socialnet',variables=list('nkids','nfriends','friendscf','nneighbours','neighbourscf','nrelatives','familycf','relativescf','nnonkin','nonkincf','rec_emo_conf1','rec_emo_conf2','rec_emo_conf3','rec_instru_conf1','rec_instru_conf2','rec_instru_conf3','perceived_instru')) 
LASA1D_socialnet <- opal.execute(erasmus_opal,'LASA1D_socialnet') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1D_extradata2', 'LASA.LASA1D_extradata2',variables = list ('dyneigh','dmovefut','dhowner','dmortga'))
LASA1D_extradata2 <- opal.execute(erasmus_opal,'LASA1D_extradata2') %>% as_tibble %>% arrange(id)

# LASA1E - no perceived instrumental support 
opal.assign.table.tibble(erasmus_opal, 'LASA1E', 'LASA.LASA1E',variables=list('elo1','elo4','elo7','elo8','elo11','esocp14','esocp15','esocp16','esocp17','esocp18','esocp19','esocp20','esocp21','esocp23','esocp24','esocp31','esocp46','esocp48','esocp55','esocp57','emoved','ehindep','ehoustyp','ecrime','efinanc','eillpart','eilloth','efadied','emodied','ebrodied','esisdied','esondied','edaudied','egcdied','esocpyn','esocp01','esocp02','esocp03','esocp04','esocp05','esocp07','esocp08','esocp10','esocp11','epartst'))
LASA1E <- opal.execute(erasmus_opal,'LASA1E') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1E_socialnet', 'LASA.LASA1E_socialnet',variables=list('nkids','nfriends','friendscf','nneighbours','neighbourscf','nrelatives','familycf','relativescf','nnonkin','nonkincf','rec_emo_conf1','rec_emo_conf2','rec_emo_conf3','rec_instru_conf1','rec_instru_conf2','rec_instru_conf3')) 
LASA1E_socialnet <- opal.execute(erasmus_opal,'LASA1E_socialnet') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1E_extradata2', 'LASA.LASA1E_extradata2',variables = list ('eyneigh','emovefut','ehowner','emortga'))
LASA1E_extradata2 <- opal.execute(erasmus_opal,'LASA1E_extradata2') %>% as_tibble %>% arrange(id)

# LASA1F
opal.assign.table.tibble(erasmus_opal, 'LASA1F', 'LASA.LASA1F',variables=list('flo1','flo4','flo7','flo8','flo11','fsocp14','fsocp15','fsocp16','fsocp17','fsocp18','fsocp19','fsocp20','fsocp21','fsocp23','fsocp24','fsocp31','fsocp43','fsocp44','fsocp46','fsocp48','fsocp55','fsocp57','fmoved','fhindep','fhoustyp','fcrime','ffinanc','fillpart','filloth','ffadied','fmodied','fbrodied','fsisdied','fsondied','fdaudied','fgcdied','fsocpyn','fsocp01','fsocp02','fsocp03','fsocp04','fsocp05','fsocp07','fsocp08','fsocp10','fsocp11','fpartst')) 
LASA1F <- opal.execute(erasmus_opal,'LASA1F') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1F_socialnet', 'LASA.LASA1F_socialnet',variables=list('nkids','nfriends','friendscf','nneighbours','neighbourscf','nrelatives','familycf','relativescf','nnonkin','nonkincf','rec_emo_conf1','rec_emo_conf2','rec_emo_conf3','rec_instru_conf1','rec_instru_conf2','rec_instru_conf3','perceived_instru')) 
LASA1F_socialnet <- opal.execute(erasmus_opal,'LASA1F_socialnet') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1F_extradata2', 'LASA.LASA1F_extradata2',variables = list ('fyneigh','fmovefut','fhowner','fmortga'))
LASA1F_extradata2 <- opal.execute(erasmus_opal,'LASA1F_extradata2') %>% as_tibble %>% arrange(id)

# LASA1G
opal.assign.table.tibble(erasmus_opal, 'LASA1G', 'LASA.LASA1G',variables=list('glo1','glo4','glo7','glo8','glo11','gsocp14','gsocp15','gsocp16','gsocp17','gsocp18','gsocp19','gsocp20','gsocp21','gsocp23','gsocp24','gsocp31','gsocp32','gsocp46','gsocp47','gsocp48','gsocp49','gsocp50','gsocp51','gsocp54','gsocp55','gsocp44','gsocp57','gsocp43','gmoved','ghindep','ghoustyp','gcrime','gfinanc','gillpart','gilloth','gfadied','gmodied','gbrodied','gsisdied','gsondied','gdaudied','ggcdied','gsocpyn','gsocp01','gsocp02','gsocp03','gsocp04','gsocp05','gsocp07','gsocp08','gsocp10','gsocp11','gpartst'))
LASA1G <- opal.execute(erasmus_opal,'LASA1G') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1G_socialnet', 'LASA.LASA1G_socialnet',variables=list('nkids','nfriends','friendscf','nneighbours','neighbourscf','nrelatives','familycf','relativescf','nnonkin','nonkincf','rec_emo_conf1','rec_emo_conf2','rec_emo_conf3','rec_instru_conf1','rec_instru_conf2','rec_instru_conf3','perceived_instru')) 
LASA1G_socialnet <- opal.execute(erasmus_opal,'LASA1G_socialnet') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1G_extradata2', 'LASA.LASA1G_extradata2',variables = list ('gyneigh','gmovefut','ghowner','gmortga'))
LASA1G_extradata2 <- opal.execute(erasmus_opal,'LASA1G_extradata2') %>% as_tibble %>% arrange(id)

# LASA1H
opal.assign.table.tibble(erasmus_opal, 'LASA1H', 'LASA.LASA1H',variables=list('Hlo1','Hlo4','Hlo7','Hlo8','Hlo11','HSOCP14','HSOCP15','HSOCP16','HSOCP17','HSOCP18','HSOCP19','HSOCP20','HSOCP21','HSOCP23','HSOCP24','HSOCP31','HSOCP46','HSOCP48','HSOCP55','HSOCP57','HMOVED','HHINDEP','HHOUSTYP','Hcrime','Hfinanc','Hillpart','Hilloth','Hfadied','Hmodied','Hbrodied','Hsisdied','Hsondied','Hdaudied','Hgcdied','HSOCPYN','HSOCP01','HSOCP02','HSOCP03','HSOCP04','HSOCP05','HSOCP07','HSOCP08','HSOCP10','HSOCP11','hpartst')) 
LASA1H <- opal.execute(erasmus_opal,'LASA1H') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1H_socialnet', 'LASA.LASA1H_socialnet',variables=list('nkids','nfriends','friendscf','nneighbours','neighbourscf','nrelatives','familycf','relativescf','nnonkin','nonkincf','rec_emo_conf1','rec_emo_conf2','rec_emo_conf3','rec_instru_conf1','rec_instru_conf2','rec_instru_conf3','perceived_instru')) 
LASA1H_socialnet <- opal.execute(erasmus_opal,'LASA1H_socialnet') %>% as_tibble %>% arrange(id)

opal.assign.table.tibble(erasmus_opal, 'LASA1H_extradata2', 'LASA.LASA1H_extradata2',variables = list ('HYNEIGH','HMOVEFUT','HHOWNER','HMORTGA'))
LASA1H_extradata2 <- opal.execute(erasmus_opal,'LASA1H_extradata2') %>% as_tibble %>% arrange(id)

LASA1B <-merge(LASA1B, LASA1B_extradata2,  by="id", all = TRUE) %>% as_tibble %>% arrange(id)
LASA1B <-merge(LASA1B, LASA1B_socialnet,   by="id", all = TRUE) %>% as_tibble %>% arrange(id)

LASA1C <-merge(LASA1C, LASA1C_extradata2,  by="id", all = TRUE) %>% as_tibble %>% arrange(id)
LASA1C <-merge(LASA1C, LASA1C_socialnet,   by="id", all = TRUE) %>% as_tibble %>% arrange(id)

LASA1D <-merge(LASA1D, LASA1D_extradata2,  by="id", all = TRUE) %>% as_tibble %>% arrange(id)
LASA1D <-merge(LASA1D, LASA1D_socialnet,   by="id", all = TRUE) %>% as_tibble %>% arrange(id)

LASA1E <-merge(LASA1E, LASA1E_extradata2,  by="id", all = TRUE) %>% as_tibble %>% arrange(id)
LASA1E <-merge(LASA1E, LASA1E_socialnet,   by="id", all = TRUE) %>% as_tibble %>% arrange(id)

LASA1F <-merge(LASA1F, LASA1F_extradata2,  by="id", all = TRUE) %>% as_tibble %>% arrange(id)
LASA1F <-merge(LASA1F, LASA1F_socialnet,   by="id", all = TRUE) %>% as_tibble %>% arrange(id)

LASA1G <-merge(LASA1G, LASA1G_extradata2,  by="id", all = TRUE) %>% as_tibble %>% arrange(id)
LASA1G <-merge(LASA1G, LASA1G_socialnet,   by="id", all = TRUE) %>% as_tibble %>% arrange(id)

LASA1H <-merge(LASA1H, LASA1H_extradata2,  by="id", all = TRUE) %>% as_tibble %>% arrange(id)
LASA1H <-merge(LASA1H, LASA1H_socialnet,   by="id", all = TRUE) %>% as_tibble %>% arrange(id)


```
## Assign participant id as first column of your harmonized dataframes
```{r, echo=FALSE}
soc_LASA1_0 <- data.frame(id = LASA1B$id) %>% as_tibble %>% arrange(id)
soc_LASA1_1 <- data.frame(id = LASA1C$id) %>% as_tibble %>% arrange(id)
soc_LASA1_2 <- data.frame(id = LASA1D$id) %>% as_tibble %>% arrange(id)
soc_LASA1_3 <- data.frame(id = LASA1E$id) %>% as_tibble %>% arrange(id)
soc_LASA1_4 <- data.frame(id = LASA1F$id) %>% as_tibble %>% arrange(id)
soc_LASA1_5 <- data.frame(id = LASA1G$id) %>% as_tibble %>% arrange(id)
soc_LASA1_6 <- data.frame(id = LASA1H$id) %>% as_tibble %>% arrange(id)
```
## When you are done with your work, logout of Opal server
```{r, echo=FALSE}
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 item includes biological, step and adopted children that were identified as part of the participant's social network.    
**R script**:  
```{r, echo=TRUE}
table(LASA1B$nkids) 
summary(LASA1B$nkids) 
soc_LASA1_0$soc_sn_num_children_0 <- as.integer(LASA1B$nkids)
table(soc_LASA1_0$soc_sn_num_children_0) 
summary(soc_LASA1_0$soc_sn_num_children_0) 

```
### **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 item includes biological, step and adopted children that were identified as part of the participant's social network. 
**R script**:  
```{r, echo=TRUE}
table(LASA1C$nkids) 
summary(LASA1C$nkids) 
soc_LASA1_1$soc_sn_num_children_1 <- as.integer(LASA1C$nkids)
table(soc_LASA1_1$soc_sn_num_children_1) 
summary(soc_LASA1_1$soc_sn_num_children_1)

```
### **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**:  complete
**Harmonization comment**:  Study specific item includes biological, step and adopted children that were identified as part of the participant's social network.  
**R script**:  
```{r, echo=TRUE}
table(LASA1D$nkids) 
summary(LASA1D$nkids) 
soc_LASA1_2$soc_sn_num_children_2 <- as.integer(LASA1D$nkids)
table(soc_LASA1_2$soc_sn_num_children_2) 
summary(soc_LASA1_2$soc_sn_num_children_2)

```
### **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**:  complete
**Harmonization comment**:  Study specific item includes biological, step and adopted children that were identified as part of the participant's social network.  
**R script**:  
```{r, echo=TRUE}
table(LASA1E$nkids) 
summary(LASA1E$nkids) 
soc_LASA1_3$soc_sn_num_children_3 <- as.integer(LASA1E$nkids)
table(soc_LASA1_3$soc_sn_num_children_3) 
summary(soc_LASA1_3$soc_sn_num_children_3)

```
### **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**:  complete
**Harmonization comment**:  Study specific item includes biological, step and adopted children that were identified as part of the participant's social network.   
**R script**:  
```{r, echo=TRUE}
table(LASA1F$nkids) 
summary(LASA1F$nkids) 
soc_LASA1_4$soc_sn_num_children_4 <- as.integer(LASA1F$nkids)
table(soc_LASA1_4$soc_sn_num_children_4) 
summary(soc_LASA1_4$soc_sn_num_children_4)

```
### **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**:  complete
**Harmonization comment**:  Study specific item includes biological, step and adopted children that were identified as part of the participant's social network.   
**R script**:  
```{r, echo=TRUE}
table(LASA1G$nkids) 
summary(LASA1G$nkids) 
soc_LASA1_5$soc_sn_num_children_5 <- as.integer(LASA1G$nkids)
table(soc_LASA1_5$soc_sn_num_children_5) 
summary(soc_LASA1_5$soc_sn_num_children_5)

```
### **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**:  complete
**Harmonization comment**:  Study specific item includes biological, step and adopted children that were identified as part of the participant's social network.   
**R script**:  
```{r, echo=TRUE}
table(LASA1H$nkids) 
summary(LASA1H$nkids) 
soc_LASA1_6$soc_sn_num_children_6 <- as.integer(LASA1H$nkids)
table(soc_LASA1_6$soc_sn_num_children_6) 
summary(soc_LASA1_6$soc_sn_num_children_6)

```
### **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**:  Study specific item does not specify if children are alive or dead, it includes biological, step and adopted children.    
**R script**:  
```{r, echo=TRUE}
table(LASA1B$nkids) 
summary(LASA1B$nkids)  
soc_LASA1_0$soc_sn_children_rank_0 <- ifelse(LASA1B$nkids==0,0L, 
                                             ifelse(LASA1B$nkids==1 | LASA1B$nkids==2,1L,
                                                    ifelse(LASA1B$nkids >2 ,2L, NA)))
table(soc_LASA1_0$soc_sn_children_rank_0) 
summary(soc_LASA1_0$soc_sn_children_rank_0) 

```

### **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**:  Study specific item does not specify if children are alive or dead, it includes biological, step and adopted children.    
**R script**:  
```{r, echo=TRUE}
table(LASA1C$nkids) 
summary(LASA1C$nkids)  
soc_LASA1_1$soc_sn_children_rank_1 <- ifelse(LASA1C$nkids==0,0L, 
                                             ifelse(LASA1C$nkids==1 | LASA1C$nkids==2,1L,
                                                    ifelse(LASA1C$nkids >2,2L, NA)))
table(soc_LASA1_1$soc_sn_children_rank_1) 
summary(soc_LASA1_1$soc_sn_children_rank_1) 

```
### **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**:  complete
**Harmonization comment**:  Study specific item does not specify if children are alive or dead, it includes biological, step and adopted children.    
**R script**:  
```{r, echo=TRUE}
table(LASA1D$nkids) 
summary(LASA1D$nkids)  
soc_LASA1_2$soc_sn_children_rank_2 <- ifelse(LASA1D$nkids==0,0L, 
                                             ifelse(LASA1D$nkids==1| LASA1D$nkids==2,1L,
                                                    ifelse(LASA1D$nkids >2,2L, NA)))
table(soc_LASA1_2$soc_sn_children_rank_2) 
summary(soc_LASA1_2$soc_sn_children_rank_2) 

```
### **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**:  complete
**Harmonization comment**:  Study specific item does not specify if children are alive or dead, it includes biological, step and adopted children.    
**R script**:  
```{r, echo=TRUE}
table(LASA1E$nkids) 
summary(LASA1E$nkids)  
soc_LASA1_3$soc_sn_children_rank_3<- ifelse(LASA1E$nkids==0,0L, 
                                             ifelse(LASA1E$nkids==1 | LASA1E$nkids==2,1L,
                                                    ifelse(LASA1E$nkids >2,2L, NA)))
table(soc_LASA1_3$soc_sn_children_rank_3) 
summary(soc_LASA1_3$soc_sn_children_rank_3) 

```
### **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**:  complete
**Harmonization comment**:  Study specific item does not specify if children are alive or dead, it includes biological, step and adopted children.   
**R script**:  
```{r, echo=TRUE}
table(LASA1F$nkids) 
summary(LASA1F$nkids)  
soc_LASA1_4$soc_sn_children_rank_4 <- ifelse(LASA1F$nkids==0,0L, 
                                             ifelse(LASA1F$nkids==1 | LASA1F$nkids==2,1L,
                                                    ifelse(LASA1F$nkids >2,2L, NA)))
table(soc_LASA1_4$soc_sn_children_rank_4) 
summary(soc_LASA1_4$soc_sn_children_rank_4) 

```
### **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**:  complete
**Harmonization comment**:  Study specific item does not specify if children are alive or dead, it includes biological, step and adopted children.  
**R script**:  
```{r, echo=TRUE}
table(LASA1G$nkids) 
summary(LASA1G$nkids)  
soc_LASA1_5$soc_sn_children_rank_5 <- ifelse(LASA1G$nkids==0,0L, 
                                             ifelse(LASA1G$nkids==1 | LASA1G$nkids==2,1L,
                                                    ifelse(LASA1G$nkids >2 ,2L, NA)))
table(soc_LASA1_5$soc_sn_children_rank_5) 
summary(soc_LASA1_5$soc_sn_children_rank_5) 

```
### **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**:  complete
**Harmonization comment**:  Study specific item does not specify if children are alive or dead, it includes biological, step and adopted children.    
**R script**:  
```{r, echo=TRUE}
table(LASA1H$nkids) 
summary(LASA1H$nkids)  
soc_LASA1_6$soc_sn_children_rank_6 <- ifelse(LASA1H$nkids==0,0L, 
                                             ifelse(LASA1H$nkids==1 | LASA1H$nkids==2,1L,
                                                    ifelse(LASA1H$nkids >2,2L, NA)))
table(soc_LASA1_6$soc_sn_children_rank_6) 
summary(soc_LASA1_6$soc_sn_children_rank_6) 

```

### **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**:  Study specific variable includes friends belonging to the social network that were identified as part of the participant's social network.  
**R script**:  
```{r, echo=TRUE}
table(LASA1B$nfriends) 
summary(LASA1B$nfriends) 
soc_LASA1_0$soc_sn_num_friends_0 <- as.integer(LASA1B$nfriends)
table(soc_LASA1_0$soc_sn_num_friends_0) 
summary(soc_LASA1_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**:  Study specific variable includes friends belonging to the social network that were identified as part of the participant's social network.   
**R script**:  
```{r, echo=TRUE}
table(LASA1C$nfriends) 
summary(LASA1C$nfriends) 
soc_LASA1_1$soc_sn_num_friends_1 <- as.integer(LASA1C$nfriends)
table(soc_LASA1_1$soc_sn_num_friends_1) 
summary(soc_LASA1_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**:  complete
**Harmonization comment**:  Study specific variable includes friends belonging to the social network that were identified as part of the participant's social network.   
**R script**:  
```{r, echo=TRUE}
table(LASA1D$nfriends) 
summary(LASA1D$nfriends) 
soc_LASA1_2$soc_sn_num_friends_2 <- as.integer(LASA1D$nfriends)
table(soc_LASA1_2$soc_sn_num_friends_2) 
summary(soc_LASA1_2$soc_sn_num_friends_2)

```
### **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**:  complete
**Harmonization comment**:  Study specific variable includes friends belonging to the social network that were identified as part of the participant's social network.     
**R script**:  
```{r, echo=TRUE}
table(LASA1E$nfriends) 
summary(LASA1E$nfriends) 
soc_LASA1_3$soc_sn_num_friends_3 <- as.integer(LASA1E$nfriends)
table(soc_LASA1_3$soc_sn_num_friends_3) 
summary(soc_LASA1_3$soc_sn_num_friends_3)

```
### **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**:  complete
**Harmonization comment**:  Study specific variable includes friends belonging to the social network that were identified as part of the participant's social network.    
**R script**:  
```{r, echo=TRUE}
table(LASA1F$nfriends) 
summary(LASA1F$nfriends) 
soc_LASA1_4$soc_sn_num_friends_4 <- as.integer(LASA1F$nfriends)
table(soc_LASA1_4$soc_sn_num_friends_4) 
summary(soc_LASA1_4$soc_sn_num_friends_4)

```
### **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**:  complete
**Harmonization comment**:  Study specific variable includes friends belonging to the social network that were identified as part of the participant's social network.   
**R script**:  
```{r, echo=TRUE}
table(LASA1G$nfriends) 
summary(LASA1G$nfriends) 
soc_LASA1_5$soc_sn_num_friends_5 <- as.integer(LASA1G$nfriends)
table(soc_LASA1_5$soc_sn_num_friends_5) 
summary(soc_LASA1_5$soc_sn_num_friends_5)

```

### **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**:  complete
**Harmonization comment**:  Study specific variable includes friends belonging to the social network that were identified as part of the participant's social network.   
**R script**:  
```{r, echo=TRUE}
table(LASA1H$nfriends) 
summary(LASA1H$nfriends) 
soc_LASA1_6$soc_sn_num_friends_6 <- as.integer(LASA1H$nfriends)
table(soc_LASA1_6$soc_sn_num_friends_6) 
summary(soc_LASA1_6$soc_sn_num_friends_6)

```

### **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**:   
**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**:   
**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**:  complete
**Harmonization comment**: Study specific variable is the highest contact frequency reported with any friends identified in participant's social network (e.g. if participant has 4 friends and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with friends.)   
```{r, echo=TRUE}
table(LASA1B$friendscf) 
summary(LASA1B$friendscf)
soc_LASA1_0$soc_sn_freq_friends_0 <- as.integer(LASA1B$friendscf)
soc_LASA1_0$soc_sn_freq_friends_0 <-car::recode(soc_LASA1_0$soc_sn_freq_friends_0, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" )
 
table(soc_LASA1_0$soc_sn_freq_friends_0) 
summary(soc_LASA1_0$soc_sn_freq_friends_0) 
``` 
### **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**:  complete
**Harmonization comment**: Study specific variable is the highest contact frequency reported with any friends identified in participant's social network (e.g. if participant has 4 friends and is in touch weekly with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with friends.)    
**R script**:  
```{r, echo=TRUE}
table(LASA1C$friendscf) 
summary(LASA1C$friendscf)
soc_LASA1_1$soc_sn_freq_friends_1 <- as.integer(LASA1C$friendscf)
soc_LASA1_1$soc_sn_freq_friends_1 <-car::recode(soc_LASA1_1$soc_sn_freq_friends_1, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" ) 

table(soc_LASA1_1$soc_sn_freq_friends_1) 
summary(soc_LASA1_1$soc_sn_freq_friends_1) 

``` 
### **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**:  complete
**Harmonization comment**: Study specific variable is the highest contact frequency reported with any friends identified in participant's social network (e.g. if participant has 4 friends and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with friends.)    
**R script**:  
```{r, echo=TRUE}
table(LASA1D$friendscf) 
summary(LASA1D$friendscf)
soc_LASA1_2$soc_sn_freq_friends_2 <- as.integer(LASA1D$friendscf)
soc_LASA1_2$soc_sn_freq_friends_2 <-car::recode(soc_LASA1_2$soc_sn_freq_friends_2, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" ) 
 
table(soc_LASA1_2$soc_sn_freq_friends_2) 
summary(soc_LASA1_2$soc_sn_freq_friends_2) 

``` 
### **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**:  complete
**Harmonization comment**: Study specific variable is the highest contact frequency reported with any friends identified in participant's social network (e.g. if participant has 4 friends and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with friends.)   
**R script**:  
```{r, echo=TRUE}
table(LASA1E$friendscf) 
summary(LASA1E$friendscf)
soc_LASA1_3$soc_sn_freq_friends_3 <- as.integer(LASA1E$friendscf)
soc_LASA1_3$soc_sn_freq_friends_3 <-car::recode(soc_LASA1_3$soc_sn_freq_friends_3, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" ) 
 
table(soc_LASA1_3$soc_sn_freq_friends_3) 
summary(soc_LASA1_3$soc_sn_freq_friends_3) 

``` 
### **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**:  complete
**Harmonization comment**: Study specific variable is the highest contact frequency reported with any friends identified in participant's social network (e.g. if participant has 4 friends and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with friends.)   
**R script**:  
```{r, echo=TRUE}
table(LASA1F$friendscf) 
summary(LASA1F$friendscf)
soc_LASA1_4$soc_sn_freq_friends_4 <- as.integer(LASA1F$friendscf)
soc_LASA1_4$soc_sn_freq_friends_4 <-car::recode(soc_LASA1_4$soc_sn_freq_friends_4, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" ) 
 
table(soc_LASA1_4$soc_sn_freq_friends_4) 
summary(soc_LASA1_4$soc_sn_freq_friends_4) 

``` 
### **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**:  complete
**Harmonization comment**: Study specific variable is the highest contact frequency reported with any friends identified in participant's social network (e.g. if participant has 4 friends and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with friends.)    
**R script**:  
```{r, echo=TRUE}
table(LASA1G$friendscf) 
summary(LASA1G$friendscf)
soc_LASA1_5$soc_sn_freq_friends_5 <- as.integer(LASA1G$friendscf)
soc_LASA1_5$soc_sn_freq_friends_5 <-car::recode(soc_LASA1_5$soc_sn_freq_friends_5, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" ) 
 
table(soc_LASA1_5$soc_sn_freq_friends_5) 
summary(soc_LASA1_5$soc_sn_freq_friends_5) 

``` 
### **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**:  complete
**Harmonization comment**: Study specific variable is the highest contact frequency reported with any friends identified in participant's social network (e.g. if participant has 4 friends and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with friends.)    
**R script**:  
```{r, echo=TRUE}
table(LASA1H$friendscf) 
summary(LASA1H$friendscf)
soc_LASA1_6$soc_sn_freq_friends_6 <- as.integer(LASA1H$friendscf)
soc_LASA1_6$soc_sn_freq_friends_6 <-car::recode(soc_LASA1_6$soc_sn_freq_friends_6, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" ) 
 
table(soc_LASA1_6$soc_sn_freq_friends_6) 
summary(soc_LASA1_6$soc_sn_freq_friends_6) 

``` 
### **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**:  Study-specific variable asks about the number of neighbours.      
**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**:  Study-specific variable asks about the number of neighbours.      
**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**:  Study-specific variable asks about the number of neighbours.      
**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**:  Study-specific variable asks about the number of neighbours.      
**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**:  Study-specific variable asks about the number of neighbours.      
**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**:  Study-specific variable asks about the number of neighbours.      
**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**:  Study-specific variable asks about the number of neighbours.      
**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**: complete 
**Harmonization comment**: Study specific variable uses highest contact frequency reported with any neighbours identified in their social network (e.g. if participant has 4 neighbours and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with neighbours.)   
**R script**:  
```{r, echo=TRUE}
table(LASA1B$neighbourscf) 
summary(LASA1B$neighbourscf)
soc_LASA1_0$soc_sn_freq_nbhs_0 <- as.integer(LASA1B$neighbourscf)
soc_LASA1_0$soc_sn_freq_nbhs_0 <- car::recode(soc_LASA1_0$soc_sn_freq_nbhs_0, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L")

table(soc_LASA1_0$soc_sn_freq_nbhs_0) 
summary(soc_LASA1_0$soc_sn_freq_nbhs_0) 
``` 
### **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**: complete 
**Harmonization comment**: Study specific variable uses highest contact frequency reported with any neighbours identified in their social network (e.g. if participant has 4 neighbours and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with neighbours.)  
**R script**:  
```{r, echo=TRUE}
table(LASA1C$neighbourscf) 
summary(LASA1C$neighbourscf)
soc_LASA1_1$soc_sn_freq_nbhs_1 <- as.integer(LASA1C$neighbourscf)
soc_LASA1_1$soc_sn_freq_nbhs_1 <- car::recode(soc_LASA1_1$soc_sn_freq_nbhs_1, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L")

table(soc_LASA1_1$soc_sn_freq_nbhs_1) 
summary(soc_LASA1_1$soc_sn_freq_nbhs_1)

```
### **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**: complete 
**Harmonization comment**: Study specific variable uses highest contact frequency reported with any neighbours identified in their social network (e.g. if participant has 4 neighbours and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with neighbours.)   
**R script**:  
```{r, echo=TRUE}
table(LASA1D$neighbourscf) 
summary(LASA1D$neighbourscf)
soc_LASA1_2$soc_sn_freq_nbhs_2 <- as.integer(LASA1D$neighbourscf)
soc_LASA1_2$soc_sn_freq_nbhs_2 <- car::recode(soc_LASA1_2$soc_sn_freq_nbhs_2, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L")


table(soc_LASA1_2$soc_sn_freq_nbhs_2) 
summary(soc_LASA1_2$soc_sn_freq_nbhs_2)

```
### **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**: complete 
**Harmonization comment**: Study specific variable uses highest contact frequency reported with any neighbours identified in their social network (e.g. if participant has 4 neighbours and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with neighbours.)    
**R script**:  
```{r, echo=TRUE}
table(LASA1E$neighbourscf) 
summary(LASA1E$neighbourscf)
soc_LASA1_3$soc_sn_freq_nbhs_3 <- as.integer(LASA1E$neighbourscf)
soc_LASA1_3$soc_sn_freq_nbhs_3 <- car::recode(soc_LASA1_3$soc_sn_freq_nbhs_3, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L")

table(soc_LASA1_3$soc_sn_freq_nbhs_3) 
summary(soc_LASA1_3$soc_sn_freq_nbhs_3)

```
### **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**: complete 
**Harmonization comment**: Study specific variable uses highest contact frequency reported with any neighbours identified in their social network (e.g. if participant has 4 neighbours and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with neighbours.)   
**R script**:  
```{r, echo=TRUE}
table(LASA1F$neighbourscf) 
summary(LASA1F$neighbourscf)
soc_LASA1_4$soc_sn_freq_nbhs_4 <- as.integer(LASA1F$neighbourscf)
soc_LASA1_4$soc_sn_freq_nbhs_4 <- car::recode(soc_LASA1_4$soc_sn_freq_nbhs_4, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L")


table(soc_LASA1_4$soc_sn_freq_nbhs_4) 
summary(soc_LASA1_4$soc_sn_freq_nbhs_4)

```
### **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**: complete 
**Harmonization comment**: Study specific variable uses highest contact frequency reported with any neighbours identified in their social network (e.g. if participant has 4 neighbours and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with neighbours.)  
**R script**:  
```{r, echo=TRUE}
table(LASA1G$neighbourscf) 
summary(LASA1G$neighbourscf)
soc_LASA1_5$soc_sn_freq_nbhs_5 <- as.integer(LASA1G$neighbourscf)
soc_LASA1_5$soc_sn_freq_nbhs_5 <- car::recode(soc_LASA1_5$soc_sn_freq_nbhs_5, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L")

table(soc_LASA1_5$soc_sn_freq_nbhs_5) 
summary(soc_LASA1_5$soc_sn_freq_nbhs_5)

```
### **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**: complete 
**Harmonization comment**: Study specific variable uses highest contact frequency reported with any neighbours identified in their social network (e.g. if participant has 4 neighbours and is in touch weekly  with 3 of them  but in touch daily with the 4th, then they are coded as having daily contact with neighbours.)   
**R script**:  
```{r, echo=TRUE}
table(LASA1H$neighbourscf) 
summary(LASA1H$neighbourscf)
soc_LASA1_6$soc_sn_freq_nbhs_6 <- as.integer(LASA1H$neighbourscf)
soc_LASA1_6$soc_sn_freq_nbhs_6 <- car::recode(soc_LASA1_6$soc_sn_freq_nbhs_6, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L")

table(soc_LASA1_6$soc_sn_freq_nbhs_6) 
summary(soc_LASA1_6$soc_sn_freq_nbhs_6)

```
### **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**:   
**Variable unit**: relatives     
**Category coding**:   

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

**Harmonization status**:  impossible  
**Harmonization comment**:   Study specific variables includes the following types of social network members which do not live in the household: partner, child (biological, of partner, step, adoptive, child-in-law), sibling, parents, parents-in-law, grandchildren, partner of grandchild, cousin, niece, nephew, uncle/aunt, other kin). 

**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**:   
**Variable unit**:  relatives    
**Category coding**:   

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

**Harmonization status**:  impossible  
**Harmonization comment**:   Study specific variables includes the following types of social network members which do not live in the household: partner, child (biological, of partner, step, adoptive, child-in-law), sibling, parents, parents-in-law, grandchildren, partner of grandchild, cousin, niece, nephew, uncle/aunt, other kin). 

**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**:   
**Variable unit**:  relatives      
**Category coding**:   

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

**Harmonization status**:  impossible  
**Harmonization comment**:   Study specific variables includes the following types of social network members which do not live in the household: partner, child (biological, of partner, step, adoptive, child-in-law), sibling, parents, parents-in-law, grandchildren, partner of grandchild, cousin, niece, nephew, uncle/aunt, other kin). 

**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**:    
**Variable unit**: relatives        
**Category coding**:   

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

**Harmonization status**:  impossible  
**Harmonization comment**:   Study specific variables includes the following types of social network members which do not live in the household: partner, child (biological, of partner, step, adoptive, child-in-law), sibling, parents, parents-in-law, grandchildren, partner of grandchild, cousin, niece, nephew, uncle/aunt, other kin). 

**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**:    
**Variable unit**: relatives       
**Category coding**:   

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

**Harmonization status**:  impossible  
**Harmonization comment**:   Study specific variables includes the following types of social network members which do not live in the household: partner, child (biological, of partner, step, adoptive, child-in-law), sibling, parents, parents-in-law, grandchildren, partner of grandchild, cousin, niece, nephew, uncle/aunt, other kin). 

**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**:   
**Variable unit**:  relatives      
**Category coding**:   

**Code** | **Category Label**  
------------- | -------------  
1 |  None
2 |  1 or 2
3 |  3 to 5
4 |  6 to 10
5 |  11 to 20 
6 |  More than 20
   
**Harmonization status**:  impossible  
**Harmonization comment**:   Study specific variables includes the following types of social network members which do not live in the household: partner, child (biological, of partner, step, adoptive, child-in-law), sibling, parents, parents-in-law, grandchildren, partner of grandchild, cousin, niece, nephew, uncle/aunt, other kin). 

**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**:   
**Variable unit**: relatives       
**Category coding**:   

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

***Harmonization status**:  impossible  
**Harmonization comment**:   Study specific variables includes the following types of social network members which do not live in the household: partner, child (biological, of partner, step, adoptive, child-in-law), sibling, parents, parents-in-law, grandchildren, partner of grandchild, cousin, niece, nephew, uncle/aunt, other kin). 

**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**:  complete
**Harmonization comment**:  Study specific variable uses highest contact frequency reported with any family member and it includes the following types of social network members which might live in the household: partner, child (biological, of partner, step, adoptive, child-in-law, sibling, parents, parents-in-law, grandchildren, partner of grandchild, cousin, niece, nephew, uncle/aunt, other kin).  
**R script**:  
```{r, echo=TRUE}
table(LASA1B$familycf) 
summary(LASA1B$familycf)
soc_LASA1_0$soc_sn_freq_close_relatives_0 <- as.integer(LASA1B$familycf)
soc_LASA1_0$soc_sn_freq_close_relatives_0 <- car::recode(soc_LASA1_0$soc_sn_freq_close_relatives_0, "4=3L; 3=2L; 2=1L; 1=1L")

table(soc_LASA1_0$soc_sn_freq_close_relatives_0) 
summary(soc_LASA1_0$soc_sn_freq_close_relatives_0) 

```
### **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 variable includes the following types of social network members:  friends, neighbours, former colleagues, person they know through volunteer work, voluntary organizations or educational activities (excludes acquaintances). 
**R script**:  
```{r, echo=TRUE}

table(LASA1B$nnonkin) 
summary(LASA1B$nnonkin)
soc_LASA1_0$soc_sn_num_nonkin_0 <- as.integer(LASA1B$nnonkin)
 
 
table(soc_LASA1_0$soc_sn_num_nonkin_0) 
summary(soc_LASA1_0$soc_sn_num_nonkin_0) 

```
### **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 variable includes the following types of social network members:  friends, neighbours, former colleagues, person they know through volunteer work, voluntary organizations or educational activities (excludes acquaintances).   
**R script**:  
```{r, echo=TRUE}
table(LASA1C$nnonkin) 
summary(LASA1C$nnonkin)
soc_LASA1_1$soc_sn_num_nonkin_1 <- as.integer(LASA1C$nnonkin)
 
table(soc_LASA1_1$soc_sn_num_nonkin_1) 
summary(soc_LASA1_1$soc_sn_num_nonkin_1) 

```
### **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**:  complete
**Harmonization comment**:  Study specific variable includes the following types of social network members:  friends, neighbours, former colleagues, person they know through volunteer work, voluntary organizations or educational activities (excludes acquaintances).  
**R script**:  
```{r, echo=TRUE}
table(LASA1D$nnonkin) 
summary(LASA1D$nnonkin)
soc_LASA1_2$soc_sn_num_nonkin_2 <- as.integer(LASA1D$nnonkin)
 
table(soc_LASA1_2$soc_sn_num_nonkin_2) 
summary(soc_LASA1_2$soc_sn_num_nonkin_2) 

```
### **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**:  complete
**Harmonization comment**:  Study specific variable includes the following types of social network members:  friends, neighbours, former colleagues, person they know through volunteer work, voluntary organizations or educational activities (excludes acquaintances).   
**R script**:  
```{r, echo=TRUE}
table(LASA1E$nnonkin) 
summary(LASA1E$nnonkin)
soc_LASA1_3$soc_sn_num_nonkin_3 <- as.integer(LASA1E$nnonkin)
 
table(soc_LASA1_3$soc_sn_num_nonkin_3) 
summary(soc_LASA1_3$soc_sn_num_nonkin_3) 

```
### **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**:  complete
**Harmonization comment**:  Study specific variable includes the following types of social network members:  friends, neighbours, former colleagues, person they know through volunteer work, voluntary organizations or educational activities (excludes acquaintances).   
**R script**:  
```{r, echo=TRUE}
table(LASA1F$nnonkin) 
summary(LASA1F$nnonkin)
soc_LASA1_4$soc_sn_num_nonkin_4 <- as.integer(LASA1F$nnonkin)
 
table(soc_LASA1_4$soc_sn_num_nonkin_4) 
summary(soc_LASA1_4$soc_sn_num_nonkin_4) 

```
### **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**:  complete
**Harmonization comment**:  Study specific variable includes the following types of social network members:  friends, neighbours, former colleagues, person they know through volunteer work, voluntary organizations or educational activities (excludes acquaintances).   
**R script**:  
```{r, echo=TRUE}
table(LASA1G$nnonkin) 
summary(LASA1G$nnonkin)
soc_LASA1_5$soc_sn_num_nonkin_5 <- as.integer(LASA1G$nnonkin)
 
table(soc_LASA1_5$soc_sn_num_nonkin_5) 
summary(soc_LASA1_5$soc_sn_num_nonkin_5) 

```
### **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**:  complete
**Harmonization comment**:  Study specific variable includes the following types of social network members:  friends, neighbours, former colleagues, person they know through volunteer work, voluntary organizations or educational activities (excludes acquaintances).   
**R script**:  
```{r, echo=TRUE}
table(LASA1H$nnonkin) 
summary(LASA1H$nnonkin)
soc_LASA1_6$soc_sn_num_nonkin_6 <- as.integer(LASA1H$nnonkin)
 
table(soc_LASA1_6$soc_sn_num_nonkin_6) 
summary(soc_LASA1_6$soc_sn_num_nonkin_6) 

```

### **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**:  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1B$nonkincf) 
summary(LASA1B$nonkincf)
soc_LASA1_0$soc_sn_freq_nonkin_0 <- as.integer(LASA1B$nonkincf)
soc_LASA1_0$soc_sn_freq_nonkin_0 <-car::recode(soc_LASA1_0$soc_sn_freq_nonkin_0, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" )
 
table(soc_LASA1_0$soc_sn_freq_nonkin_0) 
summary(soc_LASA1_0$soc_sn_freq_nonkin_0) 
```
### **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**:  complete
**Harmonization comment**:   Study specific variable uses highest contact frequency reported with any non-kin member in participant's social network. 
**R script**:  
```{r, echo=TRUE}
table(LASA1C$nonkincf) 
summary(LASA1C$nonkincf)
soc_LASA1_1$soc_sn_freq_nonkin_1 <- as.integer(LASA1C$nonkincf)
soc_LASA1_1$soc_sn_freq_nonkin_1 <-car::recode(soc_LASA1_1$soc_sn_freq_nonkin_1, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" )
 
table(soc_LASA1_1$soc_sn_freq_nonkin_1) 
summary(soc_LASA1_1$soc_sn_freq_nonkin_1)
```
### **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**:  complete
**Harmonization comment**:   Study specific variable uses highest contact frequency reported with any non-kin member in participant's social network. 
**R script**:  
```{r, echo=TRUE}
table(LASA1D$nonkincf) 
summary(LASA1D$nonkincf)
soc_LASA1_2$soc_sn_freq_nonkin_2 <- as.integer(LASA1D$nonkincf)
soc_LASA1_2$soc_sn_freq_nonkin_2 <-car::recode(soc_LASA1_2$soc_sn_freq_nonkin_2, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" )
 
table(soc_LASA1_2$soc_sn_freq_nonkin_2) 
summary(soc_LASA1_2$soc_sn_freq_nonkin_2)

```
### **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**:  complete
**Harmonization comment**:   Study specific variable uses highest contact frequency reported with any non-kin member in participant's social network. 
**R script**:  
```{r, echo=TRUE}
table(LASA1E$nonkincf) 
summary(LASA1E$nonkincf)
soc_LASA1_3$soc_sn_freq_nonkin_3 <- as.integer(LASA1E$nonkincf)
soc_LASA1_3$soc_sn_freq_nonkin_3 <-car::recode(soc_LASA1_3$soc_sn_freq_nonkin_3, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" )
 
table(soc_LASA1_3$soc_sn_freq_nonkin_3) 
summary(soc_LASA1_3$soc_sn_freq_nonkin_3)

```
### **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**:  complete
**Harmonization comment**:   Study specific variable uses highest contact frequency reported with any non-kin member in participant's social network.  
**R script**:  
```{r, echo=TRUE}
table(LASA1F$nonkincf) 
summary(LASA1F$nonkincf)
soc_LASA1_4$soc_sn_freq_nonkin_4 <- as.integer(LASA1F$nonkincf)
soc_LASA1_4$soc_sn_freq_nonkin_4 <-car::recode(soc_LASA1_4$soc_sn_freq_nonkin_4, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" )
 
table(soc_LASA1_4$soc_sn_freq_nonkin_4) 
summary(soc_LASA1_4$soc_sn_freq_nonkin_4)

```
### **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**:  complete
**Harmonization comment**:   Study specific variable uses highest contact frequency reported with any non-kin member in participant's social network.  
**R script**:  
```{r, echo=TRUE}
table(LASA1G$nonkincf) 
summary(LASA1G$nonkincf)
soc_LASA1_5$soc_sn_freq_nonkin_5 <- as.integer(LASA1G$nonkincf)
soc_LASA1_5$soc_sn_freq_nonkin_5 <-car::recode(soc_LASA1_5$soc_sn_freq_nonkin_5, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" )
 
table(soc_LASA1_5$soc_sn_freq_nonkin_5) 
summary(soc_LASA1_5$soc_sn_freq_nonkin_5)

```
### **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**:  complete
**Harmonization comment**:   Study specific variable uses highest contact frequency reported with any non-kin member in participant's social network.   
**R script**:  
```{r, echo=TRUE}
table(LASA1H$nonkincf) 
summary(LASA1H$nonkincf)
soc_LASA1_6$soc_sn_freq_nonkin_6 <- as.integer(LASA1H$nonkincf)
soc_LASA1_6$soc_sn_freq_nonkin_6 <-car::recode(soc_LASA1_6$soc_sn_freq_nonkin_6, "5=3L; 4=2L; 3=1L; 2=1L; 1=1L" )
 
table(soc_LASA1_6$soc_sn_freq_nonkin_6) 
summary(soc_LASA1_6$soc_sn_freq_nonkin_6)

```
# 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**:  complete
**Harmonization comment**: Confidants are not identified in this wave hence the top 3 most frequent contacts are picked as sources of received emotional support. If the participant reported receiving emotional support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received emotional support, otherwise if they reported 'sometimes' receiving emotional support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received emotional support, otherwise if they reported receiving emotional support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received emotional support. In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1B)
table(LASA1B$rec_emo_conf1, useNA="always")
table(LASA1B$rec_emo_conf2, useNA="always")
table(LASA1B$rec_emo_conf3, useNA="always")

soc_LASA1_0$soc_ss_received_emo_0 <-do.call( pmax, c(LASA1B[51:53], na.rm=T ))
soc_LASA1_0$soc_ss_received_emo_0 <- car::recode(soc_LASA1_0$soc_ss_received_emo_0, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_0$soc_ss_received_emo_0, useNA="always") 
summary(soc_LASA1_0$soc_ss_received_emo_0)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving emotional support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received emotional support, otherwise if they reported 'sometimes' receiving emotional support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received emotional support, otherwise if they reported receiving emotional support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received emotional support. In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant.   
**R script**:  
```{r, echo=TRUE}
colnames(LASA1C)
table(LASA1C$rec_emo_conf1, useNA="always")
table(LASA1C$rec_emo_conf2, useNA="always")
table(LASA1C$rec_emo_conf3, useNA="always")


soc_LASA1_1$soc_ss_received_emo_1 <-do.call( pmax, c(LASA1C[61:63], na.rm=T ))
soc_LASA1_1$soc_ss_received_emo_1 <- car::recode(soc_LASA1_1$soc_ss_received_emo_1, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_1$soc_ss_received_emo_1, useNA="always") 
summary(soc_LASA1_1$soc_ss_received_emo_1)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving emotional support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received emotional support, otherwise if they reported 'sometimes' receiving emotional support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received emotional support, otherwise if they reported receiving emotional support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received emotional support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1D)
table(LASA1D$rec_emo_conf1, useNA="always")
table(LASA1D$rec_emo_conf2, useNA="always")
table(LASA1D$rec_emo_conf3, useNA="always")


soc_LASA1_2$soc_ss_received_emo_2 <-do.call( pmax, c(LASA1D[61:63], na.rm=T ))
soc_LASA1_2$soc_ss_received_emo_2 <- car::recode(soc_LASA1_2$soc_ss_received_emo_2, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_2$soc_ss_received_emo_2) 
summary(soc_LASA1_2$soc_ss_received_emo_2)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving emotional support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received emotional support, otherwise if they reported 'sometimes' receiving emotional support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received emotional support, otherwise if they reported receiving emotional support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received emotional support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}

colnames(LASA1E)
table(LASA1E$rec_emo_conf1, useNA="always")
table(LASA1E$rec_emo_conf2, useNA="always")
table(LASA1E$rec_emo_conf3, useNA="always")

soc_LASA1_3$soc_ss_received_emo_3  <-do.call( pmax, c(LASA1E[60:62], na.rm=T ))
soc_LASA1_3$soc_ss_received_emo_3  <- car::recode(soc_LASA1_3$soc_ss_received_emo_3 , "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_3$soc_ss_received_emo_3) 
summary(soc_LASA1_3$soc_ss_received_emo_3)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving emotional support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received emotional support, otherwise if they reported 'sometimes' receiving emotional support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received emotional support, otherwise if they reported receiving emotional support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received emotional support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1F)
table(LASA1F$rec_emo_conf1, useNA="always")
table(LASA1F$rec_emo_conf2, useNA="always")
table(LASA1F$rec_emo_conf3, useNA="always")

soc_LASA1_4$soc_ss_received_emo_4  <-do.call( pmax, c(LASA1F[62:64], na.rm=T ))
soc_LASA1_4$soc_ss_received_emo_4  <- car::recode(soc_LASA1_4$soc_ss_received_emo_4 , "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_4$soc_ss_received_emo_4) 
summary(soc_LASA1_4$soc_ss_received_emo_4)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving emotional support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received emotional support, otherwise if they reported 'sometimes' receiving emotional support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received emotional support, otherwise if they reported receiving emotional support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received emotional support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1G)
table(LASA1G$rec_emo_conf1, useNA="always")
table(LASA1G$rec_emo_conf2, useNA="always")
table(LASA1G$rec_emo_conf3, useNA="always")

soc_LASA1_5$soc_ss_received_emo_5  <-do.call( pmax, c(LASA1G[66:68], na.rm=T ))
soc_LASA1_5$soc_ss_received_emo_5  <- car::recode(soc_LASA1_5$soc_ss_received_emo_5, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_5$soc_ss_received_emo_5) 
summary(soc_LASA1_5$soc_ss_received_emo_5)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving emotional support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received emotional support, otherwise if they reported 'sometimes' receiving emotional support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received emotional support, otherwise if they reported receiving emotional support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received emotional support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1H)
table(LASA1H$rec_emo_conf1, useNA="always")
table(LASA1H$rec_emo_conf2, useNA="always")
table(LASA1H$rec_emo_conf3, useNA="always")

soc_LASA1_6$soc_ss_received_emo_6  <-do.call( pmax, c(LASA1H[60:62], na.rm=T ))
soc_LASA1_6$soc_ss_received_emo_6  <- car::recode(soc_LASA1_6$soc_ss_received_emo_6, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_6$soc_ss_received_emo_6) 
summary(soc_LASA1_6$soc_ss_received_emo_6)
```
### **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**:  complete
**Harmonization comment**:  If the participant reported receiving instrumental support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received instrumental support, otherwise if they reported 'sometimes' receiving instrumental support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received instrumental support, otherwise if they reported receiving instrumental support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received instrumental support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1B)

soc_LASA1_0$soc_ss_received_instru_0<-do.call( pmax, c(LASA1B[54:56], na.rm=T ))
soc_LASA1_0$soc_ss_received_instru_0 <- car::recode(soc_LASA1_0$soc_ss_received_instru_0, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_0$soc_ss_received_instru_0, useNA="always") 
summary(soc_LASA1_0$soc_ss_received_instru_0)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving instrumental support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received instrumental support, otherwise if they reported 'sometimes' receiving instrumental support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received instrumental support, otherwise if they reported receiving instrumental support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received instrumental support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1C)

soc_LASA1_1$soc_ss_received_instru_1 <-do.call( pmax, c(LASA1C[64:66], na.rm=T ))
soc_LASA1_1$soc_ss_received_instru_1 <- car::recode(soc_LASA1_1$soc_ss_received_instru_1, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_1$soc_ss_received_instru_1, useNA="always") 
summary(soc_LASA1_1$soc_ss_received_instru_1)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving instrumental support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received instrumental support, otherwise if they reported 'sometimes' receiving instrumental support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received instrumental support, otherwise if they reported receiving instrumental support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received instrumental support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1D)

soc_LASA1_2$soc_ss_received_instru_2 <-do.call( pmax, c(LASA1D[64:66], na.rm=T ))
soc_LASA1_2$soc_ss_received_instru_2 <- car::recode(soc_LASA1_2$soc_ss_received_instru_2, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_2$soc_ss_received_instru_2) 
summary(soc_LASA1_2$soc_ss_received_instru_2)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving instrumental support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received instrumental support, otherwise if they reported 'sometimes' receiving instrumental support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received instrumental support, otherwise if they reported receiving instrumental support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received instrumental support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1E)

soc_LASA1_3$soc_ss_received_instru_3 <-do.call( pmax, c(LASA1E[63:65], na.rm=T ))
soc_LASA1_3$soc_ss_received_instru_3 <- car::recode(soc_LASA1_3$soc_ss_received_instru_3, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_3$soc_ss_received_instru_3) 
summary(soc_LASA1_3$soc_ss_received_instru_3)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving instrumental support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received instrumental support, otherwise if they reported 'sometimes' receiving instrumental support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received instrumental support, otherwise if they reported receiving instrumental support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received instrumental support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1F)

soc_LASA1_4$soc_ss_received_instru_4 <-do.call( pmax, c(LASA1F[65:67], na.rm=T ))
soc_LASA1_4$soc_ss_received_instru_4 <- car::recode(soc_LASA1_4$soc_ss_received_instru_4, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_4$soc_ss_received_instru_4) 
summary(soc_LASA1_4$soc_ss_received_instru_4)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving instrumental support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received instrumental support, otherwise if they reported 'sometimes' receiving instrumental support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received instrumental support, otherwise if they reported receiving instrumental support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received instrumental support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1G)

soc_LASA1_5$soc_ss_received_instru_5 <-do.call( pmax, c(LASA1G[69:71], na.rm=T ))
soc_LASA1_5$soc_ss_received_instru_5 <- car::recode(soc_LASA1_5$soc_ss_received_instru_5, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_5$soc_ss_received_instru_5) 
summary(soc_LASA1_5$soc_ss_received_instru_5)

```
### **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**:  complete
**Harmonization comment**: If the participant reported receiving instrumental support 'often' from any 1 of 3 top most frequent contacts, the harmonized variable is categorized as 2 | Often received instrumental support, otherwise if they reported 'sometimes' receiving instrumental support from any 1 of the 3 contacts, the harmonized variable is coded as  1 |  Sometimes received instrumental support, otherwise if they reported receiving instrumental support 'seldom' or 'never' from all 3 contacts, they were categorized under 0 |  Never received instrumental support.  In case participant reported as only having 1 or 2 confidants instead of 3, then only support from the first confidant, or the first 2 confidants, is used to categorize support received per participant. 
**R script**:  
```{r, echo=TRUE}
colnames(LASA1H)

soc_LASA1_6$soc_ss_received_instru_6 <-do.call( pmax, c(LASA1H[63:65], na.rm=T ))
soc_LASA1_6$soc_ss_received_instru_6 <- car::recode(soc_LASA1_6$soc_ss_received_instru_6, "4=2L; 3=1L; 2=0L; 1=0L" )

table(soc_LASA1_6$soc_ss_received_instru_6) 
summary(soc_LASA1_6$soc_ss_received_instru_6)

```
### **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**:  integer  
**Variable unit**:  
**Category coding**:  

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable is composed of 5 items (1: There is always someone I can talk to about my day-to-day problems, 4:There are plenty of people I can lean on when I have problems, 7:There are many people I can trust completely, 8:There are enough people I feel close to, 11:	I can call on my friends whenever I need them) of the 11-item De Jong Gierveld scale.  Items were not reverse coded so that a higher Z-score indicates higher perceived emotional support.   
**R script**:  
```{r, echo=TRUE}

table(LASA1B$blo1)  # 3= yes 2 sometimes 1= no 
table(LASA1B$blo4)  # 3= yes 2 sometimes 1= no  
table(LASA1B$blo7)  # 3= yes 2 sometimes 1= no  
table(LASA1B$blo8)  # 3= yes 2 sometimes 1= no  
table(LASA1B$blo11)  # 3= yes 2 sometimes 1= no  

#recode negative answers as as NAs
LASA1B$blo1_r <- car::recode(LASA1B$blo1, "-1=NA; -3=NA; -4=NA")
LASA1B$blo4_r <- car::recode(LASA1B$blo4, "-1=NA; -3=NA; -4=NA")
LASA1B$blo7_r <- car::recode(LASA1B$blo7, "-1=NA; -3=NA; -4=NA")
LASA1B$blo8_r <- car::recode(LASA1B$blo8, "-1=NA; -3=NA; -4=NA")
LASA1B$blo11_r <- car::recode(LASA1B$blo11, "-1=NA; -3=NA; -4=NA")

table(LASA1B$blo1_r)  # 3= yes 2 sometimes 1= no 
summary(LASA1B$blo1_r)  # 3= yes 2 sometimes 1= no 
table(LASA1B$blo4_r)  # 3= yes 2 sometimes 1= no  
table(LASA1B$blo7_r)  # 3= yes 2 sometimes 1= no  
table(LASA1B$blo8_r)  # 3= yes 2 sometimes 1= no  
table(LASA1B$blo11_r)  # 3= yes 2 sometimes 1= no

LASA1B$soc_ss_Zscore_perceived_emo_0_inter <- (LASA1B$blo1_r + LASA1B$blo4_r + LASA1B$blo7_r + LASA1B$blo8_r + LASA1B$blo11_r)

table(LASA1B$soc_ss_Zscore_perceived_emo_0_inter) 
summary(LASA1B$soc_ss_Zscore_perceived_emo_0_inter) 

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

table(soc_LASA1_0$soc_ss_Zscore_perceived_emo_0) 
summary(soc_LASA1_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 from the participant's three social network members that they indicated they are closest to.  
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable is composed of 5 items (1: There is always someone I can talk to about my day-to-day problems, 4:There are plenty of people I can lean on when I have problems, 7:There are many people I can trust completely, 8:There are enough people I feel close to, 11:	I can call on my friends whenever I need them) of the 11-item De Jong Gierveld scale.  Items were not reverse coded so that a higher Z-score indicates higher perceived emotional support.  
**R script**:  
```{r, echo=TRUE}
#recode negative answers as as NAs
LASA1C$clo1_r <- car::recode(LASA1C$clo1, "-1=NA; -3=NA; -4=NA")
LASA1C$clo4_r <- car::recode(LASA1C$clo4, "-1=NA; -3=NA; -4=NA")
LASA1C$clo7_r <- car::recode(LASA1C$clo7, "-1=NA; -3=NA; -4=NA")
LASA1C$clo8_r <- car::recode(LASA1C$clo8, "-1=NA; -3=NA; -4=NA")
LASA1C$clo11_r <- car::recode(LASA1C$clo11, "-1=NA; -3=NA; -4=NA")

table(LASA1C$clo1_r)  # 3= yes 2 sometimes 1= no 
summary(LASA1C$clo1_r)  # 3= yes 2 sometimes 1= no 
table(LASA1C$clo4_r)  # 3= yes 2 sometimes 1= no  
table(LASA1C$clo7_r)  # 3= yes 2 sometimes 1= no  
table(LASA1C$clo8_r)  # 3= yes 2 sometimes 1= no  
table(LASA1C$clo11_r)  # 3= yes 2 sometimes 1= no

LASA1C$soc_ss_Zscore_perceived_emo_1_inter <- (LASA1C$clo1_r + LASA1C$clo4_r + LASA1C$clo7_r + LASA1C$clo8_r + LASA1C$clo11_r)

table(LASA1C$soc_ss_Zscore_perceived_emo_1_inter) 
summary(LASA1C$soc_ss_Zscore_perceived_emo_1_inter) 

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

table(soc_LASA1_1$soc_ss_Zscore_perceived_emo_1) 
summary(soc_LASA1_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 from the participant's three social network members that they indicated they are closest to.   
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable is composed of 5 items (1: There is always someone I can talk to about my day-to-day problems, 4:There are plenty of people I can lean on when I have problems, 7:There are many people I can trust completely, 8:There are enough people I feel close to, 11:	I can call on my friends whenever I need them) of the 11-item De Jong Gierveld scale.  Items were not reverse coded so that a higher Z-score indicates higher perceived emotional support. 
**R script**:  
```{r, echo=TRUE}
LASA1D$dlo1_r <- car::recode(LASA1D$dlo1, "-1=NA; -3=NA; -4=NA")
LASA1D$dlo4_r <- car::recode(LASA1D$dlo4, "-1=NA; -3=NA; -4=NA")
LASA1D$dlo7_r <- car::recode(LASA1D$dlo7, "-1=NA; -3=NA; -4=NA")
LASA1D$dlo8_r <- car::recode(LASA1D$dlo8, "-1=NA; -3=NA; -4=NA")
LASA1D$dlo11_r <- car::recode(LASA1D$dlo11, "-1=NA; -3=NA; -4=NA")

table(LASA1D$dlo1_r)  # 3= yes 2 sometimes 1= no 
summary(LASA1D$dlo1_r)  # 3= yes 2 sometimes 1= no 
table(LASA1D$dlo4_r)  # 3= yes 2 sometimes 1= no  
table(LASA1D$dlo7_r)  # 3= yes 2 sometimes 1= no  
table(LASA1D$dlo8_r)  # 3= yes 2 sometimes 1= no  
table(LASA1D$dlo11_r)  # 3= yes 2 sometimes 1= no

LASA1D$soc_ss_Zscore_perceived_emo_2_inter <- (LASA1D$dlo1_r + LASA1D$dlo4_r + LASA1D$dlo7_r + LASA1D$dlo8_r + LASA1D$dlo11_r)

table(LASA1D$soc_ss_Zscore_perceived_emo_2_inter) 
summary(LASA1D$soc_ss_Zscore_perceived_emo_2_inter) 

soc_LASA1_2$soc_ss_Zscore_perceived_emo_2 <-as.numeric(scale(LASA1D$soc_ss_Zscore_perceived_emo_2_inter, center = TRUE, scale= TRUE)) 

table(soc_LASA1_2$soc_ss_Zscore_perceived_emo_2) 
summary(soc_LASA1_2$soc_ss_Zscore_perceived_emo_2)
```
### **Variable label**: Perceived emotional support Z-score   
**Variable name**:   soc_ss_Zscore_perceived_emo_3      
**Variable description**: Z-score of perceived emotional support from the participant's three social network members that they indicated they are closest to.  
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable is composed of 5 items (1: There is always someone I can talk to about my day-to-day problems, 4:There are plenty of people I can lean on when I have problems, 7:There are many people I can trust completely, 8:There are enough people I feel close to, 11:	I can call on my friends whenever I need them) of the 11-item De Jong Gierveld scale.  Items were not reverse coded so that a higher Z-score indicates higher perceived emotional support.  
**R script**:  
```{r, echo=TRUE}
LASA1E$elo1_r <- car::recode(LASA1E$elo1, "-1=NA; -3=NA; -4=NA")
LASA1E$elo4_r <- car::recode(LASA1E$elo4, "-1=NA; -3=NA; -4=NA")
LASA1E$elo7_r <- car::recode(LASA1E$elo7, "-1=NA; -3=NA; -4=NA")
LASA1E$elo8_r <- car::recode(LASA1E$elo8, "-1=NA; -3=NA; -4=NA")
LASA1E$elo11_r <- car::recode(LASA1E$elo11, "-1=NA; -3=NA; -4=NA")

table(LASA1E$elo1_r)  # 3= yes 2 sometimes 1= no 
summary(LASA1E$elo1_r)  # 3= yes 2 sometimes 1= no 
table(LASA1E$elo4_r)  # 3= yes 2 sometimes 1= no  
table(LASA1E$elo7_r)  # 3= yes 2 sometimes 1= no  
table(LASA1E$elo8_r)  # 3= yes 2 sometimes 1= no  
table(LASA1E$elo11_r)  # 3= yes 2 sometimes 1= no

LASA1E$soc_ss_Zscore_perceived_emo_3_inter <- (LASA1E$elo1_r + LASA1E$elo4_r + LASA1E$elo7_r + LASA1E$elo8_r + LASA1E$elo11_r)

table(LASA1E$soc_ss_Zscore_perceived_emo_3_inter) 
summary(LASA1E$soc_ss_Zscore_perceived_emo_3_inter) 

soc_LASA1_3$soc_ss_Zscore_perceived_emo_3 <-as.numeric(scale(LASA1E$soc_ss_Zscore_perceived_emo_3_inter, center = TRUE, scale= TRUE)) 

table(soc_LASA1_3$soc_ss_Zscore_perceived_emo_3) 
summary(soc_LASA1_3$soc_ss_Zscore_perceived_emo_3)
```
### **Variable label**: Perceived emotional support Z-score   
**Variable name**:   soc_ss_Zscore_perceived_emo_4       
**Variable description**:  Z-score of perceived emotional support from the participant's three social network members that they indicated they are closest to.  
**Value type**:  integer  
**Variable unit**:  
**Category coding**:     

**Harmonization status**:  complete
**Harmonization comment**: Study specific variable is composed of 5 items (1: There is always someone I can talk to about my day-to-day problems, 4:There are plenty of people I can lean on when I have problems, 7:There are many people I can trust completely, 8:There are enough people I feel close to, 11:	I can call on my friends whenever I need them) of the 11-item De Jong Gierveld scale.  Items were not reverse coded so that a higher Z-score indicates higher perceived emotional support.   
**R script**:  
```{r, echo=TRUE}
LASA1F$flo1_r <- car::recode(LASA1F$flo1, "-1=NA; -3=NA; -4=NA")
LASA1F$flo4_r <- car::recode(LASA1F$flo4, "-1=NA; -3=NA; -4=NA")
LASA1F$flo7_r <- car::recode(LASA1F$flo7, "-1=NA; -3=NA; -4=NA")
LASA1F$flo8_r <- car::recode(LASA1F$flo8, "-1=NA; -3=NA; -4=NA")
LASA1F$flo11_r <- car::recode(LASA1F$flo11, "-1=NA; -3=NA; -4=NA")

table(LASA1F$flo1_r)  # 3= yes 2 sometimes 1= no 
summary(LASA1F$flo1_r)  # 3= yes 2 sometimes 1= no 
table(LASA1F$flo4_r)  # 3= yes 2 sometimes 1= no  
table(LASA1F$flo7_r)  # 3= yes 2 sometimes 1= no  
table(LASA1F$flo8_r)  # 3= yes 2 sometimes 1= no  
table(LASA1F$flo11_r)  # 3= yes 2 sometimes 1= no

LASA1F$soc_ss_Zscore_perceived_emo_4_inter <- (LASA1F$flo1_r + LASA1F$flo4_r + LASA1F$flo7_r + LASA1F$flo8_r + LASA1F$flo11_r)

table(LASA1F$soc_ss_Zscore_perceived_emo_4_inter) 
summary(LASA1F$soc_ss_Zscore_perceived_emo_4_inter) 

soc_LASA1_4$soc_ss_Zscore_perceived_emo_4 <-as.numeric(scale(LASA1F$soc_ss_Zscore_perceived_emo_4_inter, center = TRUE, scale= TRUE)) 

table(soc_LASA1_4$soc_ss_Zscore_perceived_emo_4) 
summary(soc_LASA1_4$soc_ss_Zscore_perceived_emo_4)

```
### **Variable label**: Perceived emotional support Z-score   
**Variable name**:   soc_ss_Zscore_perceived_emo_5        
**Variable description**:  Z-score of perceived emotional support from the participant's three social network members that they indicated they are closest to.  
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable is composed of 5 items (1: There is always someone I can talk to about my day-to-day problems, 4:There are plenty of people I can lean on when I have problems, 7:There are many people I can trust completely, 8:There are enough people I feel close to, 11:	I can call on my friends whenever I need them) of the 11-item De Jong Gierveld scale.  Items were not reverse coded so that a higher Z-score indicates higher perceived emotional support.  
**R script**:  
```{r, echo=TRUE}
LASA1G$glo1_r <- car::recode(LASA1G$glo1, "-1=NA; -3=NA; -4=NA")
LASA1G$glo4_r <- car::recode(LASA1G$glo4, "-1=NA; -3=NA; -4=NA")
LASA1G$glo7_r <- car::recode(LASA1G$glo7, "-1=NA; -3=NA; -4=NA")
LASA1G$glo8_r <- car::recode(LASA1G$glo8, "-1=NA; -3=NA; -4=NA")
LASA1G$glo11_r <- car::recode(LASA1G$glo11, "-1=NA; -3=NA; -4=NA")

table(LASA1G$glo1_r)  # 3= yes 2 sometimes 1= no 
summary(LASA1G$glo1_r)  # 3= yes 2 sometimes 1= no 
table(LASA1G$glo4_r)  # 3= yes 2 sometimes 1= no  
table(LASA1G$glo7_r)  # 3= yes 2 sometimes 1= no  
table(LASA1G$glo8_r)  # 3= yes 2 sometimes 1= no  
table(LASA1G$glo11_r)  # 3= yes 2 sometimes 1= no

LASA1G$soc_ss_Zscore_perceived_emo_5_inter <- (LASA1G$glo1_r + LASA1G$glo4_r + LASA1G$glo7_r + LASA1G$glo8_r + LASA1G$glo11_r)

table(LASA1G$soc_ss_Zscore_perceived_emo_5_inter) 
summary(LASA1G$soc_ss_Zscore_perceived_emo_5_inter) 

soc_LASA1_5$soc_ss_Zscore_perceived_emo_5 <-as.numeric(scale(LASA1G$soc_ss_Zscore_perceived_emo_5_inter, center = TRUE, scale= TRUE)) 

table(soc_LASA1_5$soc_ss_Zscore_perceived_emo_5) 
summary(soc_LASA1_5$soc_ss_Zscore_perceived_emo_5)
```
### **Variable label**: Perceived emotional support Z-score   
**Variable name**:   soc_ss_Zscore_perceived_emo_6        
**Variable description**:  Z-score of perceived emotional support from the participant's three social network members that they indicated they are closest to.  
**Value type**:  integer  
**Variable unit**:  
**Category coding**:  
 
**Harmonization status**: complete 
**Harmonization comment**:  Study specific variable is composed of 5 items (1: There is always someone I can talk to about my day-to-day problems, 4:There are plenty of people I can lean on when I have problems, 7:There are many people I can trust completely, 8:There are enough people I feel close to, 11:	I can call on my friends whenever I need them) of the 11-item De Jong Gierveld scale.  Items were not reverse coded so that a higher Z-score indicates higher perceived emotional support.  
**R script**:  
```{r, echo=TRUE}
LASA1H$Hlo1_r <- car::recode(LASA1H$Hlo1, "-1=NA; -3=NA; -4=NA")
LASA1H$Hlo4_r <- car::recode(LASA1H$Hlo4, "-1=NA; -3=NA; -4=NA")
LASA1H$Hlo7_r <- car::recode(LASA1H$Hlo7, "-1=NA; -3=NA; -4=NA")
LASA1H$Hlo8_r <- car::recode(LASA1H$Hlo8, "-1=NA; -3=NA; -4=NA")
LASA1H$Hlo11_r <- car::recode(LASA1H$Hlo11, "-1=NA; -3=NA; -4=NA")

table(LASA1H$Hlo1_r)  # 3= yes 2 sometimes 1= no 
summary(LASA1H$Hlo1_r)  # 3= yes 2 sometimes 1= no 
table(LASA1H$Hlo4_r)  # 3= yes 2 sometimes 1= no  
table(LASA1H$Hlo7_r)  # 3= yes 2 sometimes 1= no  
table(LASA1H$Hlo8_r)  # 3= yes 2 sometimes 1= no  
table(LASA1H$Hlo11_r)  # 3= yes 2 sometimes 1= no

LASA1H$soc_ss_Zscore_perceived_emo_6_inter <- (LASA1H$Hlo1_r + LASA1H$Hlo4_r + LASA1H$Hlo7_r + LASA1H$Hlo8_r + LASA1H$Hlo11_r)

table(LASA1H$soc_ss_Zscore_perceived_emo_6_inter) 
summary(LASA1H$soc_ss_Zscore_perceived_emo_6_inter) 

soc_LASA1_6$soc_ss_Zscore_perceived_emo_6 <-as.numeric(scale(LASA1H$soc_ss_Zscore_perceived_emo_6_inter, center = TRUE, scale= TRUE)) 

table(soc_LASA1_6$soc_ss_Zscore_perceived_emo_6) 
summary(soc_LASA1_6$soc_ss_Zscore_perceived_emo_6)
```
### **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 is based on one item that asks: "If you were sick, would there be someone available to help you out?" If respondent answered "myself", they are not categorized as feeling that tangible help is available. Respondents that did not answer this question because they have stated previously that they are receiving help (e.g. most likely living in nursing home or similar care residences) are categorized as feeling that tangible help is available.  
**R script**:  
```{r, echo=TRUE}
table(LASA1B$perceived_instru) 
summary(LASA1B$perceived_instru)
soc_LASA1_0$soc_ss_perceived_instru_0 <- as.integer(LASA1B$perceived_instru)

table(soc_LASA1_0$soc_ss_perceived_instru_0) 
summary(soc_LASA1_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 is based on one item that asks: "If you were sick, would there be someone available to help you out?" If respondent answered "myself", they are not categorized as feeling that tangible help is available. Respondents that did not answer this question because they have stated previously that they are receiving help (e.g. most likely living in nursing home or similar care residences) are categorized as feeling that tangible help is available.   
**R script**:  
```{r, echo=TRUE}
table(LASA1C$perceived_instru) 
summary(LASA1C$perceived_instru)
soc_LASA1_1$soc_ss_perceived_instru_1 <- as.integer(LASA1C$perceived_instru)

table(soc_LASA1_1$soc_ss_perceived_instru_1) 
summary(soc_LASA1_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**:  complete
**Harmonization comment**:  Study specific variable is based on one item that asks: "If you were sick, would there be someone available to help you out?" If respondent answered "myself", they are not categorized as feeling that tangible help is available. Respondents that did not answer this question because they have stated previously that they are receiving help (e.g. most likely living in nursing home or similar care residences) are categorized as feeling that tangible help is available.   
**R script**:  
```{r, echo=TRUE}
table(LASA1D$perceived_instru) 
summary(LASA1D$perceived_instru)
soc_LASA1_2$soc_sn_perceived_instru_2 <- as.integer(LASA1D$perceived_instru)

table(soc_LASA1_2$soc_sn_perceived_instru_2) 
summary(soc_LASA1_2$soc_sn_perceived_instru_2)
```
### **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**:  Item that asks: "If you were sick, would there be someone available to help you out?" not measured in E wave
**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**:  complete
**Harmonization comment**:  Study specific variable is based on one item that asks: "If you were sick, would there be someone available to help you out?" If respondent answered "myself", they are not categorized as feeling that tangible help is available. Respondents that did not answer this question because they have stated previously that they are receiving help (e.g. most likely living in nursing home or similar care residences) are categorized as feeling that tangible help is available.   
**R script**:  
```{r, echo=TRUE}
table(LASA1F$perceived_instru) 
summary(LASA1F$perceived_instru)
soc_LASA1_4$soc_sn_perceived_instru_4 <- as.integer(LASA1F$perceived_instru)

table(soc_LASA1_4$soc_sn_perceived_instru_4) 
summary(soc_LASA1_4$soc_sn_perceived_instru_4)
```
### **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**:  complete
**Harmonization comment**:  Study specific variable is based on one item that asks: "If you were sick, would there be someone available to help you out?" If respondent answered "myself", they are not categorized as feeling that tangible help is available. Respondents that did not answer this question because they have stated previously that they are receiving help (e.g. most likely living in nursing home or similar care residences) are categorized as feeling that tangible help is available.   
**R script**:  
```{r, echo=TRUE}
table(LASA1G$perceived_instru) 
summary(LASA1G$perceived_instru)
soc_LASA1_5$soc_sn_perceived_instru_5 <- as.integer(LASA1G$perceived_instru)

table(soc_LASA1_5$soc_sn_perceived_instru_5) 
summary(soc_LASA1_5$soc_sn_perceived_instru_5)
```
### **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**:  complete
**Harmonization comment**:  Study specific variable is based on one item that asks: "If you were sick, would there be someone available to help you out?" If respondent answered "myself", they are not categorized as feeling that tangible help is available. Respondents that did not answer this question because they have stated previously that they are receiving help (e.g. most likely living in nursing home or similar care residences) are categorized as feeling that tangible help is available.   
**R script**:  
```{r, echo=TRUE}
table(LASA1H$perceived_instru) 
summary(LASA1H$perceived_instru)
soc_LASA1_6$soc_sn_perceived_instru_6 <- as.integer(LASA1H$perceived_instru)

table(soc_LASA1_6$soc_sn_perceived_instru_6) 
summary(soc_LASA1_6$soc_sn_perceived_instru_6)
```

# 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**:  complete
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_0$soc_sp_religious_0 <- ifelse(LASA1B$bsocpyn==1|LASA1B$bsocp04==0|LASA1B$bsocp17==1,0L, 
                                         ifelse(LASA1B$bsocp17 ==2,1L, NA))

```
### **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**:  complete
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization.    
**R script**:  
```{r, echo=TRUE}
soc_LASA1_1$soc_sp_religious_1 <- ifelse(LASA1C$csocpyn==1|LASA1C$csocp04==0|LASA1C$csocp17==1,0L, 
                                         ifelse(LASA1C$csocp17 ==2,1L, NA))

```
### **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**:  complete
**Harmonization comment**:   Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_2$soc_sp_religious_2 <- ifelse(LASA1D$dsocpyn==1|LASA1D$dsocp04==0|LASA1D$dsocp17==1,0L, 
                                         ifelse(LASA1D$dsocp17 ==2,1L, NA))

table(soc_LASA1_2$soc_sp_religious_2, useNA="always") 

```
### **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**:  complete
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_3$soc_sp_religious_3<- ifelse(LASA1E$esocpyn==1|LASA1E$esocp04==0|LASA1E$esocp17==1,0L, 
                                         ifelse(LASA1E$esocp17 ==2,1L, NA))

table(soc_LASA1_3$soc_sp_religious_3, useNA="always") 
```
### **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**:  complete
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization.    
**R script**:  
```{r, echo=TRUE}
soc_LASA1_4$soc_sp_religious_4<- ifelse(LASA1F$fsocpyn==1|LASA1F$fsocp04==0|LASA1F$fsocp17==1,0L, 
                                         ifelse(LASA1F$fsocp17 ==2,1L, NA))

table(soc_LASA1_4$soc_sp_religious_4, useNA="always") 
```
### **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**:  complete
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization.    
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gsocp17) 

soc_LASA1_5$soc_sp_religious_5<- ifelse(LASA1G$gsocpyn==1|LASA1G$gsocp04==0|LASA1G$gsocp17==1,0L, 
                                         ifelse(LASA1G$gsocp17 ==2,1L, NA))

table(soc_LASA1_5$soc_sp_religious_5, useNA="always") 

```
### **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**:  complete
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization.    
**R script**:  
```{r, echo=TRUE}

soc_LASA1_6$soc_sp_religious_6<- ifelse(LASA1H$HSOCPYN==1|LASA1H$HSOCP04==0|LASA1H$HSOCP17==1,0L, 
                                         ifelse(LASA1H$HSOCP17 ==2,1L, NA))

table(soc_LASA1_6$soc_sp_religious_6, useNA="always") 

```

### **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**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in an organization for singing, music or theatre. and in cultural organizations (museums and in other cultural centers). The item: do you study (yes/no) is used to identify participation in an educational organization.    
```{r, echo=TRUE}
table(LASA1B$bsocpyn, useNA="always")  #  2= yes 1 = no 
table(LASA1B$bsocp10) 
table(LASA1B$bsocp23) 
table(LASA1B$bsocp55)  

soc_LASA1_0$soc_sp_cultural_edu_0 <- ifelse(LASA1B$bsocp23 ==2 | LASA1B$bsocp55 ==2 ,1L,
                                            ifelse((LASA1B$bsocpyn ==1 | LASA1B$bsocp10 ==0)| 
                                                   (LASA1B$bsocp23 ==1 & LASA1B$bsocp55 ==1),0L,NA))

table(soc_LASA1_0$soc_sp_cultural_edu_0, useNA="always")

```
### **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**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in an organization for singing, music or theatre. and in cultural organizations (museums and in other cultural centers). The item: do you study (yes/no) is used to identify participation in an educational organization.    
**R script**:  
```{r, echo=TRUE}
soc_LASA1_1$soc_sp_cultural_edu_1 <- ifelse(LASA1C$csocp23 ==2 | LASA1C$csocp55 ==2 ,1L,
                                     ifelse((LASA1C$csocpyn==1 | LASA1C$csocp10 ==0)|
                                            (LASA1C$csocp23==1 & LASA1C$csocp55 ==1),0L, NA))
                                     
table(soc_LASA1_1$soc_sp_cultural_edu_1, useNA="always") 
```
### **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**:  complete    
**Harmonization comment**:   Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in an organization for singing, music or theatre. and in cultural organizations (museums and in other cultural centers). The item: do you study (yes/no) is used to identify participation in an educational organization.   
**R script**:  
```{r, echo=TRUE}

soc_LASA1_2$soc_sp_cultural_edu_2 <-  ifelse(LASA1D$dsocp23 ==2 | LASA1D$dsocp55 ==2 ,1L,
                                      ifelse(LASA1D$dsocpyn ==1 | LASA1D$dsocp10 ==0| 
                                            (LASA1D$dsocp23 ==1 & LASA1D$dsocp55 ==1),0L, NA))

table(soc_LASA1_2$soc_sp_cultural_edu_2, useNA="always") 

```
### **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**:  complete    
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in an organization for singing, music or theatre. and in cultural organizations (museums and in other cultural centers). The item: do you study (yes/no) is used to identify participation in an educational organization.      
**R script**:  
```{r, echo=TRUE}

soc_LASA1_3$soc_sp_cultural_edu_3 <- ifelse(LASA1E$esocp23 ==2 | LASA1E$esocp55 ==2 ,1L,
                                            ifelse((LASA1E$esocpyn ==1 | LASA1E$esocp10 ==0)| 
                                                   (LASA1E$esocp23 ==1 & LASA1E$esocp55 ==1), 0L, NA))

table(soc_LASA1_3$soc_sp_cultural_edu_3, useNA="always") 
```
### **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**:  complete    
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in an organization for singing, music or theatre. and in cultural organizations (museums and in other cultural centers). The item: do you study (yes/no) is used to identify participation in an educational organization.     
**R script**:  
```{r, echo=TRUE}
soc_LASA1_4$soc_sp_cultural_edu_4 <- ifelse(LASA1F$fsocp23 ==2  | LASA1F$fsocp55 ==2 ,1L,  
                                     ifelse((LASA1F$fsocpyn ==1 | LASA1F$fsocp10 ==0)| 
                                            (LASA1F$fsocp23 ==1 & LASA1F$fsocp55 ==1),0L, NA))
                                     
table(soc_LASA1_4$soc_sp_cultural_edu_4, useNA="always") 
```
### **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**:  complete    
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in an organization for singing, music or theatre. and in cultural organizations (museums and in other cultural centers). The item: do you study (yes/no) is used to identify participation in an educational organization.      
**R script**:  
```{r, echo=TRUE}
soc_LASA1_5$soc_sp_cultural_edu_5 <-  ifelse(LASA1G$gsocp23 ==2 | LASA1G$gsocp55 ==2 ,1L,
                                      ifelse((LASA1G$gsocpyn==1 | LASA1G$gsocp10 ==0)| 
                                             (LASA1G$gsocp23==1 & LASA1G$gsocp55 ==1),0L, NA))

table(soc_LASA1_5$soc_sp_cultural_edu_5, useNA="always") 

```
### **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**:  complete    
**Harmonization comment**: Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in an organization for singing, music or theatre. and in cultural organizations (museums and in other cultural centers). The item: do you study (yes/no) is used to identify participation in an educational organization.      
**R script**:  
```{r, echo=TRUE}
soc_LASA1_6$soc_sp_cultural_edu_6<- ifelse(LASA1H$HSOCP23 ==2 | LASA1H$HSOCP55 ==2 ,1L,
                                    ifelse((LASA1H$HSOCPYN ==1| LASA1H$HSOCP10 ==0)|
                                          (LASA1H$HSOCP23 ==1 & LASA1H$HSOCP55 ==1),0L, NA))

table(soc_LASA1_6$soc_sp_cultural_edu_6, useNA="always") 
```
### **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**:  complete    
**Harmonization comment**: Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in (visiting): Association for the elderly, Organisation for helping the elderly, Organisation with a social purpose, Organisation for singing, music or theatre.  Additionally, the variable do you study (yes/no) was used in harmonization. Participation in any of these organizations, or studying, is coded as "Does participate in a cultural, educational or social organization."  
**R script**:  
```{r, echo=TRUE}
soc_LASA1_0$soc_sp_cul_edu_soc_0 <- ifelse(  LASA1B$bsocp14==2 | 
                                             LASA1B$bsocp20==2 | 
                                             LASA1B$bsocp21==2 |  
                                             LASA1B$bsocp23==2 |
                                             LASA1B$bsocp55==2 ,1L, 
                                    ifelse( LASA1B$bsocpyn==1  | 
                                                  ((LASA1B$bsocp01==0 | LASA1B$bsocp14 ==1)&
                                                   (LASA1B$bsocp07 ==0|LASA1B$bsocp20== 1) & 
                                                   (LASA1B$bsocp08 ==0|LASA1B$bsocp21== 1) &  
                                                   (LASA1B$bsocp10 ==0|LASA1B$bsocp23== 1))& 
                                                   LASA1B$bsocp55== 1  ,0L, NA))
       
table(soc_LASA1_0$soc_sp_cul_edu_soc_0, useNA="always")
table(LASA1B$bsocp01, LASA1B$bsocp20, useNA="always")
```
### **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**:  complete    
**Harmonization comment**: Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in (visiting): Association for the elderly, Organisation for helping the elderly, Organisation with a social purpose, Organisation for singing, music or theatre.  Additionally, the variable do you study (yes/no) was used in harmonization. Participation in any of these organizations, or studying, is coded as "Does participate in a cultural, educational or social organization."    
**R script**:  
```{r, echo=TRUE}
table(LASA1C$csocp08)  
table(LASA1C$csocp19)  
table(LASA1C$csocp20)  
table(LASA1C$csocp21)
table(LASA1C$csocp10) 
table(LASA1C$csocpyn, LASA1C$csocp01)  

soc_LASA1_1$soc_sp_cul_edu_soc_1 <- ifelse(LASA1C$csocp14 ==2|
                                           LASA1C$csocp20==2 | 
                                           LASA1C$csocp21==2 |  
                                           LASA1C$csocp23==2 | 
                                           LASA1C$csocp55==2 ,1L, 
                                    ifelse((LASA1C$csocpyn==1 | 
                                            ((LASA1C$csocp01 ==0| LASA1C$csocp14==1  )&
                                            (LASA1C$csocp07 ==0| LASA1C$csocp20==1  )&
                                            (LASA1C$csocp08 ==0| LASA1C$csocp21==1  )&
                                            (LASA1C$csocp10 ==0| LASA1C$csocp23==1  ))|
                                            LASA1C$csocp55==1),0L, NA))
       
table(soc_LASA1_1$soc_sp_cul_edu_soc_1, useNA="always")


```
### **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**:  complete    
**Harmonization comment**: Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in (visiting): Association for the elderly, Organisation for helping the elderly, Organisation with a social purpose, Organisation for singing, music or theatre.  Additionally, the variable do you study (yes/no) was used in harmonization. Participation in any of these organizations, or studying, is coded as "Does participate in a cultural, educational or social organization."    
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dsocp14)  
table(LASA1D$dsocp19)  
table(LASA1D$dsocp20)  
table(LASA1D$dsocp21)
table(LASA1D$dsocp23) 
table(LASA1D$dsocp55)  

soc_LASA1_2$soc_sp_cul_edu_soc_2 <- ifelse(LASA1D$dsocp14==2 | 
                                           LASA1D$dsocp20==2 |
                                           LASA1D$dsocp21==2 |  
                                           LASA1D$dsocp23==2 | 
                                           LASA1D$dsocp55==2 ,1L, 
                                           ifelse(LASA1D$dsocpyn==1 | 
                                                  ((LASA1D$dsocp01 ==0|LASA1D$dsocp14== 1)& 
                                                  (LASA1D$dsocp07 ==0|LASA1D$dsocp20== 1)&
                                                  (LASA1D$dsocp08 ==0|LASA1D$dsocp21== 1)&
                                                  (LASA1D$dsocp10 ==0|LASA1D$dsocp23== 1))|
                                                   LASA1D$dsocp55==1 ,0L, NA))
       
table(soc_LASA1_2$soc_sp_cul_edu_soc_2, useNA="always")
```
### **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**:  complete    
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in (visiting): Association for the elderly, Organisation for helping the elderly, Organisation with a social purpose, Organisation for singing, music or theatre.  Additionally, the variable do you study (yes/no) was used in harmonization. Participation in any of these organizations, or studying, is coded as "Does participate in a cultural, educational or social organization."   
**R script**:  
```{r, echo=TRUE}
table(LASA1E$esocp14)  
table(LASA1E$esocp19)  
table(LASA1E$esocp20)  
table(LASA1E$esocp21)
table(LASA1E$esocp23) 
table(LASA1E$esocp55)  

soc_LASA1_3$soc_sp_cul_edu_soc_3 <- ifelse(LASA1E$esocp14 ==2 |
                                           LASA1E$esocp20 ==2 | 
                                           LASA1E$esocp21 ==2 |  
                                           LASA1E$esocp23 ==2 | LASA1E$esocp55==2 ,1L, 
                                    ifelse(LASA1E$esocpyn==1 |
                                              ((LASA1E$esocp01 ==0|LASA1E$esocp14 ==1)&
                                              (LASA1E$esocp07 ==0 |LASA1E$esocp20==1)&
                                              (LASA1E$esocp08 ==0 |LASA1E$esocp21==1)&
                                              (LASA1E$esocp10 ==0 |LASA1E$esocp23==1))|
                                               LASA1E$esocp55==1, 0L, NA))
       
table(soc_LASA1_3$soc_sp_cul_edu_soc_3, useNA="always")

```
### **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**:  complete    
**Harmonization comment**: Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in (visiting): Association for the elderly, Organisation for helping the elderly, Organisation with a social purpose, Organisation for singing, music or theatre.  Additionally, the variable do you study (yes/no) was used in harmonization. Participation in any of these organizations, or studying, is coded as "Does participate in a cultural, educational or social organization."     
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fsocp14)  
table(LASA1F$fsocp19)  
table(LASA1F$fsocp20)  
table(LASA1F$fsocp21)
table(LASA1F$fsocp23) 
table(LASA1F$fsocp55)  

soc_LASA1_4$soc_sp_cul_edu_soc_4 <- ifelse(LASA1F$fsocp14 ==2 | 
                                           LASA1F$fsocp20==2  | 
                                           LASA1F$fsocp21==2  | 
                                           LASA1F$fsocp23==2  | 
                                           LASA1F$fsocp55==2 ,1L, 
                                     ifelse(LASA1F$fsocpyn==1 | 
                                            ((LASA1F$fsocp01 ==0|LASA1F$fsocp14 ==1)&
                                            (LASA1F$fsocp07  ==0 |LASA1F$fsocp20 ==1)&
                                            (LASA1F$fsocp08  ==0 |LASA1F$fsocp21 ==1)&
                                            (LASA1F$fsocp10  ==0 |LASA1F$fsocp23 ==1))
                                                  |LASA1F$fsocp55==1,0L, NA))
       
table(soc_LASA1_4$soc_sp_cul_edu_soc_4, useNA="always")

```
### **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**:  complete    
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in (visiting): Association for the elderly, Organisation for helping the elderly, Organisation with a social purpose, Organisation for singing, music or theatre.  Additionally, the variable do you study (yes/no) was used in harmonization. Participation in any of these organizations, or studying, is coded as "Does participate in a cultural, educational or social organization."   
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gsocp14)  
table(LASA1G$gsocp19)  
table(LASA1G$gsocp20)  
table(LASA1G$gsocp21)
table(LASA1G$gsocp23) 
table(LASA1G$gsocp55)  

soc_LASA1_5$soc_sp_cul_edu_soc_5 <- ifelse(LASA1G$gsocp14 ==2 |
                                             LASA1G$gsocp20==2 |
                                             LASA1G$gsocp21==2 | 
                                             LASA1G$gsocp23==2 | 
                                             LASA1G$gsocp55==2 ,1L, 
                                    ifelse(LASA1G$gsocpyn==1 |
                                                     ((LASA1G$gsocp01 ==0|LASA1G$gsocp14==1) &
                                                     (LASA1G$gsocp07 ==0|LASA1G$gsocp20==1) & 
                                                     (LASA1G$gsocp08 ==0|LASA1G$gsocp21==1) &
                                                     (LASA1G$gsocp10 ==0|LASA1G$gsocp23==1))| 
                                                       LASA1G$gsocp55==1,0L, NA))
       
table(soc_LASA1_5$soc_sp_cul_edu_soc_5, useNA="always")

```
### **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**:  complete    
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used ask about participation in (visiting): Association for the elderly, Organisation for helping the elderly, Organisation with a social purpose, Organisation for singing, music or theatre.  Additionally, the variable do you study (yes/no) was used in harmonization. Participation in any of these organizations, or studying, is coded as "Does participate in a cultural, educational or social organization."    
**R script**:  
```{r, echo=TRUE}
table(LASA1H$HSOCP14)  
table(LASA1H$HSOCP19)  
table(LASA1H$HSOCP20)  
table(LASA1H$HSOCP21)
table(LASA1H$HSOCP23) 
table(LASA1H$HSOCP55)  

soc_LASA1_6$soc_sp_cul_edu_soc_6 <- ifelse(LASA1H$HSOCP14 ==2 | 
                                             LASA1H$HSOCP20==2 | 
                                             LASA1H$HSOCP21==2 |  
                                             LASA1H$HSOCP23==2 |
                                             LASA1H$HSOCP55==2 ,1L, 
                                           ifelse(LASA1H$HSOCPYN==1 | 
                                                     ((LASA1H$HSOCP01==0 | LASA1H$HSOCP14==1) & 
                                                     (LASA1H$HSOCP07 ==0 | LASA1H$HSOCP20==1) & 
                                                     (LASA1H$HSOCP08 ==0 | LASA1H$HSOCP21==1) & 
                                                     (LASA1H$HSOCP10 ==0 | LASA1H$HSOCP23==1))| 
                                                       LASA1H$HSOCP55==1,0L, NA))
       
table(soc_LASA1_6$soc_sp_cul_edu_soc_6, useNA="always")


```
### **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**:   
**R script**:  
```{r, echo=TRUE}

# this is not part of the question under the general SOCPNY variable, see questionnaire  https://www.lasa-vu.nl/themes/social/documents/LASA070_quest_nl.pdf
#hence will not use it as vars above

table(LASA1B$bsocp31,LASA1B$bsocpyn, useNA="always")  
summary(LASA1B$bsocp31) 

soc_LASA1_0$soc_sp_volunteer_0 <- ifelse(LASA1B$bsocp31 ==2,1L, 
                                  ifelse(LASA1B$bsocp31 ==1 |LASA1B$bsocpyn==1,0L, NA))

table(soc_LASA1_0$soc_sp_volunteer_0, useNA="always") 
summary(soc_LASA1_0$soc_sp_volunteer_0) 


table(LASA1B$bsocp31, LASA1B$bsocpyn, useNA = "always")  

summary(LASA1B$bsocp31) 

```
### **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**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1C$csocp31)  
summary(LASA1C$csocp31)
soc_LASA1_1$soc_sp_volunteer_1 <- ifelse(LASA1C$csocp31 ==2,1L, 
                                         ifelse(LASA1C$csocp31 ==1|LASA1C$csocpyn==1,0L, NA))

table(soc_LASA1_1$soc_sp_volunteer_1) 
summary(soc_LASA1_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**:  complete    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dsocp31) 
summary(LASA1D$dsocp31)
soc_LASA1_2$soc_sp_volunteer_2 <- ifelse(LASA1D$dsocp31 ==2,1L, 
                                         ifelse(LASA1D$dsocp31 ==1|LASA1D$dsocpyn==1,0L, NA))

table(soc_LASA1_2$soc_sp_volunteer_2) 
summary(soc_LASA1_2$soc_sp_volunteer_2) 

```
### **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**:  complete    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1E$esocp31) 
summary(LASA1E$esocp31)
soc_LASA1_3$soc_sp_volunteer_3 <- ifelse(LASA1E$esocp31 ==2,1L, 
                                  ifelse(LASA1E$esocp31 ==1 |LASA1E$esocpyn==1,0L, NA))

table(soc_LASA1_3$soc_sp_volunteer_3) 
summary(soc_LASA1_3$soc_sp_volunteer_3)

```
### **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**:  complete    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fsocp31)  
summary(LASA1F$fsocp31)
soc_LASA1_4$soc_sp_volunteer_4 <- ifelse(LASA1F$fsocp31 ==2,1L, 
                                  ifelse(LASA1F$fsocp31 ==1||LASA1F$fsocpyn==1,0L, NA))

table(soc_LASA1_4$soc_sp_volunteer_4) 
summary(soc_LASA1_4$soc_sp_volunteer_4) 


```
### **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**:  complete    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gsocp31)  
summary(LASA1G$gsocp31)
soc_LASA1_5$soc_sp_volunteer_5 <- ifelse(LASA1G$gsocp31 ==2,1L, 
                                  ifelse(LASA1G$gsocp31 ==1|LASA1G$gsocpyn==1,0L, NA))

table(soc_LASA1_5$soc_sp_volunteer_5) 
summary(soc_LASA1_5$soc_sp_volunteer_5)

```
### **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**:  complete    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1H$HSOCP31, LASA1H$HSOCPYN, useNA="always")  
summary(LASA1H$HSOCP31)
soc_LASA1_6$soc_sp_volunteer_6 <- ifelse(LASA1H$HSOCP31 ==2,1L, 
                                  ifelse(LASA1H$HSOCP31 ==1|LASA1H$HSOCPYN==1,0L, NA))

table(soc_LASA1_6$soc_sp_volunteer_6) 
summary(soc_LASA1_6$soc_sp_volunteer_6)


```
### **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 civic organization   
1 |  Does participate in a civic organization   

**Harmonization status**:  complete    
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables,  participation in (visiting), 1. political organization, and 2. a union / employers organization were used. Participation in either is coded as 'Does participate in a civic organization.'    
**R script**:  
```{r, echo=TRUE}
table(LASA1B$bsocp15)  
summary(LASA1B$bsocp16) 

soc_LASA1_0$soc_sp_pol_0 <- ifelse(LASA1B$bsocp15==2   |LASA1B$bsocp16==2,1L, 
                            ifelse(LASA1B$bsocpy==1    |
                                   ((LASA1B$bsocp02==0 |LASA1B$bsocp15 ==1)&
                                   (LASA1B$bsocp03==0  |LASA1B$bsocp16 ==1)),0L, NA))

table(soc_LASA1_0$soc_sp_cultural_edu_0, useNA="always")

```
### **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 civic organization   
1 |  Does participate in a civic organization   

**Harmonization status**:  complete    
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables,  participation in (visiting), 1. political organization, and 2. a union / employers organization were used. Participation in either is coded as 'Does participate in a civic organization.'   
**R script**:  
```{r, echo=TRUE}
table(LASA1C$csocp15)  
table(LASA1C$csocp16) 
soc_LASA1_1$soc_sp_pol_1 <- ifelse(LASA1C$csocp15 ==2 |LASA1C$csocp16 ==2,1L, 
                            ifelse(LASA1C$csocpyn ==1|
                                 ((LASA1C$csocp02 ==0|LASA1C$csocp15 ==1) &
                                  (LASA1C$csocp03 ==0|LASA1C$csocp16 ==1)),0L, NA))

table(soc_LASA1_1$soc_sp_cultural_edu_1, useNA="always")
```
### **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 civic organization   
1 |  Does participate in a civic organization   

**Harmonization status**:  complete    
**Harmonization comment**:    Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables,  participation in (visiting), 1. political organization, and 2. a union / employers organization were used. Participation in either is coded as 'Does participate in a civic organization.'  
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dsocp15)  
table(LASA1D$dsocp16) 

soc_LASA1_2$soc_sp_pol_2 <- ifelse(LASA1D$dsocp15 ==2 | LASA1D$dsocp16 ==2,1L, 
                            ifelse((LASA1D$dsocpyn ==1|
                                    (LASA1D$dsocp02==0||LASA1D$dsocp15 ==1)&
                                    (LASA1D$dsocp03==0| LASA1D$dsocp16 ==1)) ,0L, NA))

table(soc_LASA1_2$soc_sp_cultural_edu_2, useNA="always")
```
### **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 civic organization   
1 |  Does participate in a civic organization   

**Harmonization status**:  complete    
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables,  participation in (visiting), 1. political organization, and 2. a union / employers organization were used. Participation in either is coded as 'Does participate in a civic organization.'   
**R script**:  
```{r, echo=TRUE}
table(LASA1E$esocp15) 
table(LASA1E$esocp16) 

soc_LASA1_3$soc_sp_pol_3 <- ifelse(LASA1E$esocp15 ==2 | LASA1E$esocp16 ==2,1L, 
                             ifelse(LASA1E$esocpyn ==1|
                                               ((LASA1E$esocp02==0 |LASA1E$esocp15 ==1)&
                                                (LASA1E$esocp03==0 |LASA1E$esocp16 ==1)),0L, NA))

table(soc_LASA1_3$soc_sp_cultural_edu_3, useNA="always")
```
### **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 civic organization   
1 |  Does participate in a civic organization  

**Harmonization status**:  complete    
**Harmonization comment**:   Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables,  participation in (visiting), 1. political organization, and 2. a union / employers organization were used. Participation in either is coded as 'Does participate in a civic organization.'    
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fsocp15)  
table(LASA1F$fsocp16) 

soc_LASA1_4$soc_sp_pol_4 <- ifelse(LASA1F$fsocp15 ==2 | LASA1F$fsocp16 ==2,1L, 
                                     ifelse((LASA1F$fsocpyn ==1|LASA1F$fsocp02==0|LASA1F$fsocp03==0)| (LASA1F$fsocp15 ==1 & LASA1F$fsocp16 ==1),0L, NA))

table(soc_LASA1_4$soc_sp_cultural_edu_4, useNA="always")
```
### **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 civic organization   
1 |  Does participate in a civic organization  

**Harmonization status**:  complete    
**Harmonization comment**:   Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables,  participation in (visiting), 1. political organization, and 2. a union / employers organization were used. Participation in either is coded as 'Does participate in a civic organization.'     
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gsocp15)  
table(LASA1G$gsocp16) 

soc_LASA1_5$soc_sp_pol_5 <- ifelse(LASA1G$gsocp15 ==2 | LASA1G$gsocp16 ==2,1L, 
                                     ifelse((LASA1G$gsocpyn ==1|LASA1G$gsocp02==0|LASA1G$gsocp03==0)| (LASA1G$gsocp15 ==1 & LASA1G$gsocp16 ==1),0L, NA))

table(soc_LASA1_5$soc_sp_cultural_edu_5, useNA="always")

```
### **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 civic organization   
1 |  Does participate in a civic organization  

**Harmonization status**:  complete    
**Harmonization comment**:   Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables,  participation in (visiting), 1. political organization, and 2. a union / employers organization were used. Participation in either is coded as 'Does participate in a civic organization.'    
**R script**:  
```{r, echo=TRUE}
table(LASA1H$HSOCP15) # union and professional 2= yes 1= no
table(LASA1H$HSOCP16) # Political party 

soc_LASA1_6$soc_sp_pol_6 <- ifelse(LASA1H$HSOCP15 ==2 | LASA1H$HSOCP16 ==2,1L, 
                                     ifelse((LASA1H$HSOCPYN ==1|LASA1H$HSOCP02==0|LASA1H$HSOCP03==0)| (LASA1H$HSOCP15 ==1 & LASA1H$HSOCP16 ==1),0L, NA))

table(soc_LASA1_6$soc_sp_cultural_edu_6, useNA="always")
```
### **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**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used are (visiting) a 1. Trade union, employers organisation and 2. Neighbourhood organization. Participating in either is harmonized as 'Does participate in an union, professional or neighbourhood organization.     
**R script**:  
```{r, echo=TRUE}
table(LASA1B$bsocp15)  
table(LASA1B$bsocp18) 

soc_LASA1_0$soc_sp_prof_0 <- ifelse(LASA1B$bsocp15 ==2 | LASA1B$bsocp18 ==2,1L, 
                                     ifelse((LASA1B$bsocpyn ==1 |LASA1B$bsocp02==0|LASA1B$bsocp05==0) | (LASA1B$bsocp15 ==1 & LASA1B$bsocp18 ==1),0L, NA))

table(soc_LASA1_0$soc_sp_prof_0, useNA="always") 


```
### **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**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used are (visiting) a 1. Trade union, employers organisation and 2. Neighbourhood organization. Participating in either is harmonized as 'Does participate in an union, professional or neighbourhood organization.     
**R script**:  
```{r, echo=TRUE}
table(LASA1C$csocp15)  
table(LASA1C$csocp18) 

soc_LASA1_1$soc_sp_prof_1 <- ifelse(LASA1C$csocp15 ==2 | LASA1C$csocp18 ==2,1L, 
                                     ifelse((LASA1C$csocpyn ==1 |LASA1C$csocp02==0|LASA1C$csocp05==0) | (LASA1C$csocp15 ==1 & LASA1C$csocp18 ==1),0L, NA))

table(soc_LASA1_1$soc_sp_prof_1, useNA="always") 

```
### **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**:  complete    
**Harmonization comment**:   Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used are (visiting) a 1. Trade union, employers organisation and 2. Neighbourhood organization. Participating in either is harmonized as 'Does participate in an union, professional or neighbourhood organization.    
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dsocp15)  
table(LASA1D$dsocp18) 

soc_LASA1_2$soc_sp_prof_2 <- ifelse(LASA1D$dsocp15 ==2 | LASA1D$dsocp18 ==2,1L, 
                                     ifelse((LASA1D$dsocpyn ==1 |LASA1D$dsocp02==0|LASA1D$dsocp05==0) | (LASA1D$dsocp15 ==1 & LASA1D$dsocp18 ==1),0L, NA))

table(soc_LASA1_2$soc_sp_prof_2, useNA="always") 
```
### **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**:  complete    
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used are (visiting) a 1. Trade union, employers organisation and 2. Neighbourhood organization. Participating in either is harmonized as 'Does participate in an union, professional or neighbourhood organization.     
**R script**:  
```{r, echo=TRUE}
table(LASA1E$esocp15)  # union and professional 2= yes 1= no
table(LASA1E$esocp18) # Neighbourhood organisation

soc_LASA1_3$soc_sp_prof_3 <- ifelse(LASA1E$esocp15 ==2 | LASA1E$esocp18 ==2,1L, 
                                     ifelse((LASA1E$esocpyn ==1 |LASA1E$esocp02==0|LASA1E$esocp05==0) | (LASA1E$esocp15 ==1 & LASA1E$esocp18 ==1),0L, NA))

table(soc_LASA1_3$soc_sp_prof_3, useNA="always") 
```
### **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**:  complete    
**Harmonization comment**: Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used are (visiting) a 1. Trade union, employers organisation and 2. Neighbourhood organization. Participating in either is harmonized as 'Does participate in an union, professional or neighbourhood organization.      
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fsocp15)  # union and professional 2= yes 1= no
table(LASA1F$fsocp18) # Neighbourhood organisation

soc_LASA1_4$soc_sp_prof_4 <- ifelse(LASA1F$fsocp15 ==2 | LASA1F$fsocp18 ==2,1L, 
                                     ifelse((LASA1F$fsocpyn ==1 |LASA1F$fsocp02==0|LASA1F$fsocp05==0) | (LASA1F$fsocp15 ==1 & LASA1F$fsocp18 ==1),0L, NA))

table(soc_LASA1_4$soc_sp_prof_4, useNA="always") 


```
### **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**:  complete    
**Harmonization comment**:  Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used are (visiting) a 1. Trade union, employers organisation and 2. Neighbourhood organization. Participating in either is harmonized as 'Does participate in an union, professional or neighbourhood organization.     
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gsocp15)  # union and professional 2= yes 1= no
table(LASA1G$gsocp18) # Neighbourhood organisation 

soc_LASA1_5$soc_sp_prof_5 <- ifelse(LASA1G$gsocp15 ==2 | LASA1G$gsocp18 ==2,1L, 
                                     ifelse((LASA1G$gsocpyn ==1 |LASA1G$gsocp02==0|LASA1G$gsocp05==0) | (LASA1G$gsocp15 ==1 & LASA1G$gsocp18 ==1),0L, NA))

table(soc_LASA1_5$soc_sp_prof_5, useNA="always") 

```
### **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**:  complete    
**Harmonization comment**: Participants were asked if: 1.they are involved in an association, 2. they are a member of a specific organization and 3. they visit the organization. The first two items were used to identify non-participants and the third item was used to identify participants in this particular organization. Study specific variables used are (visiting) a 1. Trade union, employers organisation and 2. Neighbourhood organization. Participating in either is harmonized as 'Does participate in an union, professional or neighbourhood organization.    
**R script**:  
```{r, echo=TRUE}
table(LASA1H$HSOCP15) # union and professional 2= yes 1= no
table(LASA1H$HSOCP18) # Neighbourhood organisation

soc_LASA1_6$soc_sp_prof_6 <- ifelse(LASA1H$HSOCP15 ==2 | LASA1H$HSOCP18 ==2,1L, 
                                     ifelse((LASA1H$HSOCPYN ==1 |LASA1H$HSOCP02==0|LASA1H$HSOCP05==0) | (LASA1H$HSOCP15 ==1 & LASA1H$HSOCP18 ==1),0L, NA))

table(soc_LASA1_6$soc_sp_prof_6, useNA="always") 

```
### **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, civic, political, social/charity work association and/or volunteering) were used to harmonize this variable. 
**R script**:  
```{r, echo=TRUE}

soc_LASA1_0$soc_sp_general_0 <- ifelse(soc_LASA1_0$soc_sp_prof_0 =='1' | soc_LASA1_0$soc_sp_pol_0 =='1'| soc_LASA1_0$soc_sp_volunteer_0 =='1' | soc_LASA1_0$soc_sp_cul_edu_soc_0 =='1' | soc_LASA1_0$soc_sp_cultural_edu_0 =='1' | soc_LASA1_0$soc_sp_religious_0 =='1',1L, 
                                                  ifelse(soc_LASA1_0$soc_sp_prof_0 =='0' | soc_LASA1_0$soc_sp_pol_0 =='0'| soc_LASA1_0$soc_sp_volunteer_0 =='0' | soc_LASA1_0$soc_sp_cul_edu_soc_0 =='0' | soc_LASA1_0$soc_sp_cultural_edu_0 =='0' | soc_LASA1_0$soc_sp_religious_0 =='0',0L, NA))


table(soc_LASA1_0$soc_sp_general_0, useNA = "always") 
summary(soc_LASA1_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, civic, political, social/charity work association and/or volunteering) were used to harmonize this variable.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_1$soc_sp_general_1 <- ifelse(soc_LASA1_1$soc_sp_prof_1 =='1' | soc_LASA1_1$soc_sp_pol_1 =='1'| soc_LASA1_1$soc_sp_volunteer_1 =='1' | soc_LASA1_1$soc_sp_cul_edu_soc_1 =='1' | soc_LASA1_1$soc_sp_cultural_edu_1 =='1' | soc_LASA1_1$soc_sp_religious_1 =='1',1L, 
                                                  ifelse(soc_LASA1_1$soc_sp_prof_1 =='0' | soc_LASA1_1$soc_sp_pol_1 =='0'| soc_LASA1_1$soc_sp_volunteer_1 =='0' | soc_LASA1_1$soc_sp_cul_edu_soc_1 =='0' | soc_LASA1_1$soc_sp_cultural_edu_1 =='0' | soc_LASA1_1$soc_sp_religious_1 =='0',0L, NA))

table(soc_LASA1_1$soc_sp_general_1, useNA = "always") 
summary(soc_LASA1_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**:  complete    
**Harmonization comment**:   Dataschemas pertaining to participation (religious, cultural, educational, civic, political, social/charity work association and/or volunteering) were used to harmonize this variable.  
**R script**:  
```{r, echo=TRUE}
soc_LASA1_2$soc_sp_general_2 <- ifelse(soc_LASA1_2$soc_sp_prof_2 =='1' | soc_LASA1_2$soc_sp_pol_2 =='1'| soc_LASA1_2$soc_sp_volunteer_2 =='1' | soc_LASA1_2$soc_sp_cul_edu_soc_2 =='1' | soc_LASA1_2$soc_sp_cultural_edu_2 =='1' | soc_LASA1_2$soc_sp_religious_2 =='1',1L, 
                                                  ifelse(soc_LASA1_2$soc_sp_prof_2 =='0' | soc_LASA1_2$soc_sp_pol_2 =='0'| soc_LASA1_2$soc_sp_volunteer_2 =='0' | soc_LASA1_2$soc_sp_cul_edu_soc_2 =='0' | soc_LASA1_2$soc_sp_cultural_edu_2 =='0' | soc_LASA1_2$soc_sp_religious_2 =='0',0L, NA))

table(soc_LASA1_2$soc_sp_general_2, useNA = "always") 
summary(soc_LASA1_2$soc_sp_general_2) 
```
### **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**:  complete    
**Harmonization comment**:  Dataschemas pertaining to participation (religious, cultural, educational, civic, political, social/charity work association and/or volunteering) were used to harmonize this variable.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_3$soc_sp_general_3 <- ifelse(soc_LASA1_3$soc_sp_prof_3=='1' | soc_LASA1_3$soc_sp_pol_3 =='1'| soc_LASA1_3$soc_sp_volunteer_3 =='1' | soc_LASA1_3$soc_sp_cul_edu_soc_3 =='1' | soc_LASA1_3$soc_sp_cultural_edu_3 =='1' | soc_LASA1_3$soc_sp_religious_3 =='1',1L, 
                                                  ifelse(soc_LASA1_3$soc_sp_prof_3 =='0' | soc_LASA1_3$soc_sp_pol_3 =='0'| soc_LASA1_3$soc_sp_volunteer_3=='0' | soc_LASA1_3$soc_sp_cul_edu_soc_3 =='0' | soc_LASA1_3$soc_sp_cultural_edu_3 =='0' | soc_LASA1_3$soc_sp_religious_3 =='0',0L, NA))

table(soc_LASA1_3$soc_sp_general_3, useNA = "always") 
summary(soc_LASA1_3$soc_sp_general_3) 
```
### **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**:  complete    
**Harmonization comment**:  Dataschemas pertaining to participation (religious, cultural, educational, civic, political, social/charity work association and/or volunteering) were used to harmonize this variable.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_4$soc_sp_general_4 <- ifelse(soc_LASA1_4$soc_sp_prof_4=='1' | soc_LASA1_4$soc_sp_pol_4 =='1'| soc_LASA1_4$soc_sp_volunteer_4 =='1' | soc_LASA1_4$soc_sp_cul_edu_soc_4 =='1' | soc_LASA1_4$soc_sp_cultural_edu_4 =='1' | soc_LASA1_4$soc_sp_religious_4 =='1',1L, 
                                                  ifelse(soc_LASA1_4$soc_sp_prof_4 =='0' | soc_LASA1_4$soc_sp_pol_4 =='0'| soc_LASA1_4$soc_sp_volunteer_4=='0' | soc_LASA1_4$soc_sp_cul_edu_soc_4 =='0' | soc_LASA1_4$soc_sp_cultural_edu_4 =='0' | soc_LASA1_4$soc_sp_religious_4 =='0',0L, NA))

table(soc_LASA1_4$soc_sp_general_4) 
summary(soc_LASA1_4$soc_sp_general_4) 
```
### **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**:  complete    
**Harmonization comment**: Dataschemas pertaining to participation (religious, cultural, educational, civic, political, social/charity work association and/or volunteering) were used to harmonize this variable.    
**R script**:  
```{r, echo=TRUE}
soc_LASA1_5$soc_sp_general_5 <- ifelse(soc_LASA1_5$soc_sp_prof_5=='1' | soc_LASA1_5$soc_sp_pol_5 =='1'| soc_LASA1_5$soc_sp_volunteer_5 =='1' | soc_LASA1_5$soc_sp_cul_edu_soc_5 =='1' | soc_LASA1_5$soc_sp_cultural_edu_5 =='1' | soc_LASA1_5$soc_sp_religious_5 =='1',1L, 
                                                  ifelse(soc_LASA1_5$soc_sp_prof_5 =='0' | soc_LASA1_5$soc_sp_pol_5 =='0'| soc_LASA1_5$soc_sp_volunteer_5=='0' | soc_LASA1_5$soc_sp_cul_edu_soc_5 =='0' | soc_LASA1_5$soc_sp_cultural_edu_5 =='0' | soc_LASA1_5$soc_sp_religious_5 =='0',0L, NA))

table(soc_LASA1_5$soc_sp_general_5) 
summary(soc_LASA1_5$soc_sp_general_5) 

```
### **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**:  complete    
**Harmonization comment**: Dataschemas pertaining to participation (religious, cultural, educational, civic, political, social/charity work association and/or volunteering) were used to harmonize this variable.    
**R script**:  
```{r, echo=TRUE}
soc_LASA1_6$soc_sp_general_6 <- ifelse(soc_LASA1_6$soc_sp_prof_6=='1' | soc_LASA1_6$soc_sp_pol_6 =='1'| soc_LASA1_6$soc_sp_volunteer_6 =='1' | soc_LASA1_6$soc_sp_cul_edu_soc_6 =='1' | soc_LASA1_6$soc_sp_cultural_edu_6 =='1' | soc_LASA1_6$soc_sp_religious_6 =='1',1L, 
                                                  ifelse(soc_LASA1_6$soc_sp_prof_6 =='0' | soc_LASA1_6$soc_sp_pol_6 =='0'| soc_LASA1_6$soc_sp_volunteer_6=='0' | soc_LASA1_6$soc_sp_cul_edu_soc_6 =='0' | soc_LASA1_6$soc_sp_cultural_edu_6 =='0' | soc_LASA1_6$soc_sp_religious_6 =='0',0L, NA))

table(soc_LASA1_6$soc_sp_general_6) 
summary(soc_LASA1_6$soc_sp_general_6) 
```
### **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**:    Study specific variable asks if the reason for not participating in social activities is: fear to go on the street. Answer choices 'very applicable and 'applicable' were coded as  'Did not participate due to lack of safety concerns .' Answer choices 'a little applicable' and 'not appicable' were coded as 'safety concerns did not affect participation.'  
**R script**:  
```{r, echo=TRUE}
#bsocp44
table(LASA1B$bsocp44, useNA = "always") 
summary(LASA1B$bsocp44) 

soc_LASA1_0$soc_sp_nosafety_0 <- ifelse(LASA1B$bsocp44 =='1' | LASA1B$bsocp44 =='2',1L, 
                                 ifelse(LASA1B$bsocp44 =='3' | LASA1B$bsocp44 =='4',0L, NA))

table(soc_LASA1_0$soc_sp_nosafety_0 , useNA = "always") 
summary(soc_LASA1_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**:  impossible    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}

```
### **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**:  complete    
**Harmonization comment**:    Study specific variable asks if the reason for not participating in social activities is: fear to go on the street. Answer choices 'very applicable and 'applicable' were coded as  'Did not participate due to lack of safety concerns .' Answer choices 'a little applicable' and 'not appicable' were coded as 'safety concerns did not affect participation.'
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fsocp44)  
summary(LASA1F$fsocp44) 

soc_LASA1_4$soc_sp_nosafety_4 <- ifelse(LASA1F$fsocp44 =='1' | LASA1F$fsocp44 =='2',1L, 
                                                  ifelse(LASA1F$fsocp44 =='3' | LASA1F$fsocp44 =='4',0L, NA))

table(soc_LASA1_4$soc_sp_nosafety_4) 
summary(soc_LASA1_4$soc_sp_nosafety_4) 
```
### **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**:  complete    
**Harmonization comment**:   Study specific variable asks if the reason for not participating in social activities is: fear to go on the street. Answer choices 'very applicable and 'applicable' were coded as  'Did not participate due to lack of safety concerns .' Answer choices 'a little applicable' and 'not appicable' were coded as 'safety concerns did not affect participation.' 
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gsocp44)   
summary(LASA1G$gsocp44) 

soc_LASA1_5$soc_sp_nosafety_5 <- ifelse(LASA1G$gsocp44 =='1' | LASA1G$gsocp44 =='2',1L, 
                                                  ifelse(LASA1G$gsocp44 =='3' | LASA1G$gsocp44 =='4',0L, NA))

table(soc_LASA1_5$soc_sp_nosafety_5) 
summary(soc_LASA1_5$soc_sp_nosafety_5) 
```
### **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**:  Study specific variable asks if the reason for not participating in social activities is: no transportation. Answer choices 'very applicable and 'applicable' were coded as  'Did not participate due to lack of transportation.' Answer choices 'a little applicable' and 'not appicable' were coded as 'Lack of transportation did not affect participation.'
**R script**:  
```{r, echo=TRUE}
#bsocp43
table(LASA1B$bsocp43) 
summary(LASA1B$bsocp43) 

soc_LASA1_0$soc_sp_notrans_0 <- ifelse(LASA1B$bsocp43 =='1' | LASA1B$bsocp43 =='2',1L, 
                                                  ifelse(LASA1B$bsocp43 =='3' | LASA1B$bsocp43 =='4',0L, NA))

table(soc_LASA1_0$soc_sp_notrans_0) 
summary(soc_LASA1_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**:  impossible      
**Harmonization comment**:  
**R script**:  
```{r, echo=TRUE}


```
### **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**:  complete    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fsocp43)  
summary(LASA1F$fsocp43) 

soc_LASA1_4$soc_sp_notrans_4 <- ifelse(LASA1F$fsocp43 =='1' | LASA1F$fsocp43 =='2',1L, 
                                                  ifelse(LASA1F$fsocp43 =='3' | LASA1F$fsocp43 =='4',0L, NA))

table(soc_LASA1_4$soc_sp_notrans_4) 
summary(soc_LASA1_4$soc_sp_notrans_4) 
```
### **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**:  complete    
**Harmonization comment**: Study specific variable asks if the reason for not participating in social activities is: no transportation. Answer choices 'very applicable and 'applicable' were coded as  'Did not participate due to lack of transportation.' Answer choices 'a little applicable' and 'not appicable' were coded as 'Lack of transportation did not affect participation.'  
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gsocp43)  
summary(LASA1G$gsocp43) 

soc_LASA1_5$soc_sp_notrans_5 <- ifelse(LASA1G$gsocp43 =='1' | LASA1G$gsocp43 =='2',1L, 
                                                  ifelse(LASA1G$gsocp43 =='3' | LASA1G$gsocp43 =='4',0L, NA))

table(soc_LASA1_5$soc_sp_notrans_5) 
summary(soc_LASA1_5$soc_sp_notrans_5) 
```
### **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**:   Study specific items 1.visiting an organization for a hobby or 2. studying a hobby were used. 
**R script**:  
```{r, echo=TRUE}
table(LASA1B$bsocp24, useNA="always")  #do you visit an organization for hobby 
table(LASA1B$bsocp57, useNA="always") #do you study a hobby

soc_LASA1_0$soc_sp_hobby_0 <- ifelse(LASA1B$bsocpyn==1&LASA1B$bsocp55==1, 0L, 
                                     ifelse (LASA1B$bsocp24 =='2' | LASA1B$bsocp57 =='1',1L, 
                                     ifelse((LASA1B$bsocp24 =='1' & LASA1B$bsocp57 !='1')| 
                                            (LASA1B$bsocp57 =='0' & LASA1B$bsocp24 !='2'),0L, NA)))


table(soc_LASA1_0$soc_sp_hobby_0, useNA="always") 

```
### **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**:  Study specific items 1.visiting an organization for a hobby or 2. studying a hobby were used. 
**R script**:  
```{r, echo=TRUE}
table(LASA1C$csocp24)  #do you visit an organization for hobby 
table(LASA1C$csocp57) #do you study a hobby

soc_LASA1_1$soc_sp_hobby_1 <- ifelse(LASA1C$csocpyn==1 &LASA1C$csocp55==1, 0L, 
                                     ifelse (LASA1C$csocp24 =='2' | LASA1C$csocp57 =='1',1L,
                                             ifelse((LASA1C$csocp24 =='1' & LASA1C$csocp57 !='1')|
                                                    (LASA1C$csocp57 =='1'& LASA1C$csocp24 !='2')
                                                    ,0L, NA)))


table(soc_LASA1_1$soc_sp_hobby_1, useNA="always") 
```
### **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**:  complete    
**Harmonization comment**:  Study specific items 1.visiting an organization for a hobby or 2. studying a hobby were used. 
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dsocp24)  #do you visit an organization for hobby 
table(LASA1D$dsocp57) #do you study a hobby

soc_LASA1_2$soc_sp_hobby_2 <- ifelse(LASA1D$dsocpyn==1 &LASA1D$dsocp55==1, 0L, 
                                     ifelse (LASA1D$dsocp24 =='2' | LASA1D$dsocp57 =='1',1L, ifelse((LASA1D$dsocp24 =='1' & LASA1D$dsocp57 !='1')| (LASA1D$dsocp57 =='1'&LASA1D$dsocp24 !='2'),0L, NA)))


table(soc_LASA1_2$soc_sp_hobby_2, useNA="always") 
```
### **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**:  complete    
**Harmonization comment**:  Study specific items 1.visiting an organization for a hobby was used.
**R script**:  
```{r, echo=TRUE}
table(LASA1E$esocp24)  #do you visit an organization for hobby 
table(LASA1E$esocp57) #do you study a hobby  NOT AVAILABLE 

soc_LASA1_3$soc_sp_hobby_3 <- ifelse(LASA1E$esocpyn==1 , 0L, 
                                     ifelse (LASA1E$esocp24 =='2',1L , ifelse(LASA1E$esocp24 =='1',0L, NA)))


table(soc_LASA1_3$soc_sp_hobby_3, useNA="always") 

```
### **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**:  complete    
**Harmonization comment**:  Study specific items 1.visiting an organization for a hobby or 2. studying a hobby where considered, were used.  
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fsocp24)  #do you visit an organization for hobby 
table(LASA1F$fsocp57) #do you study a hobby

soc_LASA1_4$soc_sp_hobby_4 <- ifelse(LASA1F$fsocpyn==1 &LASA1F$fsocp55==1, 0L, 
                                     ifelse (LASA1F$fsocp24 =='2' | LASA1F$fsocp57 =='1',1L, ifelse((LASA1F$fsocp24 =='1' & LASA1F$fsocp57 !='1')| (LASA1F$fsocp57 =='1'&LASA1F$fsocp24 !='2'),0L, NA)))


table(soc_LASA1_4$soc_sp_hobby_4, useNA="always") 
```
### **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**:  complete    
**Harmonization comment**:   A participant that yes for the LASA item 1.visiting an organization for a hobby/ social club or 2. studying a hobby where considered, were coded as having a hobby. 
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gsocp24)  #do you visit an organization for hobby 
table(LASA1G$gsocp57) #do you study a hobby 

soc_LASA1_5$soc_sp_hobby_5 <- ifelse(LASA1G$gsocpyn==1 &LASA1G$gsocp55==1, 0L, 
                                     ifelse (LASA1G$gsocp24 =='2' | LASA1G$gsocp57 =='1',1L, ifelse((LASA1G$gsocp24 =='1' & LASA1G$gsocp57 !='1')| (LASA1G$gsocp57 =='1'&LASA1G$gsocp24 !='2'),0L, NA)))


table(soc_LASA1_5$soc_sp_hobby_5, useNA="always") 
```
### **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**:  complete    
**Harmonization comment**:  A participant that yes for the LASA item 1.visiting an organization for a hobby/ social club or 2. studying a hobby where considered, were coded as having a hobby.  
**R script**:  
```{r, echo=TRUE}
table(LASA1H$HSOCP24)  #do you visit an organization for hobby 
table(LASA1H$HSOCP57) #do you study a hobby 1 = yes 

soc_LASA1_6$soc_sp_hobby_6 <- ifelse(LASA1H$HSOCPYN==1 &LASA1H$HSOCP55==1, 0L, 
                                     ifelse (LASA1H$HSOCP24 =='2' | LASA1H$HSOCP57 =='1',1L, ifelse((LASA1H$HSOCP24 =='1' & LASA1H$HSOCP57 !='1')| (LASA1H$HSOCP57 =='1'&LASA1H$HSOCP24 !='2'),0L, NA)))


table(soc_LASA1_6$soc_sp_hobby_6, useNA="always") 
```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_0  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no/ low social network and no participation in an association (any type, including religious organization and volunteering).  
**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**:  complete    
**Harmonization comment**:   Used same approach as in the harmonization of GLOBE data: utilized study available DataSchema social network - contact frequency variables (friends, neighbours, relatives, family and non-kin) in addition to the general participation variable, no contact with these different types of social network members and no participation was categorized as socially isolated. Having one or more of these types of members (in addition to children) in their network and reporting social participation was categorized as not socially isolated.  
**R script**:  
```{r, echo=TRUE}
# no contact frequency, as opposed to no network since this is what we used in GLOBE 

soc_LASA1_0$soc_sp_isolation_0 <- ifelse((soc_LASA1_0$soc_sn_freq_friends_0 == 3 | 
                                      soc_LASA1_0$soc_sn_freq_nbhs_0 ==3 |soc_LASA1_0$soc_sn_freq_close_relatives_0 ==3 |
                                        soc_LASA1_0$soc_sn_freq_relatives_0 ==3 |soc_LASA1_0$soc_sn_freq_nonkin_0==3 ) &
                                        soc_LASA1_0$soc_sp_general_0 == 0,1L,
                                 ifelse((soc_LASA1_0$soc_sn_freq_friends_0 >= 1 | soc_LASA1_0$soc_sn_freq_nbhs_0 >= 1 |
                                           soc_LASA1_0$soc_sn_freq_close_relatives_0 >= 1 | soc_LASA1_0$soc_sn_freq_relatives_0 >= 1)
                                        & soc_LASA1_0$soc_sn_freq_nonkin_0 == 1, 0L, NA ))

table(soc_LASA1_0$soc_sp_isolation_0, useNA="always")

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_1  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no/ low social network and no participation in an association (any type, including religious organization and volunteering).  
**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**:  complete    
**Harmonization comment**:  Used same approach as in the harmonization of GLOBE data: utilized study available DataSchema social network - contact frequency variables (friends, neighbours, relatives, family and non-kin) in addition to the general participation variable, no contact with these different types of social network members and no participation was categorized as socially isolated. Having one or more of these types of members (in addition to children) in their network and reporting social participation was categorized as not socially isolated.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_1$soc_sp_isolation_1 <- ifelse((soc_LASA1_1$soc_sn_freq_friends_1 == 3 | soc_LASA1_1$soc_sn_freq_nbhs_1 ==3 |     
                                          soc_LASA1_1$soc_sn_freq_close_relatives_1 ==3 | soc_LASA1_1$soc_sn_freq_relatives_1 ==3 |soc_LASA1_1$soc_sn_freq_nonkin_1==3 ) & 
                                           soc_LASA1_1$soc_sp_general_1 == 0,1L,
                                 ifelse((soc_LASA1_1$soc_sn_freq_friends_1 >= 1 | soc_LASA1_1$soc_sn_freq_nbhs_1 >= 1 | 
                                           soc_LASA1_1$soc_sn_freq_close_relatives_1 >= 1 | soc_LASA1_1$soc_sn_freq_relatives_1 >= 1) & 
                                          soc_LASA1_1$soc_sn_freq_nonkin_1 == 1, 0L, NA ))

table(soc_LASA1_1$soc_sp_isolation_1, useNA="always")

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_2  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no/ low social network and no participation in an association (any type, including religious organization and volunteering).  
**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**:  complete    
**Harmonization comment**:  Used same approach as in the harmonization of GLOBE data: utilized study available DataSchema social network - contact frequency variables (friends, neighbours, relatives, family and non-kin) in addition to the general participation variable, no contact with these different types of social network members and no participation was categorized as socially isolated. Having one or more of these types of members (in addition to children) in their network and reporting social participation was categorized as not socially isolated.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_2$soc_sp_isolation_2 <- ifelse((soc_LASA1_2$soc_sn_freq_friends_2 == 3 | soc_LASA1_2$soc_sn_freq_nbhs_2 ==3 | 
                                          soc_LASA1_2$soc_sn_freq_close_relatives_2 ==3 | soc_LASA1_2$soc_sn_freq_relatives_2 ==3 |soc_LASA1_2$soc_sn_freq_nonkin_2==3 ) & 
                                           soc_LASA1_2$soc_sp_general_2 == 0,1L,
                                 ifelse((soc_LASA1_2$soc_sn_freq_friends_2 >= 1 | soc_LASA1_2$soc_sn_freq_nbhs_2 >= 1 | 
                                           soc_LASA1_2$soc_sn_freq_close_relatives_2 >= 1 | soc_LASA1_2$soc_sn_freq_relatives_2 >= 1) & soc_LASA1_2$soc_sn_freq_nonkin_2 == 1, 0L, NA ))

table(soc_LASA1_2$soc_sp_isolation_2, useNA="always")

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_3  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no/ low social network and no participation in an association (any type, including religious organization and volunteering).  
**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**:  complete    
**Harmonization comment**:  Used same approach as in the harmonization of GLOBE data: utilized study available DataSchema social network - contact frequency variables (friends, neighbours, relatives, family and non-kin) in addition to the general participation variable, no contact with these different types of social network members and no participation was categorized as socially isolated. Having one or more of these types of members (in addition to children) in their network and reporting social participation was categorized as not socially isolated.  
**R script**:  
```{r, echo=TRUE}
soc_LASA1_3$soc_sp_isolation_3 <- ifelse((soc_LASA1_3$soc_sn_freq_friends_3 == 3 | soc_LASA1_3$soc_sn_freq_nbhs_3 ==3| 
                                          soc_LASA1_3$soc_sn_freq_close_relatives_3 ==3 | soc_LASA1_3$soc_sn_freq_relatives_3 ==3|soc_LASA1_3$soc_sn_freq_nonkin_3==3 ) & 
                                           soc_LASA1_3$soc_sp_general_3 == 0,1L,
                                 ifelse((soc_LASA1_3$soc_sn_freq_friends_3 >= 1 | soc_LASA1_3$soc_sn_freq_nbhs_3 >= 1 | 
                                          soc_LASA1_3$soc_sn_freq_close_relatives_3 >= 1 | soc_LASA1_3$soc_sn_freq_relatives_3 >= 1) & soc_LASA1_3$soc_sn_freq_nonkin_3 == 1, 0L, NA ))

table(soc_LASA1_3$soc_sp_isolation_3, useNA="always")

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_4  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no/ low social network and no participation in an association (any type, including religious organization and volunteering).  
**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**:  complete    
**Harmonization comment**:  Used same approach as in the harmonization of GLOBE data: utilized study available DataSchema social network - contact frequency variables (friends, neighbours, relatives, family and non-kin) in addition to the general participation variable, no contact with these different types of social network members and no participation was categorized as socially isolated. Having one or more of these types of members (in addition to children) in their network and reporting social participation was categorized as not socially isolated.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_4$soc_sp_isolation_4 <- ifelse((soc_LASA1_4$soc_sn_freq_friends_4 == 3 | soc_LASA1_4$soc_sn_freq_nbhs_4 ==3 | 
                                          soc_LASA1_4$soc_sn_freq_close_relatives_4 ==3 | soc_LASA1_4$soc_sn_freq_relatives_4 ==3 |soc_LASA1_4$soc_sn_freq_nonkin_4==3 ) & 
                                           soc_LASA1_4$soc_sp_general_4 == 0,1L,
                                 ifelse((soc_LASA1_4$soc_sn_freq_friends_4 >= 1 | soc_LASA1_4$soc_sn_freq_nbhs_4 >= 1 | 
                                          soc_LASA1_4$soc_sn_freq_close_relatives_4 >= 1 | soc_LASA1_4$soc_sn_freq_relatives_4 >= 1) & soc_LASA1_4$soc_sn_freq_nonkin_4 == 1, 0L, NA ))

table(soc_LASA1_4$soc_sp_isolation_4, useNA="always")

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_5  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no/ low social network and no participation in an association (any type, including religious organization and volunteering).  
**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**:  complete    
**Harmonization comment**:  Used same approach as in the harmonization of GLOBE data: utilized study available DataSchema social network - contact frequency variables (friends, neighbours, relatives, family and non-kin) in addition to the general participation variable, no contact with these different types of social network members and no participation was categorized as socially isolated. Having one or more of these types of members (in addition to children) in their network and reporting social participation was categorized as not socially isolated.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_5$soc_sp_isolation_5 <- ifelse((soc_LASA1_5$soc_sn_freq_friends_5 == 3 | soc_LASA1_5$soc_sn_freq_nbhs_5 ==3 | 
                                          soc_LASA1_5$soc_sn_freq_close_relatives_5 ==3 | soc_LASA1_5$soc_sn_freq_relatives_5 ==3 |soc_LASA1_5$soc_sn_freq_nonkin_5==3 ) & 
                                           soc_LASA1_5$soc_sp_general_5 == 0,1L,
                                 ifelse((soc_LASA1_5$soc_sn_freq_friends_5 >= 1 | soc_LASA1_5$soc_sn_freq_nbhs_5 >= 1 | 
                                          soc_LASA1_5$soc_sn_freq_close_relatives_5 >= 1 | soc_LASA1_5$soc_sn_freq_relatives_5 >= 1) & soc_LASA1_5$soc_sn_freq_nonkin_5 == 1, 0L, NA ))

table(soc_LASA1_5$soc_sp_isolation_5, useNA="always")

```
### **Variable label**:  Social isolation    
**Variable name**:  soc_sp_isolation_6  
**Variable description**:  Indicator of whether the participant is socially isolated i.e. no/ low social network and no participation in an association (any type, including religious organization and volunteering).  
**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**:  complete    
**Harmonization comment**:  Used same approach as in the harmonization of GLOBE data: utilized study available DataSchema social network - contact frequency variables (friends, neighbours, relatives, family and non-kin) in addition to the general participation variable, no contact with these different types of social network members and no participation was categorized as socially isolated. Having one or more of these types of members (in addition to children) in their network and reporting social participation was categorized as not socially isolated.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_6$soc_sp_isolation_6 <- ifelse((soc_LASA1_6$soc_sn_freq_friends_6 == 3 | soc_LASA1_6$soc_sn_freq_nbhs_6 ==3 | 
                                          soc_LASA1_6$soc_sn_freq_close_relatives_6 ==3 | soc_LASA1_6$soc_sn_freq_relatives_6 ==3 |soc_LASA1_6$soc_sn_freq_nonkin_6==3 ) & 
                                           soc_LASA1_6$soc_sp_general_6 == 0,1L,
                                 ifelse((soc_LASA1_6$soc_sn_freq_friends_6 >= 1 | soc_LASA1_6$soc_sn_freq_nbhs_6 >= 1 | 
                                          soc_LASA1_6$soc_sn_freq_close_relatives_6 >= 1 | soc_LASA1_6$soc_sn_freq_relatives_6 >= 1) & soc_LASA1_6$soc_sn_freq_nonkin_6 == 1, 0L, NA ))

table(soc_LASA1_6$soc_sp_isolation_6, useNA="always")

```

# 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**:  complete    
**Harmonization comment**:  LASA  participants asked if this life event occured since the last interview.   
**R script**:  
```{r, echo=TRUE}

table(LASA1C$ccrime)  
summary(LASA1C$ccrime)

soc_LASA1_1$soc_le_vic_1 <- ifelse(LASA1C$ccrime ==2,1L, 
                                         ifelse(LASA1C$ccrime ==1,0L, NA))

table(soc_LASA1_1$soc_le_vic_1, useNA="always") 
summary(soc_LASA1_1$soc_le_vic_1)
```
### **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**:  complete    
**Harmonization comment**:  LASA  participants asked if this life event occured since the last interview.    
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dcrime) 
summary(LASA1D$dcrime)
soc_LASA1_2$soc_le_vic_2 <- ifelse(LASA1D$dcrime ==2,1L, 
                                         ifelse(LASA1D$dcrime ==1,0L, NA))

table(soc_LASA1_2$soc_le_vic_2, useNA="always") 
summary(soc_LASA1_2$soc_le_vic_2) 

```
### **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**:  complete    
**Harmonization comment**:  LASA  participants asked if this life event occured since the last interview.    
**R script**:  
```{r, echo=TRUE}
table(LASA1E$ecrime) 
summary(LASA1E$ecrime)

soc_LASA1_3$soc_le_vic_3 <- ifelse(LASA1E$ecrime ==2,1L, 
                                         ifelse(LASA1E$ecrime ==1,0L, NA))

table(soc_LASA1_3$soc_le_vic_3, useNA="always") 
summary(soc_LASA1_3$soc_le_vic_3)

```
### **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**:  complete    
**Harmonization comment**:  LASA  participants asked if this life event occured since the last interview.    
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fcrime)  
summary(LASA1F$fcrime)

soc_LASA1_4$soc_le_vic_4 <- ifelse(LASA1F$fcrime ==2,1L, 
                                         ifelse(LASA1F$fcrime ==1,0L, NA))

table(soc_LASA1_4$soc_le_vic_4) 
summary(soc_LASA1_4$soc_le_vic_4) 
```
### **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**:  complete    
**Harmonization comment**:   LASA  participants asked if this life event occured since the last interview.   
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gcrime)  
summary(LASA1G$gcrime)

soc_LASA1_5$soc_le_vic_5 <- ifelse(LASA1G$gcrime ==2,1L, 
                                         ifelse(LASA1G$gcrime ==1,0L, NA))

table(soc_LASA1_5$soc_le_vic_5) 
summary(soc_LASA1_5$soc_le_vic_5)
```
### **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**:  complete    
**Harmonization comment**:  LASA  participants asked if this life event occured since the last interview.    
**R script**:  
```{r, echo=TRUE}
table(LASA1H$Hcrime)  
summary(LASA1H$Hcrime)

soc_LASA1_6$soc_le_vic_6 <- ifelse(LASA1H$Hcrime ==2,1L, 
                                         ifelse(LASA1H$Hcrime ==1,0L, NA))

table(soc_LASA1_6$soc_le_vic_6) 
summary(soc_LASA1_6$soc_le_vic_6)
```
### **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**:   
**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**:  complete    
**Harmonization comment**:   LASA  participants asked if this life event occured since the last interview.   
**R script**:  
```{r, echo=TRUE}
table(LASA1C$cfinanc)  
summary(LASA1C$cfinanc)
soc_LASA1_1$soc_le_fprob_1 <- ifelse(LASA1C$cfinanc ==2,1L, 
                                         ifelse(LASA1C$cfinanc ==1,0L, NA))

table(soc_LASA1_1$soc_le_fprob_1) 
summary(soc_LASA1_1$soc_le_fprob_1)
```
### **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**:  complete    
**Harmonization comment**:   LASA  participants asked if this life event occured since the last interview.   
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dfinanc) 
summary(LASA1D$dfinanc)

soc_LASA1_2$soc_le_fprob_2 <- ifelse(LASA1D$dfinanc ==2,1L, 
                                         ifelse(LASA1D$dfinanc ==1,0L, NA))

table(soc_LASA1_2$soc_le_fprob_2) 
summary(soc_LASA1_2$soc_le_fprob_2) 
```
### **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**:  complete    
**Harmonization comment**:   LASA  participants asked if this life event occured since the last interview.   
**R script**:  
```{r, echo=TRUE}
table(LASA1E$efinanc) 
summary(LASA1E$efinanc)

soc_LASA1_3$soc_le_fprob_3 <- ifelse(LASA1E$efinanc ==2,1L, 
                                         ifelse(LASA1E$efinanc ==1,0L, NA))

table(soc_LASA1_3$soc_le_fprob_3) 
summary(soc_LASA1_3$soc_le_fprob_3)
```
### **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**:  complete    
**Harmonization comment**:   LASA  participants asked if this life event occured since the last interview.   
**R script**:  
```{r, echo=TRUE}
table(LASA1F$ffinanc)  
summary(LASA1F$ffinanc)

soc_LASA1_4$soc_le_fprob_4 <- ifelse(LASA1F$ffinanc ==2,1L, 
                                         ifelse(LASA1F$ffinanc ==1,0L, NA))

table(soc_LASA1_4$soc_le_fprob_4) 
summary(soc_LASA1_4$soc_le_fprob_4) 
```
### **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**:  complete    
**Harmonization comment**:   LASA  participants asked if this life event occured since the last interview.   
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gfinanc)  
summary(LASA1G$gfinanc)

soc_LASA1_5$soc_le_fprob_5 <- ifelse(LASA1G$gfinanc ==2,1L, 
                                         ifelse(LASA1G$gfinanc ==1,0L, NA))

table(soc_LASA1_5$soc_le_fprob_5) 
summary(soc_LASA1_5$soc_le_fprob_5)
```
### **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**:  complete    
**Harmonization comment**:  LASA  participants asked if this life event occured since the last interview.    
**R script**:  
```{r, echo=TRUE}
table(LASA1H$Hfinanc)  
summary(LASA1H$Hfinanc)

soc_LASA1_6$soc_le_fprob_6 <- ifelse(LASA1H$Hfinanc ==2,1L, 
                                         ifelse(LASA1H$Hfinanc ==1,0L, NA))

table(soc_LASA1_6$soc_le_fprob_6) 
summary(soc_LASA1_6$soc_le_fprob_6)
```

### **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**:  complete   
**Harmonization comment**:  Study specific variables used ask if participant experienced 1. illness of partner/spouse and 2. ilnness of relative(s).   Answering yes to either is harmonized as 'Did experience illness of family member.' LASA participants asked if this life event occured since the last interview.  
**R script**:  
```{r, echo=TRUE}
table(LASA1C$cillpart) 
table(LASA1C$cillpart, LASA1C$cpartst)
table(LASA1C$cilloth, LASA1C$cillpart, useNA="always")  

soc_LASA1_1$soc_le_illfam_1 <- ifelse(LASA1C$cillpart =='2' | LASA1C$cilloth =='2',1L, 
                                     ifelse(LASA1C$cillpart =='1'|(LASA1C$cillpart ==-2&LASA1C$cpartst==0) & LASA1C$cilloth =='1',0L, NA))

table(soc_LASA1_1$soc_le_illfam_1, useNA="always") 

```
### **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**:  complete   
**Harmonization comment**:  Study specific variables used ask if participant experienced 1. illness of partner/spouse and 2. ilnness of relative(s).   Answering yes to either is harmonized as 'Did experience illness of family member.' LASA participants asked if this life event occured since the last interview.  
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dillpart)  
table(LASA1D$dilloth)  

soc_LASA1_2$soc_le_illfam_2 <- ifelse(LASA1D$dillpart ==2 | LASA1D$dilloth ==2,1L, 
                                     ifelse(LASA1D$dillpart ==1|(LASA1D$dillpart ==-2 & LASA1D$dpartst==0) & LASA1D$dilloth ==1,0L, NA))

table(soc_LASA1_2$soc_le_illfam_2, useNA="always") 

```
### **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**:  complete   
**Harmonization comment**:  Study specific variables used ask if participant experienced 1. illness of partner/spouse and 2. ilnness of relative(s).   Answering yes to either is harmonized as 'Did experience illness of family member.' LASA participants asked if this life event occured since the last interview.    
**R script**:  
```{r, echo=TRUE}
table(LASA1E$eillpart)  
table(LASA1E$eilloth) 

soc_LASA1_3$soc_le_illfam_3 <- ifelse(LASA1E$eillpart =='2' | LASA1E$eilloth =='2',1L, 
                                     ifelse(LASA1E$eillpart =='1'|(LASA1E$eillpart ==-2&LASA1E$epartst==0) & LASA1E$eilloth =='1',0L, NA))

table(soc_LASA1_3$soc_le_illfam_3, useNA="always") 
summary(soc_LASA1_3$soc_le_illfam_3)
```
### **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**:  complete   
**Harmonization comment**:  Study specific variables used ask if participant experienced 1. illness of partner/spouse and 2. ilnness of relative(s).   Answering yes to either is harmonized as 'Did experience illness of family member.' LASA participants asked if this life event occured since the last interview.    
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fillpart)  
table(LASA1F$filloth)  

soc_LASA1_4$soc_le_illfam_4 <- ifelse(LASA1F$fillpart =='2' | LASA1F$filloth =='2',1L, 
                                     ifelse(LASA1F$fillpart =='1'|(LASA1F$fillpart ==-2&LASA1F$fpartst==0) & LASA1F$filloth =='1',0L, NA))

table(soc_LASA1_4$soc_le_illfam_4, useNA="always") 
summary(soc_LASA1_4$soc_le_illfam_4)

```
### **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**:  complete   
**Harmonization comment**:  Study specific variables used ask if participant experienced 1. illness of partner/spouse and 2. ilnness of relative(s).   Answering yes to either is harmonized as 'Did experience illness of family member.' LASA participants asked if this life event occured since the last interview.    
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gillpart)  
table(LASA1G$gilloth)  

soc_LASA1_5$soc_le_illfam_5 <- ifelse(LASA1G$gillpart =='2' | LASA1G$gilloth =='2',1L, 
                                     ifelse(LASA1G$gillpart =='1'|(LASA1G$gillpart ==-2&LASA1G$gpartst==0) & LASA1G$gilloth =='1',0L, NA)) 

table(soc_LASA1_5$soc_le_illfam_5, useNA="always") 
summary(soc_LASA1_5$soc_le_illfam_5)
```
### **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**:  complete   
**Harmonization comment**:  Study specific variables used ask if participant experienced 1. illness of partner/spouse and 2. ilnness of relative(s).   Answering yes to either is harmonized as 'Did experience illness of family member.' LASA participants asked if this life event occured since the last interview.   
**R script**:  
```{r, echo=TRUE}
table(LASA1H$Hillpart) 
table(LASA1H$Hilloth) 

soc_LASA1_6$soc_le_illfam_6 <- ifelse(LASA1H$Hillpart =='2' | LASA1H$Hilloth =='2',1L, 
                                     ifelse(LASA1H$Hillpart =='1'|(LASA1H$Hillpart ==-2&LASA1H$	
hpartst==0) & LASA1H$Hilloth =='1',0L, NA)) 

table(soc_LASA1_6$soc_le_illfam_6, useNA="always") 
summary(soc_LASA1_6$soc_le_illfam_6)
```
### **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}
# does not ask about friend's death  

```
### **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**:   
**R script**:  
```{r, echo=TRUE}

soc_LASA1_0$soc_res_num_yrsnbh_0 <- ifelse(LASA1B$byneigh==-4, NA, as.integer(LASA1B$byneigh))

table(soc_LASA1_0$soc_res_num_yrsnbh_0) 
summary(soc_LASA1_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**:   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_1$soc_res_num_yrsnbh_1 <- ifelse(LASA1C$cyneigh<0, NA,
                                           as.integer(LASA1C$cyneigh))

table(soc_LASA1_1$soc_res_num_yrsnbh_1) 
summary(soc_LASA1_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**:  complete    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_2$soc_res_num_yrsnbh_2 <- ifelse(LASA1D$dyneigh==-4, NA, as.integer(LASA1D$dyneigh))

table(soc_LASA1_2$soc_res_num_yrsnbh_2) 
summary(soc_LASA1_2$soc_res_num_yrsnbh_2) 
```
### **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**:  complete   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_3$soc_res_num_yrsnbh_3 <-  ifelse(LASA1E$eyneigh==-4, NA, as.integer(LASA1E$eyneigh))

table(soc_LASA1_3$soc_res_num_yrsnbh_3) 
summary(soc_LASA1_3$soc_res_num_yrsnbh_3) 
```
### **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**:  complete   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_4$soc_res_num_yrsnbh_4 <- ifelse(LASA1F$fyneigh==-4, NA, as.integer(LASA1F$fyneigh))

table(soc_LASA1_4$soc_res_num_yrsnbh_4) 
summary(soc_LASA1_4$soc_res_num_yrsnbh_4) 
```
### **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**:  complete   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_5$soc_res_num_yrsnbh_5 <- ifelse(LASA1G$gyneigh==-4, NA, as.integer(LASA1G$gyneigh))

table(soc_LASA1_5$soc_res_num_yrsnbh_5) 
summary(soc_LASA1_5$soc_res_num_yrsnbh_5) 
```
### **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**: complete    
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_6$soc_res_num_yrsnbh_6 <- ifelse(LASA1H$HYNEIGH==-4, NA, as.integer(LASA1H$HYNEIGH))

table(soc_LASA1_6$soc_res_num_yrsnbh_6) 
summary(soc_LASA1_6$soc_res_num_yrsnbh_6) 
```
### **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**:  Study specific variable asks about number of years in the neighbourhood.   
**R script**:  
```{r, echo=TRUE}
#Asli you mentioned not using this, but there is no alternative, we feel w/ the comment added, this can be used to harmonize this DS 

soc_LASA1_0$soc_res_num_yrshome_0 <-  ifelse(LASA1B$byneigh==-4, NA, as.integer(LASA1B$byneigh))


table(soc_LASA1_0$soc_res_num_yrshome_0) 
summary(soc_LASA1_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**:  Study specific variable asks about number of years in the neighbourhood.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_1$soc_res_num_yrshome_1 <- ifelse(LASA1C$cyneigh<0, NA,
      as.integer(LASA1C$cyneigh))

table(soc_LASA1_1$soc_res_num_yrshome_1) 
summary(soc_LASA1_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**:  complete   
**Harmonization comment**:  Study specific variable asks about number of years in the neighbourhood.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_2$soc_res_num_yrshome_2 <- ifelse(LASA1D$dyneigh==-4, NA, as.integer(LASA1D$dyneigh))


table(soc_LASA1_2$soc_res_num_yrshome_2) 
summary(soc_LASA1_2$soc_res_num_yrshome_2) 

```
### **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**:  complete   
**Harmonization comment**:  Study specific variable asks about number of years in the neighbourhood.   
**R script**:  
```{r, echo=TRUE}
soc_LASA1_3$soc_res_num_yrshome_3 <- ifelse(LASA1E$eyneigh==-4, NA, as.integer(LASA1E$eyneigh))

table(soc_LASA1_3$soc_res_num_yrshome_3) 
summary(soc_LASA1_3$soc_res_num_yrshome_3) 
```
### **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**:  complete   
**Harmonization comment**: Study specific variable asks about number of years in the neighbourhood.    
**R script**:  
```{r, echo=TRUE}
soc_LASA1_4$soc_res_num_yrshome_4 <-  ifelse(LASA1F$fyneigh==-4, NA, as.integer(LASA1F$fyneigh))

table(soc_LASA1_4$soc_res_num_yrshome_4) 
summary(soc_LASA1_4$soc_res_num_yrshome_4) 
```
### **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**:  complete   
**Harmonization comment**: Study specific variable asks about number of years in the neighbourhood.    
**R script**:  
```{r, echo=TRUE}
soc_LASA1_5$soc_res_num_yrshome_5 <- ifelse(LASA1G$gyneigh==-4, NA, as.integer(LASA1G$gyneigh))

table(soc_LASA1_5$soc_res_num_yrshome_5) 
summary(soc_LASA1_5$soc_res_num_yrshome_5) 
```
### **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**:  complete   
**Harmonization comment**: Study specific variable asks about number of years in the neighbourhood.    
**R script**:  
```{r, echo=TRUE}
soc_LASA1_6$soc_res_num_yrshome_6 <- ifelse(LASA1H$HYNEIGH==-4, NA, as.integer(LASA1H$HYNEIGH))

table(soc_LASA1_6$soc_res_num_yrshome_6) 
summary(soc_LASA1_6$soc_res_num_yrshome_6) 
```
### **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**:  complete 
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1B$bmovefut )  #  2= yes 1 = no 
summary(LASA1B$bmovefut )

soc_LASA1_0$soc_res_satis_0 <- ifelse(LASA1B$bmovefut  ==0,0L, 
                                         ifelse(LASA1B$bmovefut  ==1,1L, NA))

table(soc_LASA1_0$soc_res_satis_0) 
summary(soc_LASA1_0$soc_res_satis_0)
```
### **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**:  complete  
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1C$cmovefut)  
summary(LASA1C$cmovefut)
soc_LASA1_1$soc_res_satis_1 <- ifelse(LASA1C$cmovefut ==2,1L, 
                                         ifelse(LASA1C$cmovefut ==1,0L, NA))

table(soc_LASA1_1$soc_res_satis_1) 
summary(soc_LASA1_1$soc_res_satis_1)

```
### **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**:  complete   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dmovefut) 
summary(LASA1D$dmovefut)

soc_LASA1_2$soc_res_satis_2 <- ifelse(LASA1D$dmovefut ==2,1L, 
                                         ifelse(LASA1D$dmovefut ==1,0L, NA))

table(soc_LASA1_2$soc_res_satis_2) 
summary(soc_LASA1_2$soc_res_satis_2) 
```
### **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**:  complete   
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1E$emovefut) 
summary(LASA1E$emovefut)

soc_LASA1_3$soc_res_satis_3 <- ifelse(LASA1E$emovefut ==2,1L, 
                                         ifelse(LASA1E$emovefut ==1,0L, NA))

table(soc_LASA1_3$soc_res_satis_3) 
summary(soc_LASA1_3$soc_res_satis_3)
```
### **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**:  complete
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1B$bmoved)  #  2= yes 1 = no 
summary(LASA1B$bmoved)

soc_LASA1_0$soc_res_move_0 <- ifelse(LASA1B$bmoved ==2,1L, 
                                         ifelse(LASA1B$bmoved ==1,0L, NA))

table(soc_LASA1_0$soc_res_move_0) 
summary(soc_LASA1_0$soc_res_move_0) 
```
### **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**:   complete
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1C$cmoved)  
summary(LASA1C$cmoved)
soc_LASA1_1$soc_res_move_1 <- ifelse(LASA1C$cmoved ==2,1L, 
                                         ifelse(LASA1C$cmoved ==1,0L, NA))

table(soc_LASA1_1$soc_res_move_1) 
summary(soc_LASA1_1$soc_res_move_1)
```
### **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**:  complete
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dmoved) 
summary(LASA1D$dmoved)

soc_LASA1_2$soc_res_move_2 <- ifelse(LASA1D$dmoved ==2,1L, 
                                         ifelse(LASA1D$dmoved ==1,0L, NA))

table(soc_LASA1_2$soc_res_move_2) 
summary(soc_LASA1_2$soc_res_move_2)
```
### **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**:  complete
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1E$emoved) 
summary(LASA1E$emoved)

soc_LASA1_3$soc_res_move_3 <- ifelse(LASA1E$emoved ==2,1L, 
                                         ifelse(LASA1E$emoved ==1,0L, NA))

table(soc_LASA1_3$soc_res_move_3) 
summary(soc_LASA1_3$soc_res_move_3)
```
### **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**:  complete
**Harmonization comment**:    
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fmoved)  
summary(LASA1F$fmoved)

soc_LASA1_4$soc_res_move_4 <- ifelse(LASA1F$fmoved ==2 | LASA1F$fmoved ==3,1L, 
                                         ifelse(LASA1F$fmoved ==1 | LASA1F$fmoved ==4,0L, NA))

table(soc_LASA1_4$soc_res_move_4) 
summary(soc_LASA1_4$soc_res_move_4)
```
### **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**:  complete
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1G$gmoved)  
summary(LASA1G$gmoved)

soc_LASA1_5$soc_res_move_5 <- ifelse(LASA1G$gmoved ==2|LASA1G$gmoved ==3,1L, 
                                         ifelse(LASA1G$gmoved ==1 | LASA1G$gmoved ==4,0L, NA))

table(soc_LASA1_5$soc_res_move_5) 
summary(soc_LASA1_5$soc_res_move_5)
```
### **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**:  complete
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1H$HMOVED)  
summary(LASA1H$HMOVED)

soc_LASA1_6$soc_res_move_6 <- ifelse(LASA1H$HMOVED ==2,1L, 
                                         ifelse(LASA1H$HMOVED ==1|LASA1H$HMOVED ==4,0L, NA))

table(soc_LASA1_6$soc_res_move_6) 
summary(soc_LASA1_6$soc_res_move_6)
```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_0                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing/ retirement home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

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

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable asks participant if they live independently or in a nursing home, psychiatric hospital, other psychiatric facilities, monastery.    
**R script**:  
```{r, echo=TRUE}
table(LASA1B$bhindep)  
summary(LASA1B$bhindep)

soc_LASA1_0$soc_res_indep_0 <- ifelse(LASA1B$bhindep ==1,0L, 
                                         ifelse(LASA1B$bhindep >1,1L, NA))

table(soc_LASA1_0$soc_res_indep_0) 
summary(soc_LASA1_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/ retirement home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

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

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable asks participant if they live independently or in a nursing home, psychiatric hospital, other psychiatric facilities, monastery.  
**R script**:  
```{r, echo=TRUE}
table(LASA1C$chindep)  
summary(LASA1C$chindep)
soc_LASA1_1$soc_res_indep_1 <- ifelse(LASA1C$chindep ==1,0L, 
                                         ifelse(LASA1C$chindep >1,1L, NA))

table(soc_LASA1_1$soc_res_indep_1) 
summary(soc_LASA1_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/ retirement home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

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

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable asks participant if they live independently or in a nursing home, psychiatric hospital, other psychiatric facilities, monastery.  
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dhindep) 
summary(LASA1D$dhindep)

soc_LASA1_2$soc_res_indep_2 <- ifelse(LASA1D$dhindep ==1,0L, 
                                         ifelse(LASA1D$dhindep >1,1L, NA))

table(soc_LASA1_2$soc_res_indep_2) 
summary(soc_LASA1_2$soc_res_indep_2) 
```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_3                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing/ retirement home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

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

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable asks participant if they live independently or in a nursing home, psychiatric hospital, other psychiatric facilities, monastery.   
**R script**:  
```{r, echo=TRUE}
table(LASA1E$ehindep) 
summary(LASA1E$ehindep)

soc_LASA1_3$soc_res_indep_3 <- ifelse(LASA1E$ehindep ==1,0L, 
                                         ifelse(LASA1E$ehindep >1,1L, NA))

table(soc_LASA1_3$soc_res_indep_3) 
summary(soc_LASA1_3$soc_res_indep_3)
```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_4                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing/ retirement home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

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

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable asks participant if they live independently or in a nursing home, psychiatric hospital, other psychiatric facilities, monastery.   
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fhindep)  
summary(LASA1F$fhindep)

soc_LASA1_4$soc_res_indep_4 <- ifelse(LASA1F$fhindep ==1,0L, 
                                         ifelse(LASA1F$fhindep >1,1L, NA))

table(soc_LASA1_4$soc_res_indep_4) 
summary(soc_LASA1_4$soc_res_indep_4) 
```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_5                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing/ retirement home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

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

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable asks participant if they live independently or in a nursing home, psychiatric hospital, other psychiatric facilities, monastery.   
**R script**:  
```{r, echo=TRUE}
table(LASA1G$ghindep)  
summary(LASA1G$ghindep)

soc_LASA1_5$soc_res_indep_5 <- ifelse(LASA1G$ghindep ==1,0L, 
                                         ifelse(LASA1G$ghindep >1,1L, NA))

table(soc_LASA1_5$soc_res_indep_5) 
summary(soc_LASA1_5$soc_res_indep_5)
```
### **Variable label**:  Residence independence     
**Variable name**:  soc_res_indep_6                  
**Variable description**:  Indicator of whether the participant lives independently or in a nursing/ retirement home.        
**Value type**:  integer  
**Variable unit**:   
**Category coding**:  

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

**Harmonization status**:  complete
**Harmonization comment**:  Study specific variable asks participant if they live independently or in a nursing home, psychiatric hospital, other psychiatric facilities, monastery.   
**R script**:  
```{r, echo=TRUE}
table(LASA1H$HHINDEP)  
summary(LASA1H$HHINDEP)

soc_LASA1_6$soc_res_indep_6 <- ifelse(LASA1H$HHINDEP ==1,0L, 
                                         ifelse(LASA1H$HHINDEP >1,1L, NA))

table(soc_LASA1_6$soc_res_indep_6) 
summary(soc_LASA1_6$soc_res_indep_6)
```
### **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**:  impossible 
**Harmonization comment**:   bhoustyp only applies to those that said they moved
**R script**:  
```{r, echo=TRUE}

```
### **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**:  impossible
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}


```
### **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**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1B$bhowner)  #  2= yes 1 = no 
summary(LASA1B$bhowner) 

soc_LASA1_0$soc_res_home_own_dich_0 <- ifelse(LASA1B$bhowner ==1,1L, 
                                         ifelse(LASA1B$bhowner >1,0L, NA))

table(soc_LASA1_0$soc_res_home_own_dich_0) 
summary(soc_LASA1_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**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1C$chowner)  
summary(LASA1C$chowner)
soc_LASA1_1$soc_res_home_own_dich_1 <- ifelse(LASA1C$chowner ==1,1L, 
                                         ifelse(LASA1C$chowner >1,0L, NA))

table(soc_LASA1_1$soc_res_home_own_dich_1) 
summary(soc_LASA1_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**:  complete
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dhowner) 
summary(LASA1D$dhowner)

soc_LASA1_2$soc_res_home_own_dich_2 <- ifelse(LASA1D$dhowner ==1,1L, 
                                         ifelse(LASA1D$dhowner >1,0L, NA))

table(soc_LASA1_2$soc_res_home_own_dich_2) 
summary(soc_LASA1_2$soc_res_home_own_dich_2) 

```
### **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**:  complete
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1E$ehowner) 
summary(LASA1E$ehowner)

soc_LASA1_3$soc_res_home_own_dich_3 <- ifelse(LASA1E$ehowner ==1,1L, 
                                         ifelse(LASA1E$ehowner >1,0L, NA))

table(soc_LASA1_3$soc_res_home_own_dich_3) 
summary(soc_LASA1_3$soc_res_home_own_dich_3)
```
### **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**:  complete
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1F$fhowner)  
summary(LASA1F$fhowner)

soc_LASA1_4$soc_res_home_own_dich_4 <- ifelse(LASA1F$fhowner ==1,1L, 
                                         ifelse(LASA1F$fhowner >1,0L, NA))

table(soc_LASA1_4$soc_res_home_own_dich_4) 
summary(soc_LASA1_4$soc_res_home_own_dich_4) 
```
### **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**:  complete
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1G$ghowner)  
summary(LASA1G$ghowner)

soc_LASA1_5$soc_res_home_own_dich_5 <- ifelse(LASA1G$ghowner ==1,1L, 
                                         ifelse(LASA1G$ghowner >1,0L, NA))

table(soc_LASA1_5$soc_res_home_own_dich_5) 
summary(soc_LASA1_5$soc_res_home_own_dich_5)

```
### **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**:  complete 
**Harmonization comment**:   
**R script**:  
```{r, echo=TRUE}
table(LASA1H$HHOWNER)  
summary(LASA1H$HHOWNER)

soc_LASA1_6$soc_res_home_own_dich_6 <- ifelse(LASA1H$HHOWNER ==1,1L, 
                                         ifelse(LASA1H$HHOWNER >1,0L, NA))

table(soc_LASA1_6$soc_res_home_own_dich_6) 
summary(soc_LASA1_6$soc_res_home_own_dich_6)
```
### **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**:  complete
**Harmonization comment**:  
**R script**:  
```{r, echo=TRUE}
table(LASA1B$bmortga, LASA1B$bhowner)  # 1 no mortgage 2 mortgage 

soc_LASA1_0$soc_res_home_own_0 <- ifelse(LASA1B$bhowner ==1 & LASA1B$bmortga ==1 ,1L, 
                                         ifelse(LASA1B$bhowner ==1 & LASA1B$bmortga ==2 ,2L, 
                                         ifelse(LASA1B$bhowner >=2 ,3L, NA)))

table(soc_LASA1_0$soc_res_home_own_0, useNA="always") 
summary(soc_LASA1_0$soc_res_home_own_0) 
```
### **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**:  complete
**Harmonization comment**:     
**R script**:  
```{r, echo=TRUE}
table(LASA1C$chowner)  #  2= yes 1 = no 
table(LASA1C$cmortga)  # 1 no mortgage 2 mortgage 

soc_LASA1_1$soc_res_home_own_1 <- ifelse(LASA1C$chowner ==1 & LASA1C$cmortga ==1 ,1L, 
                                         ifelse(LASA1C$chowner ==1 & LASA1C$cmortga ==2 ,2L, 
                                         ifelse(LASA1C$chowner >=2 ,3L, NA)))

table(soc_LASA1_1$soc_res_home_own_1, useNA="always") 
summary(soc_LASA1_1$soc_res_home_own_1) 
```
### **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**:  complete
**Harmonization comment**:      
**R script**:  
```{r, echo=TRUE}
table(LASA1D$dhowner)  #  2= yes 1 = no 
table(LASA1D$dmortga)  # 1 no mortgage 2 mortgage 

soc_LASA1_2$soc_res_home_own_2 <- ifelse(LASA1D$dhowner ==1 & LASA1D$dmortga ==1 ,1L, 
                                         ifelse(LASA1D$dhowner ==1 & LASA1D$dmortga ==2 ,2L, 
                                         ifelse(LASA1D$dhowner >=2 ,3L, NA)))

table(soc_LASA1_2$soc_res_home_own_2, useNA="always") 
summary(soc_LASA1_2$soc_res_home_own_2) 
```