diff --git a/data/_demodata/applications/datacatalogue/Catalogues.csv b/data/_demodata/applications/datacatalogue/Catalogues.csv index 90d6b28573..a5268296cc 100644 --- a/data/_demodata/applications/datacatalogue/Catalogues.csv +++ b/data/_demodata/applications/datacatalogue/Catalogues.csv @@ -4,3 +4,4 @@ ATHLETE,project IPEC,theme EUChildNetwork,project OOM,project +LongITools,project diff --git a/data/_demodata/applications/datacatalogue/Cohorts.csv b/data/_demodata/applications/datacatalogue/Cohorts.csv index 2ce9a1eae7..63c9437915 100644 --- a/data/_demodata/applications/datacatalogue/Cohorts.csv +++ b/data/_demodata/applications/datacatalogue/Cohorts.csv @@ -134,3 +134,4 @@ DNBC,,DNBC,The Danish National Birth Cohort,,,https://www.dnbc.dk,UCPH,,"The Dan ELSPAC,,ELSPAC,ELSPAC,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, FEF,,FEF,Fibrefects - Grain fibre modification for gut-mediated health effects,,"RCT, Postprandial, Glucose metabolism, Short chain fatty acids, Rye, Wheat, Wholegrain, Bran, Bioprocessing, Gastrointestinal symptoms",,UEF,,,,Clinical trial,,Longitudinal,,,Prospective,,25,25,Finland,,"Adult (25-44 years),Middle-aged (45-64 years)",,,2011,2011,,,,Closed dataset,,no,,health or medical or biomedical research,,,,10.1186/1475-2891-13-104,10.1093/ajcn/nqy394,,"This study was carried out as a part of the FIBREFECTS (Grain fiber modification for gut mediated health effects) funded mainly by TEKES – The Finnish Funding Agency for Technology and Innovation – and to a smaller extent by Oy Karl Fazer Ab, Vaasan Oy, and Ravintoraisio Oy. The study was supported by a grant from Raisio Plc Research Foundation to J. Lappi, Academy of Finland to K. Poutanen, the Nordic Centre of Excellence on ‘Systems biology in controlled dietary interventions and cohort studies’ (SYSDIET; 070014) to M. Kolehmainen, the Nordic Centre of Excellence on ‘Nordic health – whole grain food (HELGA; 070015) to H. Mykkänen, and the Danish Strategic Research Council, ‘Concepts for enhanced butyrate production to improve colonic health and insulin sensi","Authors thank Erja Kinnunen, Eeva Lajunen and Lilli Lotvonen for their excellent technical assistance during the intervention.", KANC,,KANC,Kaunas cohort,,,,VMU,,,,Population cohort,,Longitudinal,,,"Retrospective,Prospective",,4000,4000,Lithuania,,"Prenatal,Child (2-12 years),Adolescent (13-17 years)",,,2007,,,,,,,,,health or medical or biomedical research,,,,,,,,, +ENVIRONAGE,,ENVIRONAGE,ENVIRonmental influence ON early AGEing,,"air pollution, child, aging, newborn, exposome, telomere length, placenta, omics, cardiovascular, system cognition",https://www.uhasselt.be/Algemene-Informatie-Limburgs-Geboortecohort,UHASSELT,,Within the ongoing population-based prospective birth cohort study ENVIRONAGE we explore new dimensions in the current understanding of human ageing and its interaction with the environment,,Birth cohort,,Longitudinal,,,"Retrospective,Prospective",,2000,2000,Belgium,,,,,2010,,,,,Annually,"Due to ongoing recruitment and follow-up, annual updates are provided of the datasets",No,,health or medical or biomedical research,,Contact Tim Nawrot (tim.nawrot@uhasselt.be) or Michelle Plusquin (Michelle.plusquin@uhasselt.Be),,10.1093/ije/dyw269,,,"The ENVIRONAGE birth cohort is supported by the European Research Council [ERC-2012-StG.310898], and by funds of the Flemish Scientific Research council [FWO, G.0.733.15.N, G.0.592.14].","The authors are extremely grateful to the participating women and neonates, as well as the staff of the maternity ward, midwives and the staff of the clinical laboratory of East-Limburg Hospital in Genk.", \ No newline at end of file diff --git a/data/_demodata/applications/datacatalogue/Datasets.csv b/data/_demodata/applications/datacatalogue/Datasets.csv index 090bba5c4d..04267c18fa 100644 --- a/data/_demodata/applications/datacatalogue/Datasets.csv +++ b/data/_demodata/applications/datacatalogue/Datasets.csv @@ -1,6 +1,17 @@ resource,name,label,unit of observation,keywords,description,number of rows,since version,until version +G21,blood_pressure,blood pressure,,,blood pressure of the child measured during G21 cohort follow-ups,,1.0.0, +G21,child,child,person,,,,1, +ENVIRONAGE,measurements after birth,,,,,,, +ENVIRONAGE,measurements at FU1,,,,,,, +ENVIRONAGE, bloodpressure after birth,,,,,,, DHL,CPA2,,,,,,1.0, DHL,CPA1,,,,,,1.0, +GenR,core,,,,,,1.0.0, +GenR,FETALCRL_22112016,DataWiki dataset FETALCRL_22112016,,,,,1.0.0, +GenR,FETALPLACENTA_22112016,DataWiki dataset FETALPLACENTA_22112016,,,,,1.0.0, +GenR,ATHLETE_fetal_growth_standardized,ATHLETE Harmonised dataset with standardized fetal growth data: ATHLETE_fetal_growth_standardized,,,,,1.0.0, +GenR,CHILD-ALLGENERALDATA_12112020,DataWiki dataset CHILD-ALLGENERALDATA_12112020,,,,,1.0.0, +GenR,FETALGROWTH_22112016,DataWiki dataset FETALGROWTH_22112016,,,,,1.0.0, ANAGRAFICA,ANAGRAFICA,,,,,,1.0, AP,AP,,,,,,1.0, ARS_ANAG_MED_RES_storico,ARS_ANAG_MED_RES_storico,,,,,,1.0, diff --git a/data/_demodata/applications/datacatalogue/Models.csv b/data/_demodata/applications/datacatalogue/Models.csv index 8b95c5e54b..d4ee09f1f3 100644 --- a/data/_demodata/applications/datacatalogue/Models.csv +++ b/data/_demodata/applications/datacatalogue/Models.csv @@ -3,4 +3,4 @@ LongITools_CDM,,,LongITools common data model,,,,,,,,,, LifeCycle_CDM,,,LifeCycle common data model,,,,,,,,,, ATHLETE_CDM,,,ATHLETE common data model,,,,,,,,,, IPEC_CDM,,,IPEC common data model,,,,,,,,,, -OOM_CDM,,OOM_CDM,OOM_CDM,,,,Common data model of OOM,,,,,, +OOM_CDM,,OOM_CDM,OOM_CDM,,,,Common data model of OOM,,,,,, \ No newline at end of file diff --git a/data/_demodata/applications/datacatalogue/Networks.csv b/data/_demodata/applications/datacatalogue/Networks.csv index 223788c635..847a277c15 100644 --- a/data/_demodata/applications/datacatalogue/Networks.csv +++ b/data/_demodata/applications/datacatalogue/Networks.csv @@ -2,6 +2,6 @@ id,pid,acronym,name,type,features,website,lead organisation,additional organisat LifeCycle,,LifeCycle,The LifeCycle Project,,,https://lifecycle-project.eu/,,,,"A Europe-wide network of cohort studies started in early life Cohort studies started from pregnancy or childhood give the unique opportunity to relate early-life stressors with variation in development, health and disease throughout the life course. Moreover, advanced analytical approaches used in observational studies can help identify causality and potential for early-life interventions on factors that cannot be easily studied in experimental settings. These factors include socioeconomic circumstances, migration, urban environment as well as lifestyle-related determinants and will be given particular focus in our project. We will set up a European pregnancy and childhood cohort, the EU Child Cohort Network, which brings together extensive existing data from more than 250,000 European children and their parents. These cohorts enable studies in multiple generations because of their detailed phenotyping of both parents and children. The network will bring together existing successful multidisciplinary cohort studies, which all started before or during pregnancy or in childhood. Together, they span the full life course and contain detailed phenotypical information as well as biological samples. The EU Child Cohort Network will optimize exploitation of more than 40 available cohort resources in Europe and will enable innovative research on identification of novel markers of early-life stressors related to health trajectories throughout the full life cycle. Although LifeCycle partners and their cohorts have taken the initiative for this unique collaboration, the network is open to other partners with population-based cohorts started in early life, specifically those from Eastern and Southern Europe. To ensure that this will be a Europe-wide, open and sustainable network, which exceeds the LifeCycle Project duration, we will introduce a data sharing platform taking account of ethical, legal and societal implications, we will organize yearly meetings open to all European pregnancy and child cohort researchers and we will start a fellowship programme for exchange between these European cohorts.",,,,,,,,,,"ELFE,GECKO,ALSPAC",LifeCycle_CDM, ATHLETE,,ATHLETE,Advancing Tools for Human Early Lifecourse Exposome Research and Translation,h2020,,https://athleteproject.eu/,,,,"Children are particularly vulnerable to environmental hazards. The ATHLETE project will measure a wide range of environmental exposures (urban, chemical, lifestyle and social risk factors) during pregnancy, childhood, and adolescence. The project will then link this “early-life exposome” to children’s biological responses and cardiometabolic, respiratory, and mental health. The results will help us to better understand and prevent health damage from environmental agents from the earliest parts of the life course onward.",,,,,,,,,,"DNBC,PELAGIE,G21,ELSPAC,BIB,GenR,Sepages,INMA,EDEN,MoBa,KANC,GenR Next",ATHLETE_CDM, IPEC,,IPEC,International Psychosis Epidemiology Consortium,harmonization,,https://www.ipec-project.com/,UMCG,"UMCG,GGZ Drenthe,GGZ Friesland,Lentis Research,UCPH",,"There are many early psychosis cohorts in the world. Epidemiological research with these cohorts over the past decades has greatly increased the understanding of distribution and mechanisms of psychotic disorders. Carrying out cross-country comparisons on a larger scale is extremely costly. An alternative strategy is to pool the existing large amount of data from high-quality early psychosis studies at an individual patient level. This approach has multiple advantages: it allows for examining psychosis determinants with greater precision, also including rare exposures and outcomes, focusing on (long-term) follow-up, and making optimal use of already existing data. To achieve this, the International Psychosis Epidemiology Consortium (IPEC) has catalogued and harmonized data from early psychosis cohorts and set up a virtual databank. With this databank, multiple (epidemiological) studies within the scope of the following research question will be conducted: “What drives the course of functional, existential and clinical outcomes of (early) psychosis and how does the social and geographical context shape these patterns?”.",,"Denmark,Netherlands (the)",2023,,,"IPEC was supported by the 2020 SIRS Research Harmonization Group Award which included a grant in the amount of $5000 USD to Prof. Wim Veling and Prof. Craig Morgan; an internal MD-PhD research grant of the University Medical Center Groningen (grant number 18-41) to Vera Brink, MSc; a grant in the amount of 400,000 DKK of the Capital Regions Research council to Dr Nikolai Albert; and the participating institutions (Lentis Psychiatric Institute, GGZ Drenthe, GGZ Friesland, University Center Psychiatry of University Medical Center Groningen, Bispebjerg hospital, Psychiatric Hospital Risskov, and Psychiatric Centre Copenhagen).","IPEC wishes to acknowledge the services of all the study participants, staff, research groups, and institutions collaborating in IPEC, and of MOLGENIS and RoQua, who helped build and maintain the technical infrastructure.",,,PSYCONN,IPEC_CDM, -LongITools,,LongITools,LongITools health & environment dynamics,h2020,,https://longitools.org/,,,,"LongITools is a European research project studying the interactions between the environment, lifestyle and health in determining the risks of chronic cardiovascular and metabolic diseases.",,,,,,,,,,"NFBC1986,GenR,DFBC,ALSPAC,EDEN,NOMA,ELFE,RS2,RS1", +LongITools,,LongITools,LongITools health & environment dynamics,h2020,,https://longitools.org/,,,,"LongITools is a European research project studying the interactions between the environment, lifestyle and health in determining the risks of chronic cardiovascular and metabolic diseases.",,,,,,,,,,"NFBC1986,G21,DFBC,ALSPAC,EDEN,NOMA,ELFE,RS2,RS1,ENVIRONAGE,GenR", EUChildNetwork,,EUChildNetwork,The EU Child Cohort Network,harmonization,,https://lifecycle-project.eu/for-scientists/the-eu-child-cohort-network/,,,,"The EU Child Cohort Network: A Europe-wide network of cohort studies started in early life Cohort studies started from pregnancy or childhood give the unique opportunity to relate early-life stressors with variation in development, health and disease throughout the life course. Moreover, advanced analytical approaches used in observational studies can help identify causality and potential for early-life interventions on factors that cannot be easily studied in experimental settings. These factors include socioeconomic circumstances, migration, urban environment as well as lifestyle-related determinants and will be given particular focus in our project. We will set up a European pregnancy and childhood cohort, the EU Child Cohort Network, which brings together extensive existing data from more than 250,000 European children and their parents. These cohorts enable studies in multiple generations because of their detailed phenotyping of both parents and children. The network will bring together existing successful multidisciplinary cohort studies, which all started before or during pregnancy or in childhood. Together, they span the full life course and contain detailed phenotypical information as well as biological samples. The EU Child Cohort Network will optimize exploitation of more than 40 available cohort resources in Europe and will enable innovative research on identification of novel markers of early-life stressors related to health trajectories throughout the full life cycle. Although LifeCycle partners and their cohorts have taken the initiative for this unique collaboration, the network is open to other partners with population-based cohorts started in early life, specifically those from Eastern and Southern Europe. To ensure that this will be a Europe-wide, open and sustainable network, which exceeds the LifeCycle Project duration, we will introduce a data sharing platform taking account of ethical, legal and societal implications, we will organize yearly meetings open to all European pregnancy and child cohort researchers and we will start a fellowship programme for exchange between these European cohorts.",,,,,,,,,,"NOMA,RS2,RS1,RS3,KANC,ALSPAC,GECKO,GenR","LifeCycle_CDM,LongITools_CDM","LifeCycle,ATHLETE" OOM,,OOM,OOM,,,,"UMCU,GSK","PHARMO.I,UoD,LAREB,GSK,USWAN,UMCU,UMCG,ULST,UPP,UB,KUL,NP,SAN,FISABIO,LIPRE,DHL.I,BBMRI-ERIC,JP,CHUT,FERR,SIDIAP.I,TAK,CNR-IFC,ARS.TOSCANA,MLT.I,AU,AEMPS,OVGU,UM,UKZN,IHD,UCB,UiO",,"The main goal of OOM is to establish a trusted ecosystem that can efficiently, systematically, and in an ethically responsible manner, generate and disseminate reliable evidence-based information regarding effects of medications used during pregnancy and breastfeeding to women and their healthcare providers. This will be achieved by generating, cataloguing, linking, collecting and analysing data from pharmacovigilance, modelling, routine healthcare, breastmilk samples through a large network.",,,,,,,,"ABL,DHL,EUROCAT NNL","COD_FARMACI_SPF,AP,ARS_PS,EXE,PHT,SEA,SPA,VCN,SALM,MBRN,RMR","GECKO,GenR,RS1,RS2,RS3",OOM_CDM,"LifeCycle,ATHLETE" \ No newline at end of file diff --git a/data/_demodata/applications/datacatalogue/Repeated variables.csv b/data/_demodata/applications/datacatalogue/Repeated variables.csv index a12ae5bcfe..f3c55b80fc 100644 --- a/data/_demodata/applications/datacatalogue/Repeated variables.csv +++ b/data/_demodata/applications/datacatalogue/Repeated variables.csv @@ -1,4 +1,20 @@ resource,dataset,name,label,collection event.resource,collection event.name,since version,until version,is repeat of.dataset,is repeat of.name +LifeCycle_CDM,outcome,sbp_1,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_14,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_146,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_147,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_148,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_149,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_15,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_150,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_151,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_152,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_153,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_154,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_155,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_156,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_157,,,,1.0.0,,outcome,sbp_0 +LifeCycle_CDM,outcome,sbp_158,,,,1.0.0,,outcome,sbp_0 PELAGIE,harmonized,int_eval_8,,,,1.0.0,,harmonized,int_eval_1 PELAGIE,harmonized,INT_EVAL_8,,,,1.0.0,,harmonized,int_eval_1 ATHLETE_CDM,outcome_ath,aggr_avg_5,,,,,,outcome_ath,aggr_avg_0 @@ -654,22 +670,6 @@ LifeCycle_CDM,core,cohab_5,,,,1.0.0,,core,cohab_0 LifeCycle_CDM,core,cohab_6,,,,1.0.0,,core,cohab_0 LifeCycle_CDM,core,cohab_7,,,,1.0.0,,core,cohab_0 LifeCycle_CDM,core,cohab_8,,,,1.0.0,,core,cohab_0 -LifeCycle_CDM,outcome,dbp_1,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_14,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_146,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_147,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_148,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_149,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_15,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_150,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_151,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_152,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_153,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_154,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_155,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_156,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_157,,,,1.0.0,,outcome,dbp_0 -LifeCycle_CDM,outcome,dbp_158,,,,1.0.0,,outcome,dbp_0 LifeCycle_CDM,outcome,dbpav_1,,,,1.0.0,,outcome,dbpav_0 LifeCycle_CDM,outcome,dbpav_14,,,,1.0.0,,outcome,dbpav_0 LifeCycle_CDM,outcome,dbpav_146,,,,1.0.0,,outcome,dbpav_0 @@ -1762,22 +1762,6 @@ ATHLETE_CDM,outcome_ath,rhinitis_sx_ever_6,,,,,,outcome_ath,rhinitis_sx_ever_0 ATHLETE_CDM,outcome_ath,rhinitis_sx_ever_7,,,,,,outcome_ath,rhinitis_sx_ever_0 ATHLETE_CDM,outcome_ath,rhinitis_sx_ever_8,,,,,,outcome_ath,rhinitis_sx_ever_0 ATHLETE_CDM,outcome_ath,rhinitis_sx_ever_9,,,,,,outcome_ath,rhinitis_sx_ever_0 -LifeCycle_CDM,outcome,sbp_1,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_14,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_146,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_147,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_148,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_149,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_15,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_150,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_151,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_152,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_153,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_154,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_155,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_156,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_157,,,,1.0.0,,outcome,sbp_0 -LifeCycle_CDM,outcome,sbp_158,,,,1.0.0,,outcome,sbp_0 LifeCycle_CDM,outcome,sbpav_1,,,,1.0.0,,outcome,sbpav_0 LifeCycle_CDM,outcome,sbpav_14,,,,1.0.0,,outcome,sbpav_0 LifeCycle_CDM,outcome,sbpav_146,,,,1.0.0,,outcome,sbpav_0 @@ -2553,3 +2537,218 @@ PELAGIE,pelagie_q2,B82,,,,1.0.0,,pelagie_q2,B22 PELAGIE,pelagie_q2,B86,,,,1.0.0,,pelagie_q2,B22 PELAGIE,pelagie_q2,B90,,,,1.0.0,,pelagie_q2,B22 PELAGIE,pelagie_q2,B94,,,,1.0.0,,pelagie_q2,B22 +LifeCycle_CDM,outcome,dbp_16,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_19,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_1,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_2,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_3,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_4,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_5,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_6,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_7,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_8,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_9,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_10,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_11,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_12,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_13,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_14,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_15,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_17,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_18,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_20,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_21,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_22,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_23,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_24,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_25,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_26,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_27,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_28,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_29,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_30,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_31,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_32,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_33,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_34,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_35,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_36,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_37,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_38,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_39,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_40,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_41,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_42,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_43,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_44,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_45,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_46,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_47,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_48,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_49,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_50,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_51,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_52,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_53,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_54,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_55,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_56,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_57,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_58,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_59,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_60,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_61,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_62,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_63,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_64,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_65,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_66,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_67,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_68,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_69,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_70,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_71,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_72,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_73,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_74,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_75,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_76,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_77,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_78,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_79,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_80,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_81,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_82,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_83,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_84,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_85,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_86,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_87,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_88,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_89,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_90,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_91,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_92,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_93,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_94,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_95,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_96,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_97,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_98,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_99,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_100,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_101,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_102,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_103,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_104,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_105,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_106,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_107,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_108,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_109,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_110,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_111,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_112,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_113,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_114,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_115,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_116,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_117,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_118,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_119,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_120,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_121,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_122,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_123,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_124,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_125,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_126,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_127,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_128,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_129,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_130,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_131,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_132,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_133,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_134,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_135,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_136,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_137,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_138,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_139,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_140,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_141,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_142,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_143,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_144,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_145,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_146,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_147,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_148,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_149,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_150,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_151,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_152,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_153,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_154,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_155,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_156,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_157,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_158,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_159,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_160,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_161,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_162,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_163,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_164,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_165,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_166,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_167,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_168,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_169,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_170,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_171,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_172,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_173,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_174,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_175,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_176,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_177,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_178,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_179,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_180,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_181,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_182,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_183,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_184,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_185,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_186,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_187,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_188,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_189,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_190,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_191,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_192,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_193,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_194,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_195,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_196,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_197,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_198,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_199,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_200,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_201,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_202,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_203,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_204,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_205,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_206,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_207,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_208,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_209,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_210,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_211,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_212,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_213,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_214,,,,1.0.0,,outcome,dbp_0 +LifeCycle_CDM,outcome,dbp_215,,,,1.0.0,,outcome,dbp_0 \ No newline at end of file diff --git a/data/_demodata/applications/datacatalogue/Variable mappings.csv b/data/_demodata/applications/datacatalogue/Variable mappings.csv index e867ea4e3f..8b27599dd3 100644 --- a/data/_demodata/applications/datacatalogue/Variable mappings.csv +++ b/data/_demodata/applications/datacatalogue/Variable mappings.csv @@ -1,4 +1,15282 @@ source,source dataset,source variables,source variables other datasets.dataset,source variables other datasets.name,target,target dataset,target variable,match,status,description,syntax,comments +GenR,core,,,,LifeCycle_CDM,outcome,dbp_18,na,,,, +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_2,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +ENVIRONAGE,bloodpressure after birth,"DBP3B,DBP4B,DBP5B",,,LifeCycle_CDM,outcome,dbp_0,complete,,,"data$dbp_0<-rowMeans(data[,c(""DBP1B"", ""DBP3B"",""DBP4B"",""DBP5B"")]", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_48,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_49,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_50,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_51,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_52,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_53,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_54,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_55,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_56,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_57,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_58,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_59,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_60,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_61,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_62,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_63,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_64,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_65,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_66,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_67,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_68,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_69,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_70,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_71,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_72,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_73,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_74,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_75,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +ENVIRONAGE,measurements at FU1,"DBP1FU1,Age_FU",,,LifeCycle_CDM,outcome,dbp_76,complete,,,"data$dbp_x<-ifelse(!is.na(data$DBP1FU1) & data$Age_FU ==x ,data$DBP1FU1,NA)", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_14,na,,,, +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_0,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_1,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_3,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_4,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_5,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_6,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_7,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_8,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_9,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_10,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_11,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_12,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_13,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_14,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_15,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_16,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_17,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_18,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_19,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_20,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_21,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_22,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_23,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_24,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_25,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_26,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_27,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_28,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_29,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_30,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_31,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_32,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_33,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_34,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_35,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_36,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_37,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_38,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_39,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_40,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_41,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_42,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_43,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_44,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_45,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_46,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_47,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_48,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_49,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_50,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_51,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_52,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_53,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_54,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_55,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_56,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_57,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_58,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_59,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_60,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_61,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_62,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_63,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_64,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_65,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_66,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_67,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_68,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_69,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_70,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_71,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_72,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_73,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_74,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_75,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_76,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_77,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_78,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_79,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_80,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_81,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_82,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_83,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_84,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_85,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_86,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_87,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_88,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_89,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_90,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_91,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_92,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_93,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_94,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_95,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_96,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_97,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_98,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_99,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_100,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_101,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_102,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_103,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_104,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_105,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_106,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_107,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_108,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_109,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_110,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_111,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_112,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_113,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_114,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_115,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_116,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_117,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_118,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_119,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_120,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_121,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_122,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_123,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_124,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_125,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_126,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_127,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_128,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_129,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_130,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_131,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_132,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_133,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_134,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_135,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_136,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_137,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_138,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_139,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_140,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_141,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_142,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_143,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_144,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_145,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_146,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_147,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_148,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_149,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_150,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_151,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_152,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_153,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_154,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_155,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_156,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_157,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_158,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_159,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_160,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_161,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_162,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_163,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_164,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_165,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_166,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_167,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_168,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_169,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_170,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_171,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_172,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_173,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_174,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_175,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_176,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_177,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_178,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_179,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_180,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_181,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_182,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_183,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_184,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_185,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_186,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_187,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_188,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_189,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_190,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_191,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_192,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_193,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_194,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_195,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_182,na,,,, +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_196,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_197,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_198,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_199,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_200,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_201,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_202,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_203,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_204,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_205,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_183,na,,,, +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_206,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_207,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_208,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_209,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_210,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_211,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_212,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_213,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_214,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +G21,child,"idade48m,idade84m,idade120m,idade156m","blood_pressure,blood_pressure,blood_pressure,blood_pressure","TAD1_48m,TAD1_84m,TAD1_120m,TAD1_156m",LifeCycle_CDM,outcome,dbp_215,complete,,,"dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade48m == i & !is.na(dataset$TAD1_48m), c(""familiaID"", ""membroID"", ""TAD1_48m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp1<- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade84m == i & !is.na(dataset$TAD1_84m), c(""familiaID"", ""membroID"", ""TAD1_84m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp2 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade120m == i & !is.na(dataset$TAD1_120m), c(""familiaID"", ""membroID"", ""TAD1_120m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp3 <- dataset1 + +dataset1 <- dataset[, c(1:2)] +for (i in 0:215){ + y <- paste(""dbp_"", i, sep="""") + if (nrow(dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m),]) == 0L){ + dataset1[c(y)] <- NA + next + } + + t <- dataset[dataset$idade156m == i & !is.na(dataset$TAD1_156m), c(""familiaID"", ""membroID"", ""TAD1_156m"")] + colnames(t) <- c(""familiaID"", ""membroID"", y) + dataset1 <- dataset1 %>% + left_join(t, by=c('familiaID', 'membroID')) +} + +temp4 <- dataset1 + + +table_final_dbp <- cbind(temp1[,1:74],temp2[,75:110],temp3[,111:144],temp4[,145:218])", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_184,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_12,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_202,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_203,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_205,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_54,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_195,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_193,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_194,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_215,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_192,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_38,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_206,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_39,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_47,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_48,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_196,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_55,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_49,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_204,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_199,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_201,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_209,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_213,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_198,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_200,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_210,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_211,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_212,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_214,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_207,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_208,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_197,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_191,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_174,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_4,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_7,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_8,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_9,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_11,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_0,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_1,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_2,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_3,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_10,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_181,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_13,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_6,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_5,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_190,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_21,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_15,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_16,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_17,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_186,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_187,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_188,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_189,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_185,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_179,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_19,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_20,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_33,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_161,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_155,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_156,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_157,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_50,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_34,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_163,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_164,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_165,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_166,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_170,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_171,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_172,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_158,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_159,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_160,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_162,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_51,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_52,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_53,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_173,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_167,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_168,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_169,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_175,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_176,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_177,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_178,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_42,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_44,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_56,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_180,na,,,, +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_22,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_23,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_36,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_43,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_37,na,,,, +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_24,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_40,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_41,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_46,na,,,, +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_25,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_32,na,,,, +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_26,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_27,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_45,na,,,, +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_28,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_29,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_30,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_31,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_35,na,,,, +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_57,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_58,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_147,na,,,, +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_59,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_149,na,,,, +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_60,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_67,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_61,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_62,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_148,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_151,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_152,na,,,, +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_63,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_64,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_65,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_66,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_68,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_153,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_154,na,,,, +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_69,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_70,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_77,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_71,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_72,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_73,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_74,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_75,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_76,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_78,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_79,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_80,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_87,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_81,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_82,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_83,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_84,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_85,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_86,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_88,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_89,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_90,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_91,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_98,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_92,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_93,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_94,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_95,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_96,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_97,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_99,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_100,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_101,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_108,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_102,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_103,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_104,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_105,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_106,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_107,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_109,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_110,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_111,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_118,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_112,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_113,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_114,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_115,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_116,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_117,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_119,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_120,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_121,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_122,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_129,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_123,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_124,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_125,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_126,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_127,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_128,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_130,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_131,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_132,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_139,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_133,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_134,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_135,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_136,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_137,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_138,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_140,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_141,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_142,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,"AGE24M_M,DIAS1_24months,ageChildYF5,Dias1_5child,agechild9_visit1,DBP1_child9",,,LifeCycle_CDM,outcome,dbp_143,complete,,variable was created by renaming the source variable since it was already in the correct units and by creating index variable by rounding ages in months down. Index variable denotes the age interval/variable to which the measurement belongs to.,"do repeat x=0 to 215/dbp=dbp_0 to dbp_215. +IF AGE24M_M_i=x AND not missing(DIAS1_24months) dbp=DIAS1_24months. +IF agechild5m_i=x AND not missing(Dias1_5child) dbp=Dias1_5child. +IF agechild9m_i=x AND not missing (DBP1_child9) dbp=DBP1_child9. +end repeat print. +Execute. + +*Change levels to scale. +variable level dbp_0 to dbp_215 (SCALE).", +GenR,core,,,,LifeCycle_CDM,outcome,dbp_150,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_144,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_145,na,,,, +GenR,core,,,,LifeCycle_CDM,outcome,dbp_146,na,,,, PELAGIE,harmonized,ADHD_EVAL_11,,,LifeCycle_CDM,outcome,adhd_eval_11,complete,final,,eval=2;, PELAGIE,pelagie_exam12,AGE_EXAM_JOUR,,,LifeCycle_CDM,outcome,cholage_153,complete,final,,cholage_153=age_exam_jour;, PELAGIE,harmonized,ADHD_EVAL_12,,,LifeCycle_CDM,outcome,adhd_eval_12,complete,final,,eval=2;, diff --git a/data/_demodata/applications/datacatalogue/Variables.csv b/data/_demodata/applications/datacatalogue/Variables.csv index 9c84312617..9b7e843cb6 100644 --- a/data/_demodata/applications/datacatalogue/Variables.csv +++ b/data/_demodata/applications/datacatalogue/Variables.csv @@ -5882,4 +5882,759 @@ OOM_CDM,VISIT_OCCURRENCE,status_at_discharge,,,,2.2,,,,,,false,outcome of the vi OOM_CDM,VISIT_OCCURRENCE,status_at_discharge_vocabulary,,,,2.2,,,,,,false,vocabulary of outcome of the visit,,SDO.MODIM,,, OOM_CDM,VISIT_OCCURRENCE,visit_end_date,,,,2.2,,datetime,,,,false,"Date when the visit ends (only for visits that may last more than one day, such as a hospital admission)",,,,, OOM_CDM,VISIT_OCCURRENCE,visit_occurrence_id,,,,2.2,,character,,,,true,Visit identifier,,,,, -OOM_CDM,VISIT_OCCURRENCE,visit_start_date,,,,2.2,,datetime,,,,true,"Date when the visit starts, or, if it is just a one-day visit, date of the visit",,"20190715,19991123",,, \ No newline at end of file +OOM_CDM,VISIT_OCCURRENCE,visit_start_date,,,,2.2,,datetime,,,,true,"Date when the visit starts, or, if it is just a one-day visit, date of the visit",,"20190715,19991123",,, +G21,child,idade_48m,child's age at follow-up 4y,,,1.0.0,,continuous,,,,,child's age at follow-up 4y,,,,, +G21,child,idade_84m,child's age at follow-up 7y,,,1.0.0,,continuous,,,,,child's age at follow-up 7y,,,,, +G21,child,idade_120m,child's age at follow-up 10y,,,1.0.0,,continuous,,,,,child's age at follow-up 10y,,,,, +G21,child,idade_156m,child's age at follow-up 13y,,,1.0.0,,continuous,,,,,child's age at follow-up 13y,,,,, +G21,blood_pressure,TAS1_48m,Sistolic blood pressure - 1st measurement (follow-up 48m),,,1.0.0,,continuous,,,,,Sistolic blood pressure - 1st measurement (follow-up 48m),,,,, +G21,blood_pressure,TAD2_84m,Diastolic blood pressure - average of 3 measurements (follow-up 84m),,,1.0.0,,continuous,,,,,Diastolic blood pressure - average of 3 measurements (follow-up 84m),,,,, +G21,child,idade48m,"age of the child, in months, at the follow-up evaluation (48m)",,,1.0.0,,date,,,,,child's age in months follow up 84m,,,,, +G21,blood_pressure,TASF_48m,Sistolic blood pressure - average of 3 measurements (follow-up 48m),,,1.0.0,,continuous,,,,,Sistolic blood pressure - average of 3 measurements (follow-up 48m),,,,, +G21,blood_pressure,TAD1_48m,Diastolic blood pressure - 1st measurement (follow-up 48m),,,1.0.0,,continuous,,,,,Diastolic blood pressure - 1st measurement (follow-up 48m),,,,, +G21,blood_pressure,TADF_48m,Diastolic blood pressure - average of 3 measurements (follow-up 48m),,,1.0.0,,continuous,,,,,Diastolic blood pressure - average of 3 measurements (follow-up 48m),,,,, +G21,blood_pressure,TAS1_84m,Sistolic blood pressure - 1st measurement (follow-up 84m),,,1.0.0,,continuous,,,,,Sistolic blood pressure - 1st measurement (follow-up 84m),,,,, +G21,blood_pressure,TASF_84m,Sistolic blood pressure - average of 3 measurements (follow-up 84m),,,1.0.0,,continuous,,,,,Sistolic blood pressure - average of 3 measurements (follow-up 84m),,,,, +G21,blood_pressure,TAD1_84m,Diastolic blood pressure - 1st measurement (follow-up 84m),,,1.0.0,,continuous,,,,,Diastolic blood pressure - 1st measurement (follow-up 84m),,,,, +G21,blood_pressure,TADF_84m,Diastolic blood pressure - average of 3 measurements (follow-up 84m),,,1.0.0,,continuous,,,,,Diastolic blood pressure - average of 3 measurements (follow-up 84m),,,,, +G21,blood_pressure,TAS1_120m,Sistolic blood pressure - 1st measurement (follow-up 120m),,,1.0.0,,continuous,,,,,Sistolic blood pressure - 1st measurement (follow-up 120m),,,,, +G21,blood_pressure,TASF_120m,Sistolic blood pressure - average of 3 measurements (follow-up 84m),,,1.0.0,,continuous,,,,,Sistolic blood pressure - average of 3 measurements (follow-up 84m),,,,, +G21,blood_pressure,TAD1_120m,Diastolic blood pressure - 1st measurement (follow-up 120m),,,1.0.0,,continuous,,,,,Diastolic blood pressure - 1st measurement (follow-up 120m),,,,, +G21,blood_pressure,TADF_120m,Diastolic blood pressure - average of 3 measurements (follow-up 120m),,,1.0.0,,continuous,,,,,Diastolic blood pressure - average of 3 measurements (follow-up 120m),,,,, +G21,blood_pressure,TAS1_156m,Sistolic blood pressure - 1st measurement (follow-up 156m),,,1.0.0,,continuous,,,,,Sistolic blood pressure - 1st measurement (follow-up 156m),,,,, +G21,blood_pressure,TASF_156m,Sistolic blood pressure - average of 3 measurements (follow-up 156m),,,1.0.0,,continuous,,,,,Sistolic blood pressure - average of 3 measurements (follow-up 156m),,,,, +G21,blood_pressure,TAD1_156m,Diastolic blood pressure - 1st measurement (follow-up 156m),,,1.0.0,,continuous,,,,,Diastolic blood pressure - 1st measurement (follow-up 156m),,,,, +G21,blood_pressure,TADF_156m,Diastolic blood pressure - average of 3 measurements (follow-up 156m),,,1.0.0,,continuous,,,,,Diastolic blood pressure - average of 3 measurements (follow-up 156m),,,,, +G21,child,idade48m_days,"age of the child, in days, at the follow-up evaluation (48m)",,,1.0.0,,date,,,,,child's age in days follow up 48m,,,,, +G21,child,idade84m_days,"age of the child, in days, at the follow-up evaluation (84m)",,,1.0.0,,date,,,,,child's age in days follow up 84m,,,,, +G21,child,idade120m_days,"age of the child, in days, at the follow-up evaluation (120m)",,,1.0.0,,date,,,,,child's age in days follow up 120m,,,,, +G21,child,idade156m_days,"age of the child, in days, at the follow-up evaluation (120m)",,,1.0.0,,date,,,,,child's age in days follow up 156m,,,,, +G21,child,idade48,child's age at follow-up 4y,,,1.0.0,,continuous,,,,,child's age at follow-up 4y,,,,, +G21,child,idade84,"age of the child, in months, at the 7y follow-up",,,1.0.0,,integer,,,,,"age of the child, in months, at the 7y follow-up",,,,, +G21,child,idade120,"age of the child, in months, at the 10y follow-up",,,1.0.0,,integer,,,,,"age of the child, in months, at the 10y follow-up",,,,, +G21,child,idade156,"age of the child, in months, at the 13y follow-up",,,1.0.0,,integer,,,,,"age of the child, in months, at the 13y follow-up",,,,, +G21,child,idademedicao,"age of the child , in months, at the follow-up evaluation (48m)",,,1.0.0,,integer,,,,,child's age in months follow up 48m,,,,, +G21,child,idadedias48,"age of the child, in days, at the 4y follow-up",,,1,,integer,,,,,"age of the child, in days, at the 4y follow-up",,,,, +G21,child,idadedias84,"age of the child, in days, at the 7y follow-up",,,1,,integer,,,,,"age of the child, in days, at the 7y follow-up",,,,, +G21,child,idadedias120,"age of the child, in days, at the 10y follow-up",,,1,,integer,,,,,"age of the child, in days, at the 10y follow-up",,,,, +G21,child,idadedias156,"age of the child, in days, at the 13y follow-up",,,1,,integer,,,,,"age of the child, in days, at the 13y follow-up",,,,, +G21,child,Idademedicao,"age of the child, in months, at the 4y follow-up",,,1,,integer,,,,,"age of the child, in months, at the 4y follow-up",,,,, +G21,child,idade_meses,"age of the child, in months, at the baseline",,,1,,integer,,,,,"age of the child, in months, at the baseline",,,,, +G21,child,idade84m,"age of the child, in months, at the 7y follow-up",,,1,,integer,,,,,"age of the child, in months, at the 7y follow-up",,,,, +G21,child,idade120m,"age of the child, in months, at the 10y follow-up",,,1,,integer,,,,,"age of the child, in months, at the 10y follow-up",,,,, +G21,child,idade156m,"age of the child, in months, at the 13y follow-up",,,1,,integer,,,,,"age of the child, in months, at the 13y follow-up",,,,, +ENVIRONAGE,bloodpressure after birth,AgeB_BP,,ENVIRONAGE,birth,,,continuous,day,,,,Newborn age (days) at measurement blood pressure after birth,,,,, +ENVIRONAGE,bloodpressure after birth,SBP1B,,ENVIRONAGE,birth,,,continuous,mmHg,,,,First Systolic Blood Pressure of newborn,,,,, +ENVIRONAGE,bloodpressure after birth,SBP3B,,ENVIRONAGE,birth,,,continuous,mmHg,,,,3rd Systolic Blood Pressure of newborn,,,,, +ENVIRONAGE,bloodpressure after birth,SBP4B,,ENVIRONAGE,birth,,,continuous,mmHg,,,,4th Systolic Blood Pressure of newborn,,,,, +ENVIRONAGE,bloodpressure after birth,SBP5B,,ENVIRONAGE,birth,,,continuous,mmHg,,,,5th Systolic Blood Pressure of newborn,,,,, +ENVIRONAGE,bloodpressure after birth,DBP1B,,ENVIRONAGE,birth,,,continuous,mmHg,,,,First Diastolic Blood Pressure of newborn,,,,, +ENVIRONAGE,bloodpressure after birth,DBP3B,,ENVIRONAGE,birth,,,continuous,mmHg,,,,3rd Diastolic Blood Pressure of newborn,,,,, +ENVIRONAGE,bloodpressure after birth,DBP4B,,ENVIRONAGE,birth,,,continuous,mmHg,,,,4th Diastolic Blood Pressure of newborn,,,,, +ENVIRONAGE,bloodpressure after birth,DBP5B,,ENVIRONAGE,birth,,,continuous,mmHg,,,,5th Diastolic Blood Pressure of newborn,,,,, +ENVIRONAGE,measurements at FU1,Circumf,,ENVIRONAGE,4-years follow-up,,,continuous,cm,,,,belly circumference of child,,,,, +ENVIRONAGE,measurements at FU1,Height,,ENVIRONAGE,4-years follow-up,,,continuous,cm,,,,Height of child in centimeters measured by trained staff,,,,, +ENVIRONAGE,measurements at FU1,Weight,,ENVIRONAGE,4-years follow-up,,,continuous,kg,,,,Weight of child in kilograms measured by trained staff,,,,, +ENVIRONAGE,measurements at FU1,Fat,,ENVIRONAGE,4-years follow-up,,,continuous,%,,,,Fat percentage calculated by weight scale of child,,,,, +ENVIRONAGE,measurements at FU1,DBP1FU1,,ENVIRONAGE,4-years follow-up,,,continuous,mmHg,,,,First Diastolic Blood Pressure of child at the FU1,,,,, +ENVIRONAGE,measurements at FU1,DBP3FU1,,ENVIRONAGE,4-years follow-up,,,continuous,mmHg,,,,3rd Diastolic Blood Pressure of child at the FU1,,,,, +ENVIRONAGE,measurements at FU1,DBP4FU1,,ENVIRONAGE,4-years follow-up,,,continuous,mmHg,,,,4th Diastolic Blood Pressure of child at the FU1,,,,, +ENVIRONAGE,measurements at FU1,DBP5FU1,,ENVIRONAGE,4-years follow-up,,,continuous,mmHg,,,,5th Diastolic Blood Pressure of child at the FU1,,,,, +ENVIRONAGE,measurements at FU1,SBP1FU1,,ENVIRONAGE,4-years follow-up,,,continuous,mmHg,,,,First Systolic Blood Pressure of child at the FU1,,,,, +ENVIRONAGE,measurements at FU1,SBP3FU1,,ENVIRONAGE,4-years follow-up,,,continuous,mmHg,,,,3rd Systolic Blood Pressure of child at the FU1,,,,, +ENVIRONAGE,measurements at FU1,SBP4FU1,,ENVIRONAGE,4-years follow-up,,,continuous,mmHg,,,,4th Systolic Blood Pressure of child at the FU1,,,,, +ENVIRONAGE,measurements at FU1,SBP5FU1,,ENVIRONAGE,4-years follow-up,,,continuous,mmHg,,,,5th Systolic Blood Pressure of child at the FU1,,,,, +ENVIRONAGE,bloodpressure after birth,P3B,,ENVIRONAGE,birth,,,integer,bpm,,,,3rd measurement babies puls rate at the FU1,,,,, +ENVIRONAGE,bloodpressure after birth,P4B,,ENVIRONAGE,birth,,,integer,bpm,,,,4th measurement babies puls rate at the FU1,,,,, +ENVIRONAGE,bloodpressure after birth,P5B,,ENVIRONAGE,birth,,,integer,bpm,,,,5th measurement babies puls rate at the FU1,,,,, +ENVIRONAGE,measurements at FU1,HR3FU1,,ENVIRONAGE,4-years follow-up,,,integer,bpm,,,,3rd measurement childs heart rate at the FU1,,,,, +ENVIRONAGE,measurements at FU1,HR4FU1,,ENVIRONAGE,4-years follow-up,,,integer,bpm,,,,4th measurement childs heart rate at the FU1,,,,, +ENVIRONAGE,measurements at FU1,HR5FU1,,ENVIRONAGE,4-years follow-up,,,integer,bpm,,,,5th measurement childs heart rate at the FU1,,,,, +ENVIRONAGE,measurements at FU1,Age_FU,,ENVIRONAGE,4-years follow-up,,,integer,month,,,,Age of child at follow-up visit 1,,,,, +GenR,core,G2DBP,dbp mother gestage 2,,,1.0.0,,continuous,mmHg,,,,dbp mother gestage 2,,,,, +GenR,core,AGEIUVD,Gestational age IUVD/TOP,,,1.0.0,,continuous,week,,,,"For pregnancies that resulted in intrauterine fetal death, this variable indicates the week of gestation when happened",,,,, +GenR,core,age_CB29t35m,Age child 29-35 months,,,1.0.0,,continuous,month,,,,Age child 29-35 months,,,,, +GenR,core,age_CB17t23m,Age child 17-23 months,,,1.0.0,,continuous,month,,,,Age child 17-23 months,,,,, +GenR,core,p08_02,vis vet > 2,,,1.0.0,,continuous,gram_per_day,,,,Intake of fatty fish,,,,, +GenR,core,Psum_int_5,Fractional Rank Percent of sum_int_5,,,1.0.0,,continuous,,,,,Percentile scores of subscale internalizing problems,,,,, +GenR,core,CRP9_clean,CRP serum Child 9 years cleaned,,,1.0.0,,continuous,mg/litre,,,,CRP from serum measured at research clinics,,,,, +GenR,core,CRPCHILD5,C-Reactive Protein Child (serum) F5 mg/l,,,1.0.0,,continuous,mg/litre,,,,CRP from serum measured at research clinics,,,,, +GenR,core,CRP_birth,C-reactive protein (CRP) Child Cordblood,,,1.0.0,,continuous,mg/litre,,,,CRP from cord blood,,,,, +GenR,core,CRP_g1,C-reactive protein (CRP) Plasma Mother <18 weeks: mg/l,,,1.0.0,,continuous,mg/litre,,,,CRP mother,,,,, +GenR,core,Carbohydrates_total_Epct,"Total carbohydrate intake, in energy percent [FFQ 8y]",,,1.0.0,,continuous,percent,,,,"Total carbohydrate intake, in energy percent",,,,, +GenR,core,Carbohydrates_total_g,"Total carbohydrate intake, g/d [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Total carbohydrate intake, g/d",,,,, +GenR,core,CholesterolChild9_clean,Cholesteorol serum Child 9 years cleaned,,,1.0.0,,continuous,mmol/litre,,,,Cholesterol from serum measured at research clinics,,,,, +GenR,core,D0900124,GR1024 D9-1 Do you (mother) smoke at the moment? (D0900124),,,1.0.0,,categorical,,,,,Indicates whether the mother smokes,,,,, +GenR,core,D1000124,GR1024 D10-1 Did you or anybody else smoke at home in the presence of your child last week (D1000124),,,1.0.0,,categorical,,,,,Indicates whether the mother of anyone else smokes at home in the presence of the child in the last week,,,,, +GenR,core,D1400124,GR1024 D14-1 Do you keep a dog at home? (D1400124),,,1.0.0,,categorical,,,,,Indicates whether they own a dog,,,,, +GenR,core,D1500124,GR1024 D15-1 Do you keep a pet rodent? (D1500124),,,1.0.0,,categorical,,,,,Indicates whether they own a rodent,,,,, +GenR,core,DBP1_child9,F@9 BLOODPRESSURE - child: 1st Diastole (mmHg),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,DBP2_child9,F@9 BLOODPRESSURE - child: 2nd Diastole (mmHg),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,DBP3_child9,F@9 BLOODPRESSURE - child: 3nd Diastole (mmHg),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,DBP4_child9,F@9 BLOODPRESSURE - child: 4nd Diastole (mmHg),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,DEP_M6,Depression mother 6months 1024,,,1.0.0,,continuous,,,,,"At 6 months, an abbreviated version of the BSI was assesed in mothers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,DIAB_GRA,Diabetes Gravidarum - unvalidated,,,1.0.0,,categorical,,,,,"Variable indicates whether the participant had gestational diabetes. Criteria: either a random glucose level >11.0 mmol/L, a fasting glucose level +≥7.0 mmol/L or a fasting glucose level between 6.1 and +6.9 mmol/L with a subsequent abnormal glucose tolerance +test (glucose level >7.8 mmol/L after glucose intake)",,,,, +GenR,core,DIAS1_24months,BloodPressureDiastole1 at 24 months,,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured at reseach clinics,,,,, +GenR,core,G1GA,visit <18 weeks,,,1.0.0,,continuous,week,,,,Gestational age at visist,,,,, +GenR,core,DIAS2_24months,BloodPressureDiastole2 at 24 months,,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured at reseach clinics,,,,, +GenR,core,DIAS_P,dbp partner during pregnancy,,,1.0.0,,continuous,mmHg,,,,dbp partner during pregnancy,,,,, +GenR,core,Dias1_5child,F@5 BLOODPRESSURE – child: 1st Diastole (mmHg) (Dias1_5child),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,Dias2_5child,F@5 BLOODPRESSURE – child: 2nd Diastole (mmHg) (Dys2_5child),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,Dias3_5child,F@5 BLOODPRESSURE – child: 3rd Diastole (mmHg) (Dias3_5child),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,Dias4_5child,F@5 BLOODPRESSURE – child: 4th Diastole (mmHg) (Dias4_5child),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,E0300176,GR1076 E3 Does anybody ever smoke in your home?,,,1.0.0,,categorical,,,,,Indicates whether someone smokes in the home of the child,,,,, +GenR,core,E0400176,GR1076 E4 Does the child’s mother smoke at home?,,,1.0.0,,categorical,,,,,Indicates whether the mother of the child smokes at home,,,,, +GenR,core,E0500176,GR1076 E5 Does the child’s father smoke at home?,,,1.0.0,,categorical,,,,,Indicates whether the father of the child smokes at home,,,,, +GenR,core,E0800176,GR1076 E8 Do you have a cat in the house? (E0800176),,,1.0.0,,categorical,,,,,Indicates whether they own a cat,,,,, +GenR,core,E0900176,GR1076 E9 Do you have a dog in the house? (E0900176),,,1.0.0,,categorical,,,,,Indicates whether they own a dog,,,,, +GenR,core,WEIGHT_1,weight intake,,,1.0.0,,continuous,kg,,,,weight mother measured at enrollment,,,,, +GenR,core,EDUCM3,GR1065 Education mother based on 36 months questionnaire (educm3),,,1.0.0,,categorical,,,,,This indicates the educational level (finished education) at age 3 years of the child,,,,, +GenR,core,EDUCM5,GR1075 Education mother based on 5/6 year questionnaire (educm5),,,1.0.0,,categorical,,,,,This indicates the educational level (finished education) at age 5 years of the child,,,,, +GenR,core,EDUCP3,GR1066 Education partner based on 36 months questionnaire (educp3),,,1.0.0,,categorical,,,,,This indicates the educational level (finished education) of the partner at age 3 years of the child,,,,, +GenR,core,EDUCP5,GR1075 Education partner based on 5/6 year questionnaire (educp5),,,1.0.0,,categorical,,,,,This indicates the educational level (finished education)of the partner at age 5 years of the child,,,,, +GenR,core,EPDS2cat,EPDS in 2 categories,,,1.0.0,,categorical,,,,,Postpartum depression was assessed using the well-validated Edinburgh Postnatal Depression Scale. We used the validated cut-off score of 12 on the EPDS that has an optimal sensitivity of over 80% and a specificity of more than 95% for identifying mothers with a clinical depresssion in s community sample.,,,,, +GenR,core,Energy_kcal,"Total energy intake, kcal/d [FFQ 8y]",,,1.0.0,,continuous,Kcal_per_day,,,,"Total energy intake, kcal/d",,,,, +GenR,core,EDUCP,education level partner,,,1.0.0,,categorical,,,,,This indicates the educational level (finished education) of the partner in the pregnancy period,,,,, +GenR,core,G1DBP,dbp mother gestage 1,,,1.0.0,,continuous,mmHg,,,,dbp mother gestage 1,,,,, +GenR,core,EDUCM,Education level mother: highest education finished,,,1.0.0,,categorical,,,,,This indicates the educational level (finished education) in the pregnancy period,,,,, +GenR,core,A0400118,GR1018 A4-1 Was your child admitted to childrens ward of the hopsital in the first week after birth? (A0400118),,,1.0.0,,categorical,,,,,Hospital admission directly after birth yes/no,,,,, +GenR,core,A0400387,How old was the child when he/she died? F9,,,1.0.0,,continuous,year,,,,this this indicated the child's age at death of family member as asessed at research visit at 9 years,,,,, +GenR,core,A0500101,GR1001 A5-1 Was this pregnancy planned (a0500101),,,1.0.0,,categorical,,,,,"Question on whether the pregnancy was planned or not, at intake",,,,, +GenR,core,A0800201,GR1001 A8-2 What type of infertility treatment (a0800201),,,1.0.0,,categorical,,,,,this indicates what type of treatment was used as infertility treatment,,,,, +GenR,core,A0801001,GR1001 A8-1 Is this pregnancy the result of infertility treatment (a0800101),,,1.0.0,,categorical,,,,,"this indicates whether the pregnancy was a result of an infertility treatment, assessed at intake",,,,, +GenR,core,AGE12M,GR1028 Age questionnaire filled in 12 months child (months) (AGE12M),,,1.0.0,,continuous,month,,,,Indicates age of the child in months at time of filling in the questionnaire,,,,, +GenR,core,AGE14M,visit at 14 months: age in months,,,1.0.0,,continuous,month,,,,visit at 14 months: age in months,,,,, +GenR,core,AGE24M,GR1032 Age questionnaire filled in 24 months child (months) (AGE24M),,,1.0.0,,continuous,month,,,,Indicates age of the child in months at time of filling in the questionnaire,,,,, +GenR,core,AGE24M_M,visit at 24 months: age in months,,,1.0.0,,continuous,month,,,,visit at 24 months: age in months,,,,, +GenR,core,AGE2M_M,GR1019 Age questionnaire filled in 2 months mother (months) (AGE2M_M),,,1.0.0,,continuous,month,,,,Indicates age of the child in months at time of filling in the questionnaire,,,,, +GenR,core,AGE6M_M,GR1024 Age questionnaire filled in 6 months mother (months) (AGE6M_M),,,1.0.0,,continuous,month,,,,Indicates age of the child in months at time of filling in the questionnaire,,,,, +GenR,core,AGE6W_M,visit at 6 weeks: age in months,,,1.0.0,,continuous,month,,,,visit at 6 weeks: age in months,,,,, +GenR,core,p07_01_02,VEAL,,,1.0.0,,continuous,gram_per_day,,,,Intake of veal,,,,, +GenR,core,D1200124,GR1024 D12-1 Do you have a cat at home? (D1200124),,,1.0.0,,categorical,,,,,Indicates whether they own a cat,,,,, +GenR,core,AGEMND48,GR1067 Age questionnaire filled in 48 months child (months) (AGEMND48),,,1.0.0,,continuous,month,,,,Exact age at 48 months questionnaire,,,,, +GenR,core,AGESTOPB,How many months of age was your child when you stopped breastfeeding?,,,1.0.0,,continuous,month,,,,Indicates the age in months of the child when stopped breastfeeding,,,,, +GenR,core,AGE_BF2,age biological father,,,1.0.0,,continuous,year,,,,Age of biological father at birth of child,,,,, +GenR,core,AGE_GR1065,GR1065 Age questionnaire filled in 36 months main caretaker (months) (age_GR1065),,,1.0.0,,continuous,month,,,,Indicates age of the child in months at time of filling in the questionnaire,,,,, +GenR,core,AGE_M_v2,"Age mother at intake (date consent prenatal included, date birth postnatal included) corrected 13-4-2016",,,1.0.0,,continuous,year,,,,Maternal age at intake,,,,, +GenR,core,AGEgr1064,Age at FFQ,,,1.0.0,,continuous,month,,,,Age at FFQ,,,,, +GenR,core,ANX_M6,Anxiety mother 6months 1024,,,1.0.0,,continuous,,,,,"At 6 months, an abbreviated version of the BSI was assesed in mothers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,APGAR5,agpar 5 min singleton live birth,,,1.0.0,,continuous,,,,,Apgar score at 5 min for singleton live births,,,,, +GenR,core,AgeChild_CBCL9m,Age of the child in years questionnaire 1081,,,1.0.0,,continuous,year,,,,age at time of filling out the questionaire (cbcl 9 years),,,,, +GenR,core,AgechildGR1081,age child at time of GR1081 questionnaire,,,1.0.0,,continuous,year,,,,Indicates age of the child in years at time of filling in the questionnaire,,,,, +GenR,core,B0500175_clean,"GR1075 B5 Which description is, at this moment, most applicable to the mother? (aangevuld met open antwoord)",,,1.0.0,,categorical,,,,,Indicates occupational status of the mother,,,,, +GenR,core,B1200175_clean,"GR1075 B12 Which description is, at this moment, most applicable to the father/other carergiver? (aangevuld met open antwoord)",,,1.0.0,,categorical,,,,,Indicates occupational status of the father,,,,, +GenR,core,B2200775,Birth country mother,,,1.0.0,,string,,,,,This indicates the birth country of mothers,,,,, +GenR,core,B2400775,Birth country father,,,1.0.0,,string,,,,,This indicates the birth country of fathers,,,,, +GenR,core,BFEVER,have you ever breastfed your child,,,1.0.0,,categorical,,,,,Indicates whether the child was never or ever breastfed,,,,, +GenR,core,BIC14M,SkinBiceps at 14 months,,,1.0.0,,continuous,mm,,,,SkinBiceps at 14 months,,,,, +GenR,core,BIC6M,SkinBiceps at 6 months,,,1.0.0,,continuous,mm,,,,SkinBiceps at 6 months,,,,, +GenR,core,BIC6W,SkinBiceps at 6 weeks,,,1.0.0,,continuous,mm,,,,SkinBiceps at 6 weeks,,,,, +GenR,core,C0100119,GR1019 C1-1 Does anyone smoke more then once a week in the home where your child is normally left? (C0100119),,,1.0.0,,categorical,,,,,Indicates whether someone smokes more than once a week in a room in the home where the child is normally left,,,,, +GenR,core,C0200119,GR1019 C2-1 Do you smoke at home? (C0200119),,,1.0.0,,categorical,,,,,Indicates whether the mother of the child smokes at home (only filled in if anyone smokes in the home),,,,, +GenR,core,C0200167,GR1067 C2 How long does your child generally watch TV/Video/DVD per day for (C0200167),,,1.0.0,,categorical,,,,,Indicates how long a child watches TV/Video/DVD per day,,,,, +GenR,core,C0300119,GR1019 C3-1 Does your partner smoke at home? (C0300119),,,1.0.0,,categorical,,,,,Indicaties whether the partner of the mother of the child smokes at home (only filled in if anyone smokes in the home),,,,, +GenR,core,p07_01_03,PORK,,,1.0.0,,continuous,gram_per_day,,,,Intake of pork,,,,, +GenR,core,C0400119,GR1019 C4-1 Do other members of the household smoke at home? (C0400119),,,1.0.0,,categorical,,,,,Indicates whether other members of the household smoke at home (only filled in if anyone smokes in the home),,,,, +GenR,core,C0700165,GR1065 C7 Do people smoke occasionally in your home (C0700165),,,1.0.0,,categorical,,,,,Indicates whether people smoke in the home of the child,,,,, +GenR,core,C0800165,GR1065 C8 Does the child s mother smoke in the home (C0800165),,,1.0.0,,categorical,,,,,Indicates whether the mother smokes in the home of the child (only filled in if C0700165 is answered with yes),,,,, +GenR,core,F0100181_cleaned,"GR1081 F1-a Has your child ever had one of the following diseases diagnosed by a doctor? If yes, at what age was it first diagnosed? Asthma (F0100181)",,,1.0.0,,categorical,,,,,Ever diagnosis of asthma after the age of 6 years,,,,, +GenR,core,F0300178,F5 BEHAVIOUR - Cognition child: IQ score (F0300178),,,1.0.0,,continuous,,,,,BEHAVIOUR - Cognition child: IQ score,,,,, +GenR,core,F0400165,F4-a With a childminder in your home,,,1.0.0,,categorical,,,,,"Indicates whether the child is cared for by a babysitter at home (Dutch: oppas, translation in label not correct)",,,,, +GenR,core,F0400265,F4-b With an au pair in your home,,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by an au pair at home,,,,, +GenR,core,F0400365,F4-c In a crèche or day nursery,,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by a creche or child day care,,,,, +GenR,core,F0400465,F4-d In a playgroup,,,1.0.0,,categorical,,,,,Indicates whether the child is cared for at a playgroup (kindergarden),,,,, +GenR,core,p07_04,vleesproducten,,,1.0.0,,continuous,gram_per_day,,,,Intake of meat products,,,,, +GenR,core,F0400565,F4-e With a host mother/father,,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by a professional child minder,,,,, +GenR,core,F0400665,"F4-f With family, neighbours or friends",,,1.0.0,,categorical,,,,,"Indicates whether the child is cared for by friend, family or relatives",,,,, +GenR,core,F0600281_cleaned,"GR1081 F6-b In the past 12 months has your child had: Any intermittently occurring, itchy, skin rash? (F0600281)",,,1.0.0,,categorical,,,,,Intermittent itchy skin rash in the past 12 months?,,,,, +GenR,core,F0700181_cleaned,GR1081 F7 Do you have any pets? (F0700181),,,1.0.0,,categorical,,,,,Indicates whether they own any pets,,,,, +GenR,core,FEF25_9y,Maximum Expiratory Flow at 75% of Vital Capacity (FEF25) age 9 years,,,1.0.0,,continuous,,,,,Forced Expiratory Flow after exhaling 25% of FVC (L/s),,,,, +GenR,core,G1SBP,sbp mother gestage 1,,,1.0.0,,continuous,mmHg,,,,sbp mother gestage 1,,,,, +GenR,core,H0300225,GR1025 H3-2 How many hours a week is your child cared for by an au pair at your home? (H0300225),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by an au pair at home (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,C0900165,GR1065 C9 Does the child s father smoke in the home (C0900165),,,1.0.0,,categorical,,,,,Indicates whether the father smokes in the home of the child (only filled in if C0700165 is answered with yes),,,,, +GenR,core,C1000119,GR1019 C10-1 Do you have a cat at home? (C1000119),,,1.0.0,,categorical,,,,,Indicates whether they own a cat,,,,, +GenR,core,C1000165,GR1065 C10-a Does your child sometimes find itself in rooms where people smoke (C1000165),,,1.0.0,,categorical,,,,,Indicates whether the child is in rooms where people smoke (only filled in if C0700165 is answered with yes),,,,, +GenR,core,C1200119,GR1019 C12-1 Do you have a dog at home? (C1200119),,,1.0.0,,categorical,,,,,Indicates whether they own a dog,,,,, +GenR,core,C1200132,GR1032 C12-1 C12 Do people smoke occasionally in your house? (C1200132),,,1.0.0,,categorical,,,,,Indicates whether people smoke in the home of the child,,,,, +GenR,core,C1300119,GR1019 C13-1 Do you have a pet rodent at home? (C1300119),,,1.0.0,,categorical,,,,,Indicates whether they own a rodent,,,,, +GenR,core,HEIGHT_2,height postnatal included,,,1.0.0,,continuous,cm,,,,height mother for those postnatally included,,,,, +GenR,core,C1500167,GR1067 C15 How long does your child generally play outside each day (outside school times) (C1500167),,,1.0.0,,categorical,,,,,Indicates how long a child plays outside (outside school hours),,,,, +GenR,core,CFPWV_F5child,F@5 PWV - child: C-F:_PWV_(m/s),,,1.0.0,,continuous,metre_per_second,,,,F@5 PWV - child: C-F:_PWV_(m/s),,,,, +GenR,core,CHOLCH5_C,Cholesterol (serum) F5 mmol/l CLEANED,,,1.0.0,,continuous,mmol/litre,,,,Cholesterol from serum measured at research clinics,,,,, +GenR,core,FG60_45_Meat_red_unprocessed_highfat,"Red meat, unprocessed, high-fat (>5% SFA) intake, g/d [45/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Red meat, unprocessed, high-fat (>5% SFA) intake, g/d",,,,, +GenR,core,FG60_47_Sausagerolls,"Sausage rolls (worstebroodje, sausijzenbroodje) intake, g/d [47/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Sausage rolls (worstebroodje, sausijzenbroodje) intake, g/d",,,,, +GenR,core,FG60_48_Meat_fastfood,"Fast food meat kroket frikande intake, g/d [48/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Fast food meat kroket frikande intake, g/d [48/FG60]",,,,, +GenR,core,FG60_50_Sweettoppings,"Sweet toppings or sandwich fillings intake, g/d [50/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Sweet toppings or sandwich fillings intake, g/d",,,,, +GenR,core,FG60_51_Potatoes_crisps,"Potato crisps intake, g/d [51/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Potato crisps intake, g/d",,,,, +GenR,core,FG60_52_Pizza_savorypie,"Pizza, savory pie, quiche intake, g/d [52/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Pizza, savory pie, quiche intake, g/d",,,,, +GenR,core,FG60_53_Pastadishes,"Pasta dishes, instant noodles intake, g/d [53/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Pasta dishes, instant noodles intake, g/d",,,,, +GenR,core,FG60_54_Honey,"Honey intake, g/d [54/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Honey intake, g/d",,,,, +GenR,core,FG60_55_Sugar_syrup,"Sugar and syrup intake, g/d [55/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Sugar and syrup intake, g/d",,,,, +GenR,core,FG60_56_Nasi_bami_dishes,"Nasi and bami intake, g/d [56/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Nasi and bami intake, g/d",,,,, +GenR,core,FG60_58_Lemonades_sugar,"Lemonades, no concentrate intake, g/d [58/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Lemonade intake, g/d",,,,, +GenR,core,TWIN,Twin birth,,,1.0.0,,categorical,,,,,Twin yes/no,,,,, +GenR,core,FOLIUM_VALIDATED,"folic acid use, known and periconceptional - Sarah Timmermans",,,1.0.0,,categorical,,,,,Indicates whether the particpants used folic acid before or during pregnancy (until 10 weeks of gestation),,,,, +GenR,core,FUPFASE3_9,participantion phase 3 - Focus @9,,,1.0.0,,categorical,,,,,Indicator of partiipation in 9-yr followup examination,,,,, +GenR,core,FVC,Forced Vital Capacity (L),,,1.0.0,,continuous,,,,,Forced Vital Capacity (L),,,,, +GenR,core,Fat_total_Epct,"Total fat intake, in energy percent [FFQ 8y]",,,1.0.0,,continuous,percent,,,,"Total fat intake, in energy percent",,,,, +GenR,core,Fat_total_g,"Total fat intake, g/d [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Total fat intake, g/d",,,,, +GenR,core,G0100132,GR1032 G1-1 Which description applies most to you at the moment? (G0100132),,,1.0.0,,categorical,,,,,Indicates occupational status of the mother,,,,, +GenR,core,G0100232,GR1032 G1-2 Which description applies most to your partner at the moment? (G0100232),,,1.0.0,,categorical,,,,,Indicates occupational status of the father,,,,, +GenR,core,G0900132,GR1032 G9-1 Do you have a partner at the moment? (G0900132),,,1.0.0,,categorical,,,,,This indicates whether mothers had a partner around the age of 2 years of the child,,,,, +GenR,core,G1000132,"GR1032 G10-1 Is your child cared for, on anything like a regular basis, by someone other than you or your partner? (G1000132)",,,1.0.0,,categorical,,,,,Indicates whether the child is in any form of childcare,,,,, +GenR,core,G1100132,GR1032 G11-1 How many hours per week is your child cared for By a baby-sitter in your home (G1100132),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by a babysitter at home (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,G1100232,GR1032 G11-2 How many hours per week is your child cared for By an au pair in your home (G1100232),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by an au pair at home (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,G1100332,GR1032 G11-3 How many hours per week is your child cared for By a childminder (G1100332),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by a professional child minder (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,G1100432,"GR1032 G11-4 How many hours per week is your child cared for By family, neighbours or friends (G1100432)",,,1.0.0,,categorical,,,,,"Indicates whether the child is cared for by friend, family or relatives (if a positive answer is given on the question whether someone takes care of the child on a regular basis)",,,,, +GenR,core,G1100532,GR1032 G11-5 How many hours per week is your child cared for In a crèche or day nursery (G1100532),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by a creche or child day care (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,G1100632,GR1032 G11-6 How many hours per week is your child cared for At a playgroup (G1100632),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for at a playgroup (kindergarden) (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,G2GA,visit 18-25 weeks,,,1.0.0,,continuous,week,,,,Gestational age at visit,,,,, +GenR,core,G2SBP,sbp mother gestage 2,,,1.0.0,,continuous,mmHg,,,,sbp mother gestage 2,,,,, +GenR,core,G3DBP,dbp mother gestage 3,,,1.0.0,,continuous,mmHg,,,,dbp mother gestage 3,,,,, +GenR,core,G3GA,visit >25 weeks,,,1.0.0,,continuous,week,,,,Indicates how many weeks of gestation the mother had when the weight was measured,,,,, +GenR,core,G3SBP,sbp mother gestage 3,,,1.0.0,,continuous,mmHg,,,,sbp mother gestage 3,,,,, +GenR,core,G3WEIGHT,weight mother gestage 3,,,1.0.0,,continuous,kg,,,,weight mother measured during the 3rd prenatal visit (>25 weeks),,,,, +GenR,core,GBLMAM_C,"missing, but is ""Birth country mother of mother update after focus@5""",,,1.0.0,,categorical,,,,,This indicates the birth country of grandmothers of mothers side,,,,, +GenR,core,GBLMAM_CLEAN,Birth country mother of mother update after focus@5,,,1.0.0,,categorical,,,,,This indicates the birth country of grandmothers of mothers side; cleaned variable with less categories,,,,, +GenR,core,GBLMAV_C,"missing, but is ""country of birth mother of father according to GR-1001 plus GR1075""",,,1.0.0,,categorical,,,,,This indicates the birth country of grandmothers of fathers side,,,,, +GenR,core,GBLMAV_CLEAN,country of birth mother of father according to GR-1001 plus GR1075,,,1.0.0,,categorical,,,,,This indicates the birth country of grandmothers of fathers side; cleaned variable with less categories,,,,, +GenR,core,GBLMOE_C,"missing, but is ""Birth country mother at enrolment update after focus@5""",,,1.0.0,,categorical,,,,,This indicates the birth country of mothers,,,,, +GenR,core,GBLPAM_C,"missing, but is ""Birth country of father of mother update after focus@5""",,,1.0.0,,categorical,,,,,This indicated the birth country of grandfathers of mothers side,,,,, +GenR,core,GBLPAM_CLEAN,Birth country of father of mother update after focus@5,,,1.0.0,,categorical,,,,,This indicated the birth country of grandfathers of mothers side; cleaned variable with less categories,,,,, +GenR,core,GBLPAV_C,"missing, but is ""country of birth father of father according to GR-1001""",,,1.0.0,,categorical,,,,,This indicated the birth country of grandfathers of fathers side,,,,, +GenR,core,GBLPAV_CLEAN,country of birth father of father according to GR-1001,,,1.0.0,,categorical,,,,,This indicated the birth country of grandfathers of fathers side; cleaned variable with less categories,,,,, +GenR,core,GBLVAD_C,"missing, but is""Birth country father update after focus@5""",,,1.0.0,,categorical,,,,,This indicates the birth country of father,,,,, +GenR,core,H0300325,GR1025 H3-3 How many hours a week is your child cared for by a host parent? (H0300325),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by a host parent (professional child minder)(if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,H0300328,GR1028 H3-3 How may hours a week is your child looked after by a host parent? (H0300328),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by a host parent (professional child minder) (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,GestageSerumG1,Gestage Mother serum early pregnancy,,,1.0.0,,continuous,week,,,,Gestage Mother serum early pregnancy,,,,, +GenR,core,GlucoseChild9_clean,Glucose serum Child 9 years cleaned,,,1.0.0,,continuous,mmol/litre,,,,Glucose from serum measured at research clinics,,,,, +GenR,core,GlucoseG1,Glucose mmol/L Mother serum early Pregancy,,,1.0.0,,continuous,mmol/litre,,,,Glucose mmol/L Mother serum early Pregancy,,,,, +GenR,core,H0100125,GR1025 H1-1 Is your child taken care of on a regular basis by a person besides yourself or your partner? (H0100125),,,1.0.0,,categorical,,,,,Indicates whether the child is in any form of childcare,,,,, +GenR,core,HIP24M,AntroHipAccess at 24 months,,,1.0.0,,continuous,cm,,,,AntroHipAccess at 24 months,,,,, +GenR,core,H0100128,GR1028 H1-1 Is your child looked after by somebody other than your partner with any degree of regularity? (H0100128),,,1.0.0,,categorical,,,,,Indicates whether the child is in any form of childcare,,,,, +GenR,core,H0200125,GR1025 H2-1 How old was your child when you started this type of child care? (H0200125),,,1.0.0,,categorical,,,,,Indicates how old the child was when child care was started (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,p07_01_01,BEEF,,,1.0.0,,continuous,gram_per_day,,,,Intake of beef,,,,, +GenR,core,FEF50_9y,Maximum Expiratory Flow at 50% of Vital Capacity (FEF50) age 9 years,,,1.0.0,,continuous,,,,,Forced Expiratory Flow after exhaling 50% of FVC (L/s),,,,, +GenR,core,FEF75,Forced Expiratory Flow after exhaling 75% of FVC (L/s),,,1.0.0,,continuous,,,,,Forced Expiratory Flow after exhaling 75% of FVC (L/s),,,,, +GenR,core,FENO5YR,FeNO in ppb,,,1.0.0,,continuous,parts_per_billion,,,,FeNO in ppb,,,,, +GenR,core,FEV,Forced expiratory volume,,,1.0.0,,continuous,,,,,Forced expiratory volume,,,,, +GenR,core,FG60_01_Fruit_fresh,"Fresh fruit intake, g/d [01/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Fresh fruit intake, g/d",,,,, +GenR,core,FG60_02_Vegetables_cooked,"Cooked vegetables intake, g/d [02/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Cooked vegetables intake, g/d",,,,, +GenR,core,FG60_03_Vegetables_raw,"Raw vegetables intake, g/d [03/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Raw vegetables intake, g/d",,,,, +GenR,core,FG60_04_Bread_whole,"Bread, brown/whole grain intake, g/d [04/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Bread, brown/whole grain intake, g/d",,,,, +GenR,core,FG60_05_Bread_white,"Bread, white intake, g/d [05/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Bread, white intake, g/d",,,,, +GenR,core,FG60_06_Grainproducts_whole,"Grain products, brown whole grain intake, g/d [06/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Grain products, brown whole grain intake, g/d",,,,, +GenR,core,FG60_07_Grainproducts_white,"Grain products, white intake, g/d [07/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Grain products, white intake, g/d",,,,, +GenR,core,FG60_08_Fish_breaded,"Breaded fish products intake, g/d [08/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Breaded fish products intake, g/d",,,,, +GenR,core,FG60_09_Cereals_white_sugar,"Breakfast cereals, white and/or added sugar intake, g/d [09/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Breakfast cereals, white and/or added sugar intake, g/d",,,,, +GenR,core,FG60_10_Fish_fat,"Fatty fish (>10% fat) intake, g/d [10/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Fatty fish (>10% fat) intake, g/d",,,,, +GenR,core,FG60_11_Shellfish,"Shellfish intake, g/d [11/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Shellfish intake, g/d",,,,, +GenR,core,FG60_12_Fish_lowfat,"Lean fish (<2% fat) intake, g/d [12/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Lean fish (<2% fat) intake, g/d",,,,, +GenR,core,FG60_13_Fish_modfat,"Fish, moderately fat (2-10%) intake, g/d [13/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Fish, moderately fat (2-10%) intake, g/d",,,,, +GenR,core,p07_05,orgaanvlees,,,1.0.0,,continuous,gram_per_day,,,,Intake of organmeat,,,,, +GenR,core,FG60_14_Fish_fat_canned,"Canned fatty fish intake, g/d [14/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Canned fatty fish intake, g/d [14/FG60] [FFQ 8y]",,,,, +GenR,core,FG60_15_Meat_red_unprocessed_lowfat,"Red meat, unprocessed, low-fat (≤5% SFA) intake, g/d [15/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Red meat, unprocessed, low-fat (≤5% SFA) intake, g/d",,,,, +GenR,core,FG60_16_Meat_red_processed,"Red meat, processed intake, g/d [16/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Red meat, processed intake, g/d",,,,, +GenR,core,FG60_17_Meat_white_processed,"White meat, processed intake, g/d [17/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"White meat, processed intake, g/d",,,,, +GenR,core,FG60_18_Meat_white_unprocessed_lowfat,"White meat, unprocessed, low-fat (≤5% SFA) intake, g/d [18/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"White meat, unprocessed, low-fat (≤5% SFA) intake, g/d",,,,, +GenR,core,FG60_19_Meatreplacing_products,"Meat replacing products intake, g/d [19/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Meat replacing products intake, g/d",,,,, +GenR,core,FG60_20_Pulses_canned,"Pulses, canned intake, g/d [20/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Pulses, canned intake, g/d",,,,, +GenR,core,FG60_21_Nuts_unsalted,"Nuts, unsalted intake, g/d [21/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Nuts, unsalted intake, g/d",,,,, +GenR,core,FG60_22_Peanuts_peanutbutter,"Peanuts, peanut butter intake, g/d [22/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Peanuts, peanut butter intake, g/d",,,,, +GenR,core,FG60_24_Milk_lowfat,"Skimmed or semi skimmed milk, buttermilk, no added sugar intake, g/d [24/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Skimmed or semi skimmed milk, buttermilk, no added sugar intake, g/d",,,,, +GenR,core,FG60_25_Yogurt_lowfat,"Skimmed or semi-skimmed yoghurt or quark, no added sugar intake, g/d [25/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Skimmed or semi-skimmed yoghurt or quark, no added sugar intake, g/d",,,,, +GenR,core,GENDER,Gender live birth corrected 10-12-2014,,,1.0.0,,categorical,,,,,Gender of the child,,,,, +GenR,core,GESTBIR,Gestational age at birth,,,1.0.0,,continuous,week,,,,Indicates how many weeks of gestation the mother had when the child was born,,,,, +GenR,core,GESTINT,gestational age at intake,,,1.0.0,,continuous,week,,,,Indicates how many weeks of gestation the mother had when enrolled in the study,,,,, +GenR,core,GEST_HB,GEST_HB,,,1.0.0,,continuous,mmol/litre,,,,GEST_HB,,,,, +GenR,core,GEST_HM,GEST_HM,,,1.0.0,,continuous,mmol/litre,,,,GEST_HM,,,,, +GenR,core,GR1080,Indicates whether the 8y FFQ was sent/received,,,1.0.0,,categorical,,,,,Indicates whether the 8y FFQ was sent/received,,,,, +GenR,core,G_M24M,geheel magere massa,,,1.0.0,,continuous,gram,,,,Total body lean mass measured with DXA,,,,, +GenR,core,G_M6M,geheel magere massa,,,1.0.0,,continuous,gram,,,,Total body lean mass measured with DXA,,,,, +GenR,core,G_V24M,geheel vetmassa,,,1.0.0,,continuous,gram,,,,Total body fat mass measured with DXA,,,,, +GenR,core,G_V6M,geheel vetmassa,,,1.0.0,,continuous,gram,,,,Total body fat mass measured with DXA,,,,, +GenR,core,GestagePlasmaG1,Gestage blood,,,1.0.0,,continuous,week,,,,Gestage blood,,,,, +GenR,core,FG60_26_Milk_fullfat,"Full-fat milk intake, g/d [26/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Full-fat milk intake, g/d",,,,, +GenR,core,FG60_27_Yoghurt_fullfat,"Full-fat yoghurt or quark intake, g/d [27/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Full-fat yoghurt or quark intake, g/d",,,,, +GenR,core,FG60_28_Milk_beverages_sugar,"Milk-based beverages with added sugar intake, g/d [28/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Milk-based beverages with added sugar intake, g/d",,,,, +GenR,core,FG60_29_Yogurt_sugar,"Yoghurt or quark with added sugar intake, g/d [29/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Yoghurt or quark with added sugar intake, g/d",,,,, +GenR,core,FG60_30_Cheese_lowfat,"Low-fat cheese (≤30+) intake, g/d [30/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Low-fat cheese (≤30+) intake, g/d",,,,, +GenR,core,FG60_31_Cheese_fullfat,"Full-fat cheese (> 30+) intake, g/d [31/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Full-fat cheese (> 30+) intake, g/d",,,,, +GenR,core,FG60_32_Dairy_desserts,"Dairy based desserts (incl ice-cream) intake, g/d [32/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Dairy based desserts (incl ice-cream) intake, g/d",,,,, +GenR,core,FG60_33_Soymilks,"Soy milk/ soy dessert intake, g/d [33/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Soy milk/ soy dessert intake, g/d",,,,, +GenR,core,FG60_34_Porridge,"Porridge intake, g/d [34/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Porridge intake, g/d",,,,, +GenR,core,FG60_38_Lemonadeconcentrate_sugar,"Lemonade concentrate and fruit juice concentrates with sugar intake, g/d [38/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Lemonade concentrate and fruit juice concentrate intake, g/d",,,,, +GenR,core,FG60_39_Soda_soft_drinks,"Soda, soft drinks intake, g/d [39/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Soda, soft drinks intake, g/d",,,,, +GenR,core,FG60_40_Eggs,"Eggs intake, g/d [40/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Eggs intake, g/d",,,,, +GenR,core,FG60_41_Sweetsnacks,"Sweets, sweet snacks, and cookies intake, g/d [41/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Sweets, sweet snacks, and cookies intake, g/d",,,,, +GenR,core,FG60_42_Savorysnacks,"Savory snacks, excl potato crisp intake, g/d [42/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Savory snacks, excl potato crisp intake, g/d",,,,, +GenR,core,FG60_43_Potatoes,"Potatoes (boiled, fried, but excl crips and french fries) intake, g/d [43/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Potatoes intake, g/d",,,,, +GenR,core,H0200128,GR1028 H2-1 How old was your child when you first started to make use of this type of care? (H0200128),,,1.0.0,,categorical,,,,,Indicates how old the child was when child care was started (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,H0300125,GR1025 H3-1 How many hours a week is your child cared for by a child minder at your home? (H0300125),,,1.0.0,,categorical,,,,,"Indicates whether the child is cared for by a babysitter at home (Dutch: oppas, translation in label not correct) (if a positive answer is given on the question whether someone takes care of the child on a regular basis)",,,,, +GenR,core,H0300128,GR1028 H3-1 How may hours a week is your child looked after by a babysitter in your home? (H0300128),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by a babysitter at home (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,Ppro_gm6,Fractional Rank Percent of pro_gm6,,,1.0.0,,continuous,,,,,Percentile score gross motor at 6 months,,,,, +GenR,core,age_CB35t44m,Age child 35-44 months,,,1.0.0,,continuous,month,,,,Age child 35-44 months,,,,, +GenR,core,age_CB44t56m,Age child 44-56 months,,,1.0.0,,continuous,month,,,,Age child 44-56 months,,,,, +GenR,core,age_GR1025_years,Age of the child in years questionnaire 1025,,,1.0.0,,continuous,year,,,,exact child age at time of filling out the questionnaire,,,,, +GenR,core,age_GR1028_years,Age of the child in years questionnaire 1028,,,1.0.0,,continuous,year,,,,exact child age at time of filling out the questionnaire,,,,, +GenR,core,age_GR1029_years,Age of the child in years questionnaire 1029,,,1.0.0,,continuous,year,,,,age at time of filling out the questionaire (cbcl 18 months),,,,, +GenR,core,age_GR1032_years,Age of the child in years questionnaire 1032,,,1.0.0,,continuous,year,,,,exact child age at time of filling out the questionnaire,,,,, +GenR,core,age_GR1065,age child at time of filling in GR1065,,,1.0.0,,continuous,month,,,,Indicates age of the child in months at time of filling in the questionnaire,,,,, +GenR,core,age_GR1065_years,Age of the child in years questionnaire 1065,,,1.0.0,,continuous,year,,,,age at time of filling out the questionaire (cbcl 36 months),,,,, +GenR,core,agechild9_visit1,Age child visit 1 (years),,,1.0.0,,continuous,year,,,,Age during the visit @9,,,,, +GenR,core,agechild9m,agechild9m,,,1.0.0,,continuous,month,,,,Age Child at 9 years (years),,,,, +GenR,core,agechildGR1076,Age child GR1076 (5 years part 2),,,1.0.0,,continuous,month,,,,Indicates age of the child in months at time of filling in the questionnaire,,,,, +GenR,core,agechild_GR1075,Age child GR1075 (5 years part 1),,,1.0.0,,continuous,month,,,,Indicates age of the child in months at time of filling in the questionnaire,,,,, +GenR,core,agechild_GR1080,Age at FFQ,,,1.0.0,,continuous,year,,,,Age at FFQ (years),,,,, +GenR,core,agechildd,Age child parent died (logistic system 27092018),,,1.0.0,,continuous,year,,,,child's age at death parent according to the logistical tracking system used for contacting participants,,,,, +GenR,core,agem5child,Age Child Focus at 5 years (months),,,1.0.0,,continuous,month,,,,Age child at 5-year follow-up,,,,, +GenR,core,agemother_birthchild,Age mother at birth child (livebirth),,,1.0.0,,continuous,year,,,,"This indicates maternal age at birth, calculated based on her birth date and the child's birthdate",,,,, +GenR,core,agey5child,Age Child Focus at 5 years (years),,,1.0.0,,continuous,year,,,,Age Child at 5 years (years),,,,, +GenR,core,ai_ADHD,avarage items score of ADHD in conners scale,,,1.0.0,,continuous,,,,,avarage items score of ADHD in conners scale,,,,, +GenR,core,ai_fm12,average item score fine motor of Infant/Child Development Inventory measured at 12 months,,,1.0.0,,continuous,,,,,Average item score fine motor at 12 months,,,,, +GenR,core,ai_fm18,average item score fine motor of Child Development Inventory measured at 18 months,,,1.0.0,,continuous,,,,,Average item score fine motor at 18 months,,,,, +GenR,core,ai_fm24,average item score fine motor of Child Development Inventory measured at 24 months,,,1.0.0,,continuous,,,,,Average item score fine motor at 24 months,,,,, +GenR,core,cbcl_int,raw internalizing sumscore scale complete,,,1.0.0,,continuous,,,,,Sumscore of internalizing symptoms reported by mothers,,,,, +GenR,core,ai_fm6,average item score fine motor of Infant/Child Development Inventory measured at 6 months,,,1.0.0,,continuous,,,,,Average item score fine motor at 6 months,,,,, +GenR,core,ai_gm12,average item score gross motor of Infant/Child Development Inventory measured at 12 months,,,1.0.0,,continuous,,,,,Average item score gross motor at 12 months,,,,, +GenR,core,anx_M108_m,Anxiety Mother 108 Months,,,1.0.0,,continuous,,,,,"At 9-10 years, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,SUPRA24M,SkinSuprailiacaal at 24 months,,,1.0.0,,continuous,mm,,,,SkinSuprailiacaal at 24 months,,,,, +GenR,core,SUPRA6M,SkinSuprailiacaal at 6 months,,,1.0.0,,continuous,mm,,,,SkinSuprailiacaal at 6 months,,,,, +GenR,core,SUPRA6W,SkinSuprailiacaal at 6 weeks,,,1.0.0,,continuous,mm,,,,SkinSuprailiacaal at 6 weeks,,,,, +GenR,core,SYS1_24months,BloodPressureSystole1 at 24 months,,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured at reseach clinics,,,,, +GenR,core,SYS2_24months,BloodPressureSystole2 at 24 months,,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured at reseach clinics,,,,, +GenR,core,SYS_P,sbp partner during pregancy,,,1.0.0,,continuous,mmHg,,,,sbp partner during pregancy,,,,, +GenR,core,Saturated_fat_g,"Saturated fat intake, in energy percent [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Saturated fat intake, in energy percent",,,,, +GenR,core,Sys1_5child,F@5 BLOODPRESSURE – child: 1st Systole (mmHg) (Sys1_5child),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,Sys2_5child,F@5 BLOODPRESSURE – child: 2nd Systole (mmHg) (Sys2_5child),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,ai_gm18,average item score gross motor of Child Development Inventory measured at 18 months,,,1.0.0,,continuous,,,,,Average item score gross motor at 18 months,,,,, +GenR,core,ai_gm24,average item score gross motor of Child Development Inventory measured at 24 months,,,1.0.0,,continuous,,,,,Average item score gross motor at 24 months,,,,, +GenR,core,ai_gm6,average item score gross motor of Infant/Child Development Inventory measured at 6 months,,,1.0.0,,continuous,,,,,Average item score gross motor at 6 months,,,,, +GenR,core,alc0,alcohol consumption during pregnancy,,,1.0.0,,categorical,,,,,Indicates whether the participant druk alcohol during pregnancy,,,,, +GenR,core,alc1,alcohol 1st trimester complete - recategorized,,,1.0.0,,categorical,,,,,"Indicates how many glassess of alcohol a participant drunk (first trimester, recategorized)",,,,, +GenR,core,alc1_original,alcohol 1st trimester complete,,,1.0.0,,categorical,,,,,Indicates how many glassess of alcohol a participant drunk (first trimester),,,,, +GenR,core,alc2,alcohol 2nd trimester complete - recategorized,,,1.0.0,,categorical,,,,,"Indicates how many glassess of alcohol a participant drunk (second trimester, recategorized)",,,,, +GenR,core,alc2_original,alcohol 2nd trimester complete,,,1.0.0,,categorical,,,,,Indicates how many glassess of alcohol a participant drunk (second trimester),,,,, +GenR,core,alc3,alcohol 3rd trimester complete - recategorized,,,1.0.0,,categorical,,,,,"Indicates how many glassess of alcohol a participant drunk (third trimester, recategorized)",,,,, +GenR,core,alc3_original,alcohol 3rd trimester complete,,,1.0.0,,categorical,,,,,Indicates how many glassess of alcohol a participant drunk (third trimester),,,,, +GenR,core,all_birch,"allergic sensitization to birch, y/n",,,1.0.0,,categorical,,,,,"Skin response was considered positive if the area of the wheal was ≥40% of the histamine response (ie, histamine equivalent prick index area ≥0.40).",,,,, +GenR,core,all_cashew,"allergic sensitization to cashew nut, y/n",,,1.0.0,,categorical,,,,,"Skin response was considered positive if the area of the wheal was ≥40% of the histamine response (ie, histamine equivalent prick index area ≥0.40).",,,,, +GenR,core,all_cat,"allergic sensitization to cat, y/n",,,1.0.0,,categorical,,,,,"Skin response was considered positive if the area of the wheal was ≥40% of the histamine response (ie, histamine equivalent prick index area ≥0.40).",,,,, +GenR,core,all_dog,"allergic sensitization to dog, y/n",,,1.0.0,,categorical,,,,,"Skin response was considered positive if the area of the wheal was ≥40% of the histamine response (ie, histamine equivalent prick index area ≥0.40).",,,,, +GenR,core,all_food,"food allergic sensitization (SPT), y/n",,,1.0.0,,categorical,,,,,"food allergic sensitization (peanut, hazelnut, cashew nut, peach) as measured by SPT",,,,, +GenR,core,all_grass,"allergic sensitization to grass, y/n",,,1.0.0,,categorical,,,,,"Skin response was considered positive if the area of the wheal was ≥40% of the histamine response (ie, histamine equivalent prick index area ≥0.40).",,,,, +GenR,core,all_hazel,"allergic sensitization to hazelnut, y/n",,,1.0.0,,categorical,,,,,"Skin response was considered positive if the area of the wheal was ≥40% of the histamine response (ie, histamine equivalent prick index area ≥0.40).",,,,, +GenR,core,all_hdm,"allergic sensitization to house dust mite (HDM), y/n",,,1.0.0,,categorical,,,,,"Skin response was considered positive if the area of the wheal was ≥40% of the histamine response (ie, histamine equivalent prick index area ≥0.40).",,,,, +GenR,core,all_inhalant,"inhalant allergic sensitization (SPT), y/n",,,1.0.0,,categorical,,,,,"inhalant allergic sensitization (house dust mite, birch, grass, cat, dog) as measured by SPT",,,,, +GenR,core,all_peach,"allergic sensitization to peach, y/n",,,1.0.0,,categorical,,,,,"Skin response was considered positive if the area of the wheal was ≥40% of the histamine response (ie, histamine equivalent prick index area ≥0.40).",,,,, +GenR,core,p06,CEREALS AND CEREAL PRODUCTS,,,1.0.0,,continuous,gram_per_day,,,,Intake of cereals and cereal products,,,,, +GenR,core,all_peanut,"allergic sensitization to peanut, y/n",,,1.0.0,,categorical,,,,,"Skin response was considered positive if the area of the wheal was ≥40% of the histamine response (ie, histamine equivalent prick index area ≥0.40).",,,,, +GenR,core,p07_01_05,HORSE,,,1.0.0,,continuous,gram_per_day,,,,Intake of horse,,,,, +GenR,core,allergy9y,"Current doctor-diagnosed allergy (pollen, HDM, cats, dogs, nuts) at age 9 years, y/n",,,1.0.0,,categorical,,,,,"Allergy to pollen, housedustmite, cats, dogs, peanut or cashew diagnosed by a physician",,,,, +GenR,core,anx_M108_p,Anxiety Partner 108 Months,,,1.0.0,,continuous,,,,,"At 9-10 years, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,FG60_44_Fruit_dried,"Dried fruit (raisins) intake, g/d [44/FG60] [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Dried fruit (raisins) intake, g/d",,,,, +GenR,core,Praw_nvi,Fractional Rank Percent of raw_nvi,,,1.0.0,,continuous,,,,,Mosaics and Categories of SON-R IQ score,,,,, +GenR,core,Protein_total_Epct,"Total protein intake, in energy percent [FFQ 8y]",,,1.0.0,,continuous,percent,,,,"Total protein intake, in energy percent",,,,, +GenR,core,Protein_total_g,"Total protein intake, g/d [FFQ 8y]",,,1.0.0,,continuous,gram_per_day,,,,"Total protein intake, g/d",,,,, +GenR,core,Psum_ADH,Fractional Rank Percent of sum_ADHD,,,1.0.0,,continuous,,,,,Percentile scores of sumscore of Conners,,,,, +GenR,core,Psum_ext,Fractional Rank Percent of sum_ext,,,1.0.0,,continuous,,,,,Percentile scores of subscale externalizing problems,,,,, +GenR,core,Psum_ext_36,Fractional Rank Percent of sum_ext_36m,,,1.0.0,,continuous,,,,,Percentile scores of subscale externalizing problems,,,,, +GenR,core,Psum_ext_5,Fractional Rank Percent of sum_ext_5,,,1.0.0,,continuous,,,,,Percentile scores of subscale externalizing problems,,,,, +GenR,core,Psum_ext_9m,Fractional Rank Percent of sum_ext_9m,,,1.0.0,,continuous,,,,,Percentile scores of subscale externalizing problems,,,,, +GenR,core,Psum_int,Fractional Rank Percent of sum_int,,,1.0.0,,continuous,,,,,Percentile scores of subscale internalizing problems,,,,, +GenR,core,Psum_int_36,Fractional Rank Percent of sum_int_36m,,,1.0.0,,continuous,,,,,Percentile scores of subscale internalizing problems,,,,, +GenR,core,Psum_int_9m,Fractional Rank Percent of sum_int_9m,,,1.0.0,,continuous,,,,,Percentile scores of subscale internalizing problems,,,,, +GenR,core,Pulse1_5child,F@5 BLOODPRESSURE – child 1st Pulse (mean) (Pulse1_5child),,,1.0.0,,continuous,bpm,,,,Pulse measured in sitting position at research clinics,,,,, +GenR,core,SBP4_child9,F@9 BLOODPRESSURE - child: 4th Systole (mmHg),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,agechild9,agechild9,,,1.0.0,,continuous,year,,,,Age Child at 9 years (years),,,,, +GenR,core,SMOKE_ALL,maternal smoking during pregnancy - all included women,,,1.0.0,,categorical,,,,,Indicates the smoking habits of the mother during the index pregnancy,,,,, +GenR,core,SUB14M,SkinSubscapulair at 14 months,,,1.0.0,,continuous,mm,,,,SkinSubscapulair at 14 months,,,,, +GenR,core,SUB24M,SkinSubscapulair at 24 months,,,1.0.0,,continuous,mm,,,,SkinSubscapulair at 24 months,,,,, +GenR,core,SUB6M,SkinSubscapulair at 6 months,,,1.0.0,,continuous,mm,,,,SkinSubscapulair at 6 months,,,,, +GenR,core,SUB6W,SkinSubscapulair at 6 weeks,,,1.0.0,,continuous,mm,,,,SkinSubscapulair at 6 weeks,,,,, +GenR,core,SUPRA14M,SkinSuprailiacaal at 14 months,,,1.0.0,,continuous,mm,,,,SkinSuprailiacaal at 14 months,,,,, +GenR,core,Sys4_5child,F@5 BLOODPRESSURE – child: 4th Systole (mmHg) (Sys4_5child),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,TCholmetoutliers_1,"cholesterol mother during pregnancy including outliers, minus gekke waarden",,,1.0.0,,continuous,mmol/litre,,,,cholesterol mother during pregnancy,,,,, +GenR,core,TGCH5_C,Triglycerids Child (serum) F5 mmol/l CLEANED,,,1.0.0,,continuous,mmol/litre,,,,Triglycerides from serum measured at research clinics,,,,, +GenR,core,TGmetoutliers_1,"TG mother during pregnancy including outliers, minus gekke waarden",,,1.0.0,,continuous,mmol/litre,,,,TG mother during pregnancy,,,,, +GenR,core,TRIC14M,SkinTriceps at 14 months,,,1.0.0,,continuous,mm,,,,SkinTriceps at 14 months,,,,, +GenR,core,TRIC24M,SkinTriceps at 24 months,,,1.0.0,,continuous,mm,,,,SkinTriceps at 24 months,,,,, +GenR,core,TRIC6M,SkinTriceps at 6 months,,,1.0.0,,continuous,mm,,,,SkinTriceps at 6 months,,,,, +GenR,core,TRIC6W,SkinTriceps at 6 weeks,,,1.0.0,,continuous,mm,,,,SkinTriceps at 6 weeks,,,,, +GenR,core,Triglyceriden9_clean,Triglyceriden serum Child 9 years cleaned,,,1.0.0,,continuous,mmol/litre,,,,Triglycerides from serum measured at research clinics,,,,, +GenR,core,UITDRIJF,Delivery singleton Live birth,,,1.0.0,,categorical,,,,,Indicates the mode of delivery in the index pregnancy,,,,, +GenR,core,URTI_1y,upper respiratory tract infection 1 years yes/no,,,1.0.0,,categorical,,,,,"Ear or throat infection, pseudocroup or whooping cough in the past 12 months",,,,, +GenR,core,URTI_2y,upper respiratory tract infection 2 years yes/no,,,1.0.0,,categorical,,,,,"Ear or throat infection, pseudocroup or whooping cough in the past 12 months",,,,, +GenR,core,URTI_3y,upper respiratory tract infection 3 years yes/no,,,1.0.0,,categorical,,,,,"Ear or throat infection, pseudocroup or whooping cough in the past 12 months",,,,, +GenR,core,URTI_4y,upper respiratory tract infection 4 years yes/no,,,1.0.0,,categorical,,,,,Ear or throat infection or pseudocroup in the past 12 months,,,,, +GenR,core,URTI_6mo,upper respiratory tract infection 6 months yes/no,,,1.0.0,,categorical,,,,,"Ear or throat infection, pseudocroup or whooping cough in the first 6 months",,,,, +GenR,core,URTI_6y,upper respiratory tract infection 6 years yes/no,,,1.0.0,,categorical,,,,,Ear or throat infection or pseudocroup in the past 12 months,,,,, +GenR,core,WAIST24M,AntroWaistAccess at 24 months,,,1.0.0,,continuous,cm,,,,AntroWaistAccess at 24 months,,,,, +GenR,core,WEIGHT,Weight live birth,,,1.0.0,,continuous,kg,,,,Birth weight,,,,, +GenR,core,WEIGHT_0,What was your weight just before this pregnancy,,,1.0.0,,continuous,kg,,,,weight mother before pregnancy,,,,, +GenR,core,X0500165,GR1065 X5-1 Do you have a partner present? (X0500165),,,1.0.0,,categorical,,,,,This indicates whether mothers had a partner around the age of XXX,,,,, +GenR,core,ZFEF75,"Forced Expiratory Flow after exhaling 75% of FVC, z-score according to GLI reference criteria",,,1.0.0,,continuous,,,,,"Forced Expiratory Flow after exhaling 75% of FVC, z-score according to GLI reference criteria",,,,, +GenR,core,ZFEV,"Forced Expiratotory Volume in the first second, z-score according to GLI reference criteria",,,1.0.0,,continuous,,,,,"Forced Expiratotory Volume in the first second, z-score according to GLI reference criteria",,,,, +GenR,core,ZFEVFVC,"Forced Expiratotory Volume in the first second/Forced Vital Capacity, z-score according to GLI reference data",,,1.0.0,,continuous,,,,,"Forced Expiratotory Volume in the first second/Forced Vital Capacity, z-score according to GLI reference data",,,,, +GenR,core,ZFVC,"Forced Vital Capacity, z-score according to GLI reference criteria",,,1.0.0,,continuous,,,,,"Forced Vital Capacity, z-score according to GLI reference criteria",,,,, +GenR,core,a0400187,A0400187.1: Does the father / mother or the other carer of your child still live? F9,,,1.0.0,,categorical,,,,,parental death according to information at research visit,,,,, +GenR,core,a0400287_cleaned,Who died? F9,,,1.0.0,,categorical,,,,,"Indicates who died, 1st and 2nd degree relatives and others",,,,, +GenR,core,a0600104,GR1004 A6-1 diabetes (a0600104),,,1.0.0,,categorical,,,,,Indicates whether the partner was ever diagnosed with diabetes. Note: it is not know whether this is the biological father,,,,, +GenR,core,a0900103,GR1003 A9-1 a period with fever_past 2 months? (a0900103),,,1.0.0,,categorical,,,,,Variable indicatetes whether the particpant had a period with fever (temp>38o) in the past 2 months.,,,,, +GenR,core,a2200104,GR1004 A22-1 asthma (a2200104),,,1.0.0,,categorical,,,,,Indicates whether the partner was ever diagnosed with asthma. Note: it is not known whether this is the biological father.,,,,, +GenR,core,age_GR1075_years,Age of the child in years questionnaire 1075,,,1.0.0,,continuous,year,,,,age at time of filling out the questionaire (cbcl 5 years),,,,, +GenR,core,a2200204,GR1004 A22-2 treated in the past 12 months (a2200204) (Note: this label is incorrect. It should be GR1004 A22-2 was asthma confirmed by a doctor?),,,1.0.0,,categorical,,,,,Indicates whether asthma (if question on asthma is yes) was confirmed by a doctor,,,,, +GenR,core,age5childmDXA,Age child DXA,,,1.0.0,,continuous,month,,,,Age in months at DXA scan at 6 years of age,,,,, +GenR,core,ageBF_atDelivery,Age of Father at birth of the child,,,1.0.0,,continuous,year,,,,Age of Father at birth of the child,,,,, +GenR,core,ageChildMF5,Age Child Focus at 5 years (months),,,1.0.0,,continuous,month,,,,Age Child Focus at 5 years (months),,,,, +GenR,core,ageChildYF5,Age Child Focus at 5 years (years),,,1.0.0,,continuous,year,,,,exact child age at time of the assessment at the research center,,,,, +GenR,core,age_CB02m,age_CB02m: Age child 2 months,,,1.0.0,,continuous,month,,,,Age child 2 months,,,,, +GenR,core,age_CB03m,Age child 3 months,,,1.0.0,,continuous,month,,,,Age child 3 months,,,,, +GenR,core,age_CB04m,Age child 4 months,,,1.0.0,,continuous,month,,,,Age child 4 months,,,,, +GenR,core,age_CB05t10m,Age child 5-10 months,,,1.0.0,,continuous,month,,,,Age child 5-10 months,,,,, +GenR,core,age_CB0t2m,age_CB0t2m: Age child 0-2 months,,,1.0.0,,continuous,month,,,,Age child 0-2 months,,,,, +GenR,core,age_CB10t13m,Age child 10-13 months,,,1.0.0,,continuous,month,,,,Age child 10-13 months,,,,, +GenR,core,age_CB13t17m,Age child 13-17 months,,,1.0.0,,continuous,month,,,,Age child 13-17 months,,,,, +GenR,core,age_CB23t29m,Age child 23-29 months,,,1.0.0,,continuous,month,,,,Age child 23-29 months,,,,, +GenR,core,age_CB23t35m,Age child 23-35 months,,,1.0.0,,continuous,month,,,,Age child 23-35 months,,,,, +GenR,core,p07_01_04,MUTTON/LAMB,,,1.0.0,,continuous,gram_per_day,,,,Intake of mutton/lamb,,,,, +GenR,core,atdus,aterm date based on ultrasound,,,1.0.0,,continuous,,,,,Aterm date based on ultrasound,,,,, +GenR,core,b0900101,GR1001 B9-1 Pregnancy diabetes_in a previous pregnancy (b0900101),,,1.0.0,,categorical,,,,,Indicates whether a participants had gestational diabetes in a prevous pregnancy.,,,,, +GenR,core,b0900105,GR1005 B9-1 A period with fever (temp> 38)_past 3 months (b0900105),,,1.0.0,,categorical,,,,,Variable indicates whether the participant had a period with fever (temp>38o) in the past 3 months.,,,,, +GenR,core,birthMother,Year of birth mother,,,1.0.0,,continuous,,,,,"precise date of birth mother, only available for datamanagement",,,,, +GenR,core,birth_partner,Year of birth father,,,1.0.0,,continuous,,,,,"precise date of birth father, only available for datamanagement",,,,, +GenR,core,borstvoeding,Breastfeeding at the age of 6 months regrouped,,,1.0.0,,categorical,,,,,"Indicates if the child was exclusively breastfed/partially breastfed/not breastfed during the first 4 and 6 months. ‘Partial’ indicates infants receiving breastfeeding, +formula-feeding and/or solids. ‘Exclusive’ indicates infants who have been breastfed, without any other milk, solids or fluids.",,,,, +GenR,core,H0300228,GR1028 H3-2 How may hours a week is your child looked after by an au pair in your home? (H0300228),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by an au pair at home (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,Pulse2_5child,F@5 BLOODPRESSURE – child 2nd Pulse (mean) (Pulse2_5child),,,1.0.0,,continuous,bpm,,,,Pulse measured in sitting position at research clinics,,,,, +GenR,core,Pulse3_5child,F@5 BLOODPRESSURE – child: 3rd Pulse (mean) (Pulse3_5child),,,1.0.0,,continuous,bpm,,,,Pulse measured in sitting position at research clinics,,,,, +GenR,core,Pulse4_5child,F@5 BLOODPRESSURE – child: 4rd Pulse (mean) (Pulse4_5child),,,1.0.0,,continuous,bpm,,,,Pulse measured in sitting position at research clinics,,,,, +GenR,core,SBP1_child9,F@9 BLOODPRESSURE - child: 1st Systole (mmHg),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,SBP2_child9,F@9 BLOODPRESSURE - child: 2nd Systole (mmHg),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,SBP3_child9,F@9 BLOODPRESSURE - child: 3rd Systole (mmHg),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,H0300425,"GR1025 H3-4 How many hours a week is your child cared for by family, neighbours or friends? (H0300425)",,,1.0.0,,categorical,,,,,"Indicates whether the child is cared for by friend, family or relatives (if a positive answer is given on the question whether someone takes care of the child on a regular basis)",,,,, +GenR,core,H0300428,GR1028 H3-4 How may hours a week is your child looked after by family neighbour and acquaintances? (H0300428),,,1.0.0,,categorical,,,,,"Indicates whether the child is cared for by friend, family or relatives (if a positive answer is given on the question whether someone takes care of the child on a regular basis)",,,,, +GenR,core,H0300525,GR1025 H3-5 How many hours a week is your child cared for by a crèche or child day care? (H0300525),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by a creche or child day care (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,H0300528,GR1028 H3-5 How may hours a week is your child looked after by a creche or day care centre? (H0300528),,,1.0.0,,categorical,,,,,Indicates whether the child is cared for by a creche or child day care (if a positive answer is given on the question whether someone takes care of the child on a regular basis),,,,, +GenR,core,HB,HB,,,1.0.0,,continuous,mmol/litre,,,,HB,,,,, +GenR,core,HC5child,F@5 GROWTH - child: headcircumference (cm) (hc5child),,,1.0.0,,continuous,cm,,,,headcircumference 5 years,,,,, +GenR,core,HC_totalcm,Combined HC (cm) - Birth/CB,,,1.0.0,,continuous,cm,,,,Headcircumference at birth,,,,, +GenR,core,HDLCH5_C,HDL Child (serum) F5 mmol/l CLEANED,,,1.0.0,,continuous,mmol/litre,,,,HDL-cholesterol from serum measured at research clinics,,,,, +GenR,core,HDLCholesterolChild9_clean,HDL-Cholesterol serum Child 9 years cleaned,,,1.0.0,,continuous,mmol/litre,,,,HDL-cholesterol from serum measured at research clinics,,,,, +GenR,core,HDLmetoutliers_1,"HDL mother during pregnancy including outliers, minus gekke waarden",,,1.0.0,,continuous,mmol/litre,,,,HDL mother during pregnancy,,,,, +GenR,core,HEIGHT_1,height intake,,,1.0.0,,continuous,cm,,,,height mother for those prenatally included,,,,, +GenR,core,HIC24M,SkinBiceps at 24 months,,,1.0.0,,continuous,mm,,,,SkinBiceps at 24 months,,,,, +GenR,core,HOS_M6,Hostility mother 6months 1024,,,1.0.0,,continuous,,,,,"At 6 months, an abbreviated version of the BSI was assesed in mothers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,INCOME,Netto income household,,,1.0.0,,categorical,,,,,This indicates the net household income measured in the prenatal period,,,,, +GenR,core,INCOME2,Indication of the net income of your household postnatal included,,,1.0.0,,categorical,,,,,This indicated the net household income measured in the early postnatal period in those mothers who were included in the study after birth of their child,,,,, +GenR,core,INCOME5,"GR1075 B19 What is the net income of your household per month (your income plus that of your partner, if any).",,,1.0.0,,categorical,,,,,This indicates the net household income measured in childhood (child age around 5 years),,,,, +GenR,core,INSUCH5_C,Insuline Child (serum) F5 pmol/l CLEANED (pmol/l),,,1.0.0,,continuous,,,,,Insulin from serum measured at research clinics,,,,, +GenR,core,I_S_M6,Interpersonal Sensitivity mother 6months 1024,,,1.0.0,,continuous,,,,,"At 6 months, an abbreviated version of the BSI was assesed in mothers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,InsulinG1,Insulin pmol/L Mother serum early Pregancy (pmol/l),,,1.0.0,,continuous,,,,,Insulin pmol/L Mother serum early Pregancy (pmol/l),,,,, +GenR,core,InsulineChild9_clean,Insuline serum Child 9 years cleaned (pmol/l),,,1.0.0,,continuous,,,,,Insulin from serum measured at research clinics,,,,, +GenR,core,LDLCH5_C,LDL Child (serum) F5 mmol/l CLEANED,,,1.0.0,,continuous,mmol/litre,,,,LDL-cholesterol from serum measured at research clinics,,,,, +GenR,core,LDLmetoutliers_1,"LDL mother during pregnancy including outliers, minus gekke waarden",,,1.0.0,,continuous,mmol/litre,,,,LDL mother during pregnancy,,,,, +GenR,core,LENGTH_totalcm,Combined Length (cm) - Birth/CB,,,1.0.0,,continuous,cm,,,,Length at birth,,,,, +GenR,core,LRTI_1y,lower respiratory tract infection 1 years yes/no,,,1.0.0,,categorical,,,,,bronchiolitis,,,,, +GenR,core,LRTI_2y,lower respiratory tract infection 2 years yes/no,,,1.0.0,,categorical,,,,,"pneumonia, bronchitis, bronchiolitis",,,,, +GenR,core,LRTI_3y,lower respiratory tract infection 3 years yes/no,,,1.0.0,,categorical,,,,,"pneumonia, bronchitis",,,,, +GenR,core,LRTI_4y,lower respiratory tract infection 4 years yes/no,,,1.0.0,,categorical,,,,,"pneumonia, bronchitis",,,,, +GenR,core,p09,eieren,,,1.0.0,,continuous,gram_per_day,,,,Intake of eggs,,,,, +GenR,core,LRTI_6mo,lower respiratory tract infection 6 months yes/no,,,1.0.0,,categorical,,,,,"pneumonia, bronchitis, bronchiolitis",,,,, +GenR,core,LRTI_6y,lower respiratory tract infection 6 years yes/no,,,1.0.0,,categorical,,,,,"pneumonia, bronchitis",,,,, +GenR,core,MARDICH,marital status 2 groups,,,1.0.0,,categorical,,,,,Marital status,,,,, +GenR,core,MAR_DICH5,marital status dichotomous based on 5/6 year questionnaire (MAR_DICH5),,,1.0.0,,categorical,,,,,This indicates marital status at the assessment around at age 5 years of the child,,,,, +GenR,core,MAR_ST2,marital status 3 groups,,,1.0.0,,categorical,,,,,This indicates marital status in three groups in the prenatal period,,,,, +GenR,core,MAXWEIGHT,highest weight mother before the birth,,,1.0.0,,continuous,kg,,,,highest weight mother before the birth,,,,, +GenR,core,OUTCOMECHILD,outcome birth - child,,,1.0.0,,categorical,,,,,Indicates the child´s condition at delivery,,,,, +GenR,core,OUTCOMEPREG,outcome pregnancy,,,1.0.0,,categorical,,,,,outcome of the pregnancy,,,,, +GenR,core,P04_01,fruit,,,1.0.0,,continuous,gram_per_day,,,,Intake of fruits,,,,, +GenR,core,PARITY,parity,,,1.0.0,,continuous,,,,,Indicates the womens parity,,,,, +GenR,core,PARTBF,partner is biological father,,,1.0.0,,categorical,,,,,Indicates whether partner is biological father,,,,, +GenR,core,PA_BEF_AFTER_GENR,PA_BEF_AFTER_GENR: Final variable for solutio,,,1.0.0,,categorical,,,,,"Indicates whether the mother had placental abruption before, during or after the index pregnancy",,,,, +GenR,core,PE,PE - definition Sarah Timmermans,,,1.0.0,,categorical,,,,,Indicates whether the participant had pre-eclampsia or HELLP. Criteria pre-eclampsia: SBP ≥140 mmHg and/or DBP ≥90 mmHg after 20 weeks of gestation in a previously normotensive women plus the presence of proteinuria. Participants with gestational hypertention are set to missing.,,,,, +GenR,core,p05,DAIRY PRODUCTS,,,1.0.0,,continuous,gram_per_day,,,,Intake of dairy products,,,,, +GenR,core,PIH_v2,Pregnancy Induced Hypertension (positive PE_total excluded),,,1.0.0,,categorical,,,,,Indicates whteher the participant had gestational hypertension. Criteria: SBP ≥140 mmHg and/or DBP ≥90 mmHg after 20 weeks of gestation in a previously normotensive women. Participants with pre-eclampsia or HELPP are set to missing.,,,,, +GenR,core,PLAWGHT,PLAWGHT zonder outliers,,,1.0.0,,continuous,gram,,,,Placenta weight,,,,, +GenR,core,PULSE1_child9,F@9 BLOODPRESSURE - child: 1st Pulse,,,1.0.0,,continuous,bpm,,,,Pulse measured in sitting position at research clinics,,,,, +GenR,core,PULSE2_child9,F@9 BLOODPRESSURE - child: 2nd Pulse,,,1.0.0,,continuous,bpm,,,,Pulse measured in sitting position at research clinics,,,,, +GenR,core,PULSE3_child9,F@9 BLOODPRESSURE - child: 3rd Pulse,,,1.0.0,,continuous,bpm,,,,Pulse measured in sitting position at research clinics,,,,, +GenR,core,PULSE4_child9,F@9 BLOODPRESSURE - child: 4th Pulse,,,1.0.0,,continuous,bpm,,,,Pulse measured in sitting position at research clinics,,,,, +GenR,core,Ppro_ASD,Fractional Rank Percent of pro_ASD,,,1.0.0,,continuous,,,,,Percentile score of subscale ASD,,,,, +GenR,core,Ppro_fm12,Fractional Rank Percent of pro_fm12,,,1.0.0,,continuous,,,,,Percentile score fine motor at 12 months,,,,, +GenR,core,Ppro_fm18,Fractional Rank Percent of pro_fm18,,,1.0.0,,continuous,,,,,Percentile score fine motor at 18 months,,,,, +GenR,core,Ppro_fm24,Fractional Rank Percent of pro_fm24,,,1.0.0,,continuous,,,,,Percentile score fine motor at 24 months,,,,, +GenR,core,Ppro_fm6,Fractional Rank Percent of pro_fm6,,,1.0.0,,continuous,,,,,Percentile score fine motor at 6 months,,,,, +GenR,core,Ppro_gm12,Fractional Rank Percent of pro_gm12,,,1.0.0,,continuous,,,,,Percentile score gross motor at 12 months,,,,, +GenR,core,Ppro_gm18,Fractional Rank Percent of pro_gm18,,,1.0.0,,continuous,,,,,Percentile score gross motor at 18 months,,,,, +GenR,core,Ppro_gm24,Fractional Rank Percent of pro_gm24,,,1.0.0,,continuous,,,,,Percentile score gross motor at 24 months,,,,, +GenR,core,rashloc_5y,"Itchy rash on inner elbows, back of knees, upper side of ankles, nappy area, neck or around eyes/ears",,,1.0.0,,categorical,,,,,"On what areas did this itchy rash appear? (inner elbow, back of the knee, upper side of the ankles, in the nappy area, on the neck, round the eyes or ears)",,,,, +GenR,core,anx_M36_m,Anxiety Mother 36 Months,,,1.0.0,,continuous,,,,,"At 36 months, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,anx_M36_p,Anxiety Partner 36 Months,,,1.0.0,,continuous,,,,,"At 36 months, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,as_ever5y,Ever physician diagnosed asthma at age 5 years,,,1.0.0,,categorical,,,,,Ever physician diagnosed asthma at age 5 years,,,,, +GenR,core,as_ever9y,Ever physician diagnosed asthma at age 9 years,,,1.0.0,,categorical,,,,,Ever physician diagnosed asthma at age 9 years,,,,, +GenR,core,dep_M36_p,Depression Partner 36 Months,,,1.0.0,,continuous,,,,,"At 36 months, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,dog,"dog prenatal no, yes",,,1.0.0,,categorical,,,,,Dog in the home during pregnancy,,,,, +GenR,core,familysize_adultsGR1065,Familysize of adults only based on GR1065,,,1.0.0,,continuous,,,,,This variable was based on questions assessing family size (number of persons); separate variables were constructured for children (younger <18 years) and adults (=> 18 years),,,,, +GenR,core,e0100103,GR1003 E1-1 ever tried to loose weight_may you have suffered from anorexia? (e0100103),,,1.0.0,,categorical,,,,,This indicates wether pregnant women ever suffered from anorexia using a vignette,,,,, +GenR,core,e0100203,GR1003 E1-2 have you suffered from anorexia in the past year? (e0100203),,,1.0.0,,categorical,,,,,This indicates wether pregnant women suffered from anorexia in the past year using a vignette,,,,, +GenR,core,e0200103,GR1003 E2-1 have you ever suffered from bulimia? (e0200103),,,1.0.0,,categorical,,,,,This indicates wether pregnant women ever suffered from bulimia using a vignette,,,,, +GenR,core,e0200203,GR1003 E2-2 have you suffered from bulimia in the past year? (e0200203),,,1.0.0,,categorical,,,,,This indicates wether pregnant women suffered from bulimia in the past year using a vignette,,,,, +GenR,core,e0300104,GR1004 E3-1 best description income (e0300104),,,1.0.0,,categorical,,,,,Indicates occupational status of the father,,,,, +GenR,core,ec_ever9y,"Ever doctor-diagnosed eczema at age 9 years, y/n",,,1.0.0,,categorical,,,,,Ever doctor-diagnosed eczema at age 9 years,,,,, +GenR,core,ecz,eczema 6 months_n/y,,,1.0.0,,categorical,,,,,Doctor attended eczema in the past 6 months,,,,, +GenR,core,ecz1y,eczema doctor attended age1,,,1.0.0,,categorical,,,,,Doctor attended eczema in the past 12 months,,,,, +GenR,core,ecz2y,eczema doc-attended age 2,,,1.0.0,,categorical,,,,,Doctor attended eczema in the past 12 months,,,,, +GenR,core,ecz3y,eczema doc-attended age 3,,,1.0.0,,categorical,,,,,Doctor attended eczema in the past 12 months,,,,, +GenR,core,ecz4y,eczema doc-attended age 4,,,1.0.0,,categorical,,,,,Doctor attended eczema in the past 12 months,,,,, +GenR,core,ecz5y,doctor attended eczema age 5 n/y,,,1.0.0,,categorical,,,,,Doctor attended eczema in the past 12 months,,,,, +GenR,core,p04_04,olijven,,,1.0.0,,continuous,gram_per_day,,,,Intake of olives,,,,, +GenR,core,eiwit,eiwit totaal (g),,,1.0.0,,continuous,gram_per_day,,,,Total protein intake,,,,, +GenR,core,ethn1_m,best estimate is equal to ethn1_m,,,1.0.0,,categorical,,,,,(Ethnic) background of father based on country of origin (of parents),,,,, +GenR,core,f0100103,GR1003 F1-1 have you ever been addicted to one or more substances? (f0100103),,,1.0.0,,categorical,,,,,This indicates wether pregnant women ever suffered from addiction using a vignette,,,,, +GenR,core,g0100201,g0100201,,,1.0.0,,categorical,,,,,Amount of cigarettes per day the father smoked during pregnancy,,,,, +GenR,core,f0500101,GR1001 F5-1 Did you ever drink alcohol_before pregnancy (f0500101),,,1.0.0,,categorical,,,,,Indicates whether the participant ever drunk alcohol before pregnancy,,,,, +GenR,core,f0500201,GR1001 F5-2 How many glasses alcohol_before pregnancy (f0500201),,,1.0.0,,categorical,,,,,Indicates how many glasses of alcohol before pregnancy,,,,, +GenR,core,f0700101,"NA, use datafile Maternal Smoking GR1001 F7-1 Did you smoke_before pregnancy (f0700101)",,,1.0.0,,categorical,,,,,Indicates the smoking habits of the mother before the index pregnancy,,,,, +GenR,core,f0700201,"NA, use datafile Maternal Smoking GR1001 F7-2 How many did you smoke a day_before pregnancy (f0700201)",,,1.0.0,,categorical,,,,,"Indicates the number of cigarettes, cigars or shag the mother used to smoke per day before the index pregnancy",,,,, +GenR,core,familysize_adultsGR1032,Familysize of adults only based on GR1032,,,1.0.0,,continuous,,,,,This variable was based on questions assessing family size (number of persons); separate variables were constructured for children (younger <18 years) and adults (=> 18 years),,,,, +GenR,core,familysize_adults_GR1075,Number of adults in household (B2000175),,,1.0.0,,continuous,,,,,This variable was based on questions assessing family size (number of persons); separate variables were constructured for children (younger <18 years) and adults (=> 18 years),,,,, +GenR,core,familysize_adults_GR1081,Number of adults in household (E0200281),,,1.0.0,,continuous,,,,,This variable was based on questions assessing family size (number of persons); separate variables were constructured for children (younger <18 years) and adults (=> 18 years),,,,, +GenR,core,familysize_alladults_GR1001,none,,,1.0.0,,continuous,,,,,This variable was based on questions assessing family size (number of persons); separate variables were constructured for children (younger <18 years) and adults (=> 18 years),,,,, +GenR,core,familysize_allchild_GR1001,none,,,1.0.0,,continuous,,,,,This variable was based on questions assessing family size (number of persons); separate variables were constructured for children (younger <18 years) and adults (=> 18 years),,,,, +GenR,core,familysize_childrenGR1032,Familysize of children only based on GR1032,,,1.0.0,,continuous,,,,,This variable was based on questions assessing family size (number of persons); separate variables were constructured for children (younger <18 years) and adults (=> 18 years),,,,, +GenR,core,familysize_childrenGR1065,Familysize of children only based on GR1065,,,1.0.0,,continuous,,,,,This variable was based on questions assessing family size (number of persons); separate variables were constructured for children (younger <18 years) and adults (=> 18 years),,,,, +GenR,core,familysize_children_GR1075,Number of children in household (B2000275),,,1.0.0,,continuous,,,,,This variable was based on questions assessing family size (number of persons); separate variables were constructured for children (younger <18 years) and adults (=> 18 years),,,,, +GenR,core,familysize_children_GR1081,Number of children in household (E0200381),,,1.0.0,,continuous,,,,,This variable was based on questions assessing family size (number of persons); separate variables were constructured for children (younger <18 years) and adults (=> 18 years),,,,, +GenR,core,fat_mass_totalCHILD9,DXA fat mass total body,,,1.0.0,,continuous,gram,,,,Total body fat mass measured with DXA,,,,, +GenR,core,fat_mass_totalbody,DXA fat mass total body,,,1.0.0,,continuous,gram,,,,Total body fat mass measured with DXA,,,,, +GenR,core,fef25_9y,Maximum Expiratory Flow at 75% of Vital Capacity (FEF25) age 9 years,,,1.0.0,,continuous,,,,,Forced Expiratory Flow after exhaling 25% of FVC (L/s),,,,, +GenR,core,fef50_9y,Maximum Expiratory Flow at 50% of Vital Capacity (FEF50) age 9 years,,,1.0.0,,continuous,,,,,Forced Expiratory Flow after exhaling 50% of FVC (L/s),,,,, +GenR,core,fef75,Forced Expiratory Flow after exhaling 75% of FVC (L/s),,,1.0.0,,continuous,,,,,Forced Expiratory Flow after exhaling 75% of FVC (L/s),,,,, +GenR,core,p08,FISH AND SHELLFISH,,,1.0.0,,continuous,gram_per_day,,,,Intake of fish and shellfish,,,,, +GenR,core,fev,Forced Expiratotory Volume in the first second (L),,,1.0.0,,continuous,,,,,Forced Expiratotory Volume in the first second (L),,,,, +GenR,core,height_CB02m,height_CB02m: Height child 2 months,,,1.0.0,,continuous,cm,,,,Height child 2 months,,,,, +GenR,core,height_CB03m,Height child 3 months,,,1.0.0,,continuous,cm,,,,Height child 3 months,,,,, +GenR,core,height_CB04m,Height child 4 months,,,1.0.0,,continuous,cm,,,,Height child 4 months,,,,, +GenR,core,kh,totaal koolhydraten (g),,,1.0.0,,continuous,gram_per_day,,,,Total carbohydrate intake,,,,, +GenR,core,height_CB05t10m,Height child 5-10 months,,,1.0.0,,continuous,cm,,,,Height child 5-10 months,,,,, +GenR,core,height_CB0t2m,height_CB0t2m: Height child 0-2 months,,,1.0.0,,continuous,cm,,,,Height child 0-2 months,,,,, +GenR,core,height_CB10t13m,Height child 10-13 months,,,1.0.0,,continuous,cm,,,,Height child 10-13 months,,,,, +GenR,core,height_CB13t17m,Height child 13-17 months,,,1.0.0,,continuous,cm,,,,Height child 13-17 months,,,,, +GenR,core,height_CB17t23m,Height child 17-23 months,,,1.0.0,,continuous,cm,,,,Height child 17-23 months,,,,, +GenR,core,h0100104,GR1004 H1-1 ever addicted (h0100104),,,1.0.0,,categorical,,,,,This indicates wether partners ever suffered from addiction using a vignette,,,,, +GenR,core,hc_CB02m,hc_CB02m: Head Circumference child 2 months,,,1.0.0,,continuous,cm,,,,Head Circumference child 2 months,,,,, +GenR,core,hc_CB03m,Head Circumference child 3 months,,,1.0.0,,continuous,cm,,,,Head Circumference child 3 months,,,,, +GenR,core,hc_CB04m,Head Circumference child 4 months,,,1.0.0,,continuous,cm,,,,Head Circumference child 4 months,,,,, +GenR,core,hc_CB05t10m,Head Circumference child 5-10 months,,,1.0.0,,continuous,cm,,,,Head Circumference child 5-10 months,,,,, +GenR,core,hc_CB0t2m,hc_CB0t2m: Head Circumference child 0-2 months,,,1.0.0,,continuous,cm,,,,Head Circumference child 0-2 months,,,,, +GenR,core,hc_CB10t13m,Head Circumference child 10-13 months,,,1.0.0,,continuous,cm,,,,Head Circumference child 10-13 months,,,,, +GenR,core,hc_CB13t17m,Head Circumference child 13-17 months,,,1.0.0,,continuous,cm,,,,Head Circumference child 13-17 months,,,,, +GenR,core,rashloc_6m,"Itchy rash on inner elbows, back of knees, upper side of ankles, nappy area, neck or around eyes/ears",,,1.0.0,,categorical,,,,,"On what areas did this itchy rash ever appear? (inner elbow, back of the knee, upper side of the ankles, in the nappy area, on the neck, round the eyes or ears, on the hairy part of the head, other or none of these areas)",,,,, +GenR,core,height_CB23t29m,Height child 23-29 months,,,1.0.0,,continuous,cm,,,,Height child 23-29 months,,,,, +GenR,core,p08_04,"visproducten, vissticks",,,1.0.0,,continuous,gram_per_day,,,,Intake of fish products,,,,, +GenR,core,height_CB29t35m,Height child 29-35 months,,,1.0.0,,continuous,cm,,,,Height child 29-35 months,,,,, +GenR,core,height_CB35t44m,Height child 35-44 months,,,1.0.0,,continuous,cm,,,,Height child 35-44 months,,,,, +GenR,core,height_CB44t56m,Height child 44-56 months,,,1.0.0,,continuous,cm,,,,Height child 44-56 months,,,,, +GenR,core,height_p,height_p,,,1.0.0,,continuous,cm,,,,Height of partner,,,,, +GenR,core,heightchild9,F9 GROWTH - child: height (cm) (heightchild9),,,1.0.0,,continuous,cm,,,,Height child 5 years,,,,, +GenR,core,hos_M108_m,Hostility Mother 108 Months,,,1.0.0,,continuous,,,,,"At 9-10 years, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,hos_M108_p,Hostility Partner 36 Months,,,1.0.0,,continuous,,,,,"At 9-10 years, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,hos_M36_m,Hostility Mother 36 Months,,,1.0.0,,continuous,,,,,"At 36 months, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,hos_M36_p,Hostility Partner 36 Months,,,1.0.0,,continuous,,,,,"At 36 months, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,i_s_M108_m,Interpersonal Sensitivity Mother 108 months,,,1.0.0,,continuous,,,,,"At 9-10 years, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,i_s_M108_p,Interpersonal Sensitivity Mother 108 months,,,1.0.0,,continuous,,,,,"At 9-10 years, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,i_s_M36_m,Interpersonal Sensitivity Mother 36 months,,,1.0.0,,continuous,,,,,"At 36 months, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,i_s_M36_p,Interpersonal Sensitivity Partner 36 months,,,1.0.0,,continuous,,,,,"At 36 months, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,inhalant9y,"Current doctor-diagnosed respiratory allergy (pollen, HDM, cats, dogs) at age 9 years, y/n",,,1.0.0,,categorical,,,,,"Ever doctor-diagnosis of inhalant allergy (hay fever, house dust mite, cat, dog)",,,,, +GenR,core,intake,"intake prenatal, postnatal",,,1.0.0,,categorical,,,,,Indicates whether the mother was prenatally or postnatally included,,,,, +GenR,core,intro_groep2,adjusted/corrected with one year nutrition questionnaire,,,1.0.0,,categorical,,,,,Indicates when solid foods were introduced in the child´s diet,,,,, +GenR,core,kcal,energie (kcal),,,1.0.0,,continuous,Kcal_per_day,,,,Total energy intake in kcal,,,,, +GenR,core,kcal_item_sum,Total energy intake/day (kcal),,,1.0.0,,continuous,Kcal_per_day,,,,Total energy intake in kcal,,,,, +GenR,core,kh_en,totaal koolhydraten (en%),,,1.0.0,,continuous,percent,,,,Total carbohydrate intake - energy %,,,,, +GenR,core,le14,Are you and your partner divorced or seperated? / Zijn u en uw partner gescheiden of uit elkaar gegaan?,,,1.0.0,,categorical,,,,,"This indicates wether parents were divorced or separated, assessed using a life events interview at the research centre",,,,, +GenR,core,le14age,How old was your child when the event happened / Hoe oud was uw kind toen het gebeurde?,,,1.0.0,,continuous,year,,,,This indicates the age of child at the divorce or separation of parents,,,,, +GenR,core,lean_mass_totalCHILD9,DXA lean mass total body,,,1.0.0,,continuous,gram,,,,Total body lean mass measured with DXA,,,,, +GenR,core,lean_mass_totalbody,DXA lean mass total body,,,1.0.0,,continuous,gram,,,,Total body lean mass measured with DXA,,,,, +GenR,core,length5child,F@5 GROWTH - child: length (cm) (length5child),,,1.0.0,,continuous,cm,,,,Height child weight 5 years,,,,, +GenR,core,lmp,Last menstrual period,,,1.0.0,,continuous,day,,,,Last menstrual period,,,,, +GenR,core,med_lungs_9,Use of lung medication in past 12 months at age 9 years,,,1.0.0,,categorical,,,,,Use of lung medication in the past 12 months,,,,, +GenR,core,movz_item_sum,Total poly-unsaturated fat intake/day (g),,,1.0.0,,continuous,gram_per_day,,,,Polyunsaturated fat intake,,,,, +GenR,core,mybirthChild,Month and year at birth,,,1.0.0,,continuous,,,,,Month and year at birth,,,,, +GenR,core,nvi_raw,raw complete sumscore of two subtests,,,1.0.0,,continuous,,,,,Mosaics and Categories of SON-R IQ score,,,,, +GenR,core,p01,POTATOES AND OTHER TUBERS,,,1.0.0,,continuous,gram_per_day,,,,Inake of potatoes and other tubers,,,,, +GenR,core,p02,VEGETABLES,,,1.0.0,,continuous,gram_per_day,,,,Intake of vegetables,,,,, +GenR,core,p03,LEGUMES,,,1.0.0,,continuous,gram_per_day,,,,Intake of legumes,,,,, +GenR,core,p04_01,fruit,,,1.0.0,,continuous,gram_per_day,,,,Intake of fruits,,,,, +GenR,core,p04_02,"noten, zaden, notenspread",,,1.0.0,,continuous,gram_per_day,,,,"Intake of nuts, seeds and nutspread",,,,, +GenR,core,p04_03,gemengd fruit/noten,,,1.0.0,,continuous,gram_per_day,,,,Intake of fruit/nut mixture,,,,, +GenR,core,p06_05,"zoutjes, toast",,,1.0.0,,continuous,gram_per_day,,,,Intake of salty snacks and toast,,,,, +GenR,core,p07,MEAT AND MEAT PRODUCTS,,,1.0.0,,continuous,gram_per_day,,,,Intake of meat and meat products,,,,, +GenR,core,p08_01,vis mager < 2,,,1.0.0,,continuous,gram_per_day,,,,Intake of lean fish,,,,, +GenR,core,p11_01,"suiker , honing, jam",,,1.0.0,,continuous,gram_per_day,,,,"Intake of sugar, honey and jam",,,,, +GenR,core,p11_02,"chocola,candybars,hagelslag",,,1.0.0,,continuous,gram_per_day,,,,"Intake of chocolate, candybars and chocolate sprinkles",,,,, +GenR,core,p11_03,zoetwaren (zonder chocola),,,1.0.0,,continuous,gram_per_day,,,,Intake of confectionery (excluding chocolate),,,,, +GenR,core,p11_04,siropen en stroop,,,1.0.0,,continuous,gram_per_day,,,,Intake of syrups,,,,, +GenR,core,p11_05,ijs,,,1.0.0,,continuous,gram_per_day,,,,Intake of icecream,,,,, +GenR,core,p12,CAKES,,,1.0.0,,continuous,gram_per_day,,,,"Intake of cakes, cookies, biscuit",,,,, +GenR,core,p17_02_01,ARTIFICIAL SWEETENERS,,,1.0.0,,continuous,gram_per_day,,,,Intake of artificial sweeteners,,,,, +GenR,core,parentd,Parent died (logistic system 27092018),,,1.0.0,,categorical,,,,,parental death according to logistical tracking system used for contacting participants,,,,, +GenR,core,percprod,Percentile score based on norms,,,1.0.0,,continuous,,,,,Percentile score MacArthur Productive Vocabulary,,,,, +GenR,core,pet,"pet exposure prenatal, y/n",,,1.0.0,,categorical,,,,,"Pet (cat, dog or bird) in the home during pregnancy. If either of cat, dog or bird was answered with yes, pet would be 1. Only if all three would be answered with no, pet would be 0.",,,,, +GenR,core,pro_ASD,weighted complete sumscore of asd in SRS scale,,,1.0.0,,continuous,,,,,Prorated score of SRS sumscore,,,,, +GenR,core,pro_fm12,prorated score fine motor of Infant/Child Development Inventory measured at 12 months,,,1.0.0,,continuous,,,,,Prorated score fine motor at 12 months,,,,, +GenR,core,pro_fm18,prorated score fine motor of Child Development Inventory measured at 18 months,,,1.0.0,,continuous,,,,,Prorated score fine motor at 18 months,,,,, +GenR,core,pro_fm24,prorated score fine motor of Child Development Inventory measured at 24 months,,,1.0.0,,continuous,,,,,Prorated score fine motor at 24 months,,,,, +GenR,core,pro_fm6,prorated score fine motor of Infant/Child Development Inventory measured at 6 months,,,1.0.0,,continuous,,,,,Prorated score fine motor at 6 months,,,,, +GenR,core,pro_gm12,prorated score gross motor of Infant/Child Development Inventory measured at 12 months,,,1.0.0,,continuous,,,,,Prorated score gross motor at 12 months,,,,, +GenR,core,pro_gm18,prorated score gross motor of Child Development Inventory measured at 18 months,,,1.0.0,,continuous,,,,,Prorated score gross motor at 18 months,,,,, +GenR,core,pro_gm24,prorated score gross motor of Child Development Inventory measured at 24 months,,,1.0.0,,continuous,,,,,Prorated score gross motor at 24 months,,,,, +GenR,core,pro_gm6,prorated score gross motor of Infant/Child Development Inventory measured at 6 months,,,1.0.0,,continuous,,,,,Prorated score gross motor at 6 months,,,,, +GenR,core,prodvoc,Sumscore Productive Vocabulary,,,1.0.0,,continuous,,,,,Sum score of language vocabulary production score,,,,, +GenR,core,rankpregnancy,Rank of birthChild by MOTHER,,,1.0.0,,continuous,,,,,Indicates the number of pregnancy within mother for each pregnancy included in the cohort,,,,, +GenR,core,rash_1y,"itchy rash age 1 year (7-12m), y/n",,,1.0.0,,categorical,,,,,Itchy rash in last 6 months? (0= no; 1= yes),,,,, +GenR,core,rash_2y,"itchy rash age 2 years (13-24m), y/n",,,1.0.0,,categorical,,,,,Itchy rash in last 12 months? (0= no; 1= yes),,,,, +GenR,core,rash_4y,"itchy rash age 4 years (37-48m), y/n",,,1.0.0,,categorical,,,,,Itchy rash that came and went during the last year,,,,, +GenR,core,c1100101,GR1001 C11-1 Period with fever_past 3 months (c1100101),,,1.0.0,,categorical,,,,,Variable indicates whether the participant had a period with fever (temp>38o) in the past 3 months.,,,,, +GenR,core,cat,"cat prenatal no, yes",,,1.0.0,,categorical,,,,,Cat in the home during pregnancy,,,,, +GenR,core,cbcl_ext,raw externalizing sumscore scale complete,,,1.0.0,,continuous,,,,,Sumscore of externalizing symptoms reported by mothers,,,,, +GenR,core,cbcl_ext_36,raw sumscore externalizing scale_3 yrs_mother report complete,,,1.0.0,,continuous,,,,,Sumscore of externalizing symptoms reported by mothers,,,,, +GenR,core,cbcl_ext_36m_ai,average item scale externalizing 36 months,,,1.0.0,,continuous,,,,,average item score of subcale externalizing problems,,,,, +GenR,core,cbcl_ext_5,raw sumscore externalizing scale_5 yrs report scale complete,,,1.0.0,,continuous,,,,,Sumscore of externalizing symptoms reported by mothers,,,,, +GenR,core,cbcl_ext_5_ai,average item scale externalizing 5 years,,,1.0.0,,continuous,,,,,average item score of subcale externalizing problems,,,,, +GenR,core,cbcl_ext_9m,raw sumscore externalizing scale_9 yrs mother report scale complete,,,1.0.0,,continuous,,,,,Sumscore of externalizing symptoms reported by mothers,,,,, +GenR,core,cbcl_ext_9m_ai,average item scale externalizing 9 years,,,1.0.0,,continuous,,,,,average item score of subcale externalizing problems,,,,, +GenR,core,cbcl_ext_ai,average item scale externalizing 18 months,,,1.0.0,,continuous,,,,,average item score of subcale externalizing problems,,,,, +GenR,core,cbcl_in_ai,average item scale internalizing 18 months,,,1.0.0,,continuous,,,,,average item score of subcale internalizing problems,,,,, +GenR,core,cbcl_int_36,raw sumscore internalizing scale _3 years mother complete,,,1.0.0,,continuous,,,,,Sumscore of internalizing symptoms reported by mothers,,,,, +GenR,core,cbcl_int_36m_ai,average item scale internalizing 36 months,,,1.0.0,,continuous,,,,,average item score of subcale internalizing problems,,,,, +GenR,core,cbcl_int_5,raw sumscore internalizing scale_5 yrs report - scale complete,,,1.0.0,,continuous,,,,,Sumscore of internalizing symptoms reported by mothers,,,,, +GenR,core,cbcl_int_5_ai,average item scale internalizing 5 years,,,1.0.0,,continuous,,,,,average item score of subcale internalizing problems,,,,, +GenR,core,cbcl_int_9m,raw sumscore internalizing scale_9 yrs mother report scale complete,,,1.0.0,,continuous,,,,,Sumscore of internalizing symptoms reported by mothers,,,,, +GenR,core,cbcl_int_9m_ai,average item scale internalizing 9 years,,,1.0.0,,continuous,,,,,average item score of subcale internalizing problems,,,,, +GenR,core,cbcl_int_ai,average item scale internalizing 18 months,,,1.0.0,,continuous,,,,,average item score of subcale internalizing problems,,,,, +GenR,core,childagedied,age when child died,,,1.0.0,,continuous,year,,,,age when child died,,,,, +GenR,core,childdied,childdied,,,1.0.0,,categorical,,,,,Indicates whether the child died,,,,, +GenR,core,congenital_malformation,definitief any congenital malformation? cleaned Sarah Timmermans (CB plus LNR),,,1.0.0,,categorical,,,,,Any congenital malformation,,,,, +GenR,core,d0100105,GR1005 D1-1 Which description most apllies to you at this moment (d0100105),,,1.0.0,,categorical,,,,,Indicates occupational status of the mother,,,,, +GenR,core,d0200103,GR1003 d2-1 have you ever suffered from depression? (d0200103),,,1.0.0,,categorical,,,,,This indicates wether pregnant women ever suffered from depression using a vignette,,,,, +GenR,core,d0900103,GR1003 D9-1 have you ever suffered from anxiety? (d0900103),,,1.0.0,,categorical,,,,,This indicates wether pregnant women ever suffered from anxiety using a vignette,,,,, +GenR,core,d091003,GR1003 D9-1 have you ever suffered from anxiety? (d0900103),,,1.0.0,,categorical,,,,,This indicates wether pregnant women ever suffered from anxiety using a vignette,,,,, +GenR,core,d1100101,GR1001 D11-1 Do you have diabetes (d1100101),,,1.0.0,,categorical,,,,,Indicates whether a participant has diabetes at the time of the questionnaire. (Note: this may include cases of gestational diabetes in the index pregnancy).,,,,, +GenR,core,d1500103,GR1003 D15-1 have you ever suffered from psychosis? (d1500103),,,1.0.0,,categorical,,,,,This indicates wether pregnant women ever suffered from psychosis using a vignette,,,,, +GenR,core,Sys3_5child,F@5 BLOODPRESSURE – child: 3rd Systole (mmHg) (Sys3_5child),,,1.0.0,,continuous,mmHg,,,,Bloodpressure measured in sitting positing at right upper arm at reseach clinics,,,,, +GenR,core,food9y,"Current doctor-diagnosed food allergy (cashew, peanut) at age 9 years, y/n",,,1.0.0,,categorical,,,,,Allergy to peanut or cashew diagnosed by a physician,,,,, +GenR,core,fvc,Forced Vital Capacity (L),,,1.0.0,,continuous,,,,,Forced Vital Capacity (L),,,,, +GenR,core,g0100101,GR1001 G1-1 Did he smoke_biological father (g0100101),,,1.0.0,,categorical,,,,,Paternal smoking during pregnancy,,,,, +GenR,core,g0200104,GR1004 G2-1 depression ever (g0200104),,,1.0.0,,categorical,,,,,This indicates wether partners ever suffered from depression using a vignette,,,,, +GenR,core,g0900104,GR1004 G9-1 anxiety ever (g0900104),,,1.0.0,,categorical,,,,,This indicates wether partners ever suffered from anxiety using a vignette,,,,, +GenR,core,g1500104,GR1004 G15-1 ever psychosis (g1500104),,,1.0.0,,categorical,,,,,This indicates wether partners ever suffered from psychosis using a vignette,,,,, +GenR,core,gRRp,gRRp,,,1.0.0,,continuous,week,,,,gRRp,,,,, +GenR,core,gblmoe_clean,Birth country mother at enrolment update after focus@5,,,1.0.0,,categorical,,,,,This indicates the birth country of mothers: cleaned with less categories,,,,, +GenR,core,height_CB23t35m,Height child 23-35 months,,,1.0.0,,continuous,cm,,,,Height child 23-35 months,,,,, +GenR,core,gblvad_clean,country of birth father according to questionnaire GR-1001 update after focus@5,,,1.0.0,,categorical,,,,,This indicates the birth country of fathers: cleaned with less categories,,,,, +GenR,core,gebdd,Gebdatum_kind,,,1.0.0,,continuous,,,,,Date of birth,,,,, +GenR,core,gestage_plasma_g1,Gestage Plasma Mother <18 weeks,,,1.0.0,,continuous,week,,,,Gestage Plasma Mother <18 weeks,,,,, +GenR,core,gsi,Global Severity Index (GSI),,,1.0.0,,continuous,,,,,"At 20 weeks of pregnancy, the Brief Symptom Inventory (BSI) was used, the BSI consists of 53 items covering nine symptom dimensions: Somatization, Obsession-Compulsion, Interpersonal Sensitivity, Depression, Anxiety, Hostility, Phobic anxiety, Paranoid ideation and Psychoticism; and three global indices of distress: Global Severity Index, Positive Symptom Distress Index, and Positive Symptom Total. The global indices measure current or past level of symptomatology, intensity of symptoms, and number of reported symptoms, respectively. +According to the manual of the BSI, a validated cut-offs were used to determine clinically relevant symptoms vs. no symptoms in the global scale and subscales. These were not the same for women and men, thus sex-specific cut-offs were used.",,,,, +GenR,core,gsi_m2,"No label, but should be 'Global severity Index at 2 months""",,,1.0.0,,continuous,,,,,"At 20 months postnatal, the Brief Symptom Inventory (BSI) was used, the BSI consists of 53 items covering nine symptom dimensions: Somatization, Obsession-Compulsion, Interpersonal Sensitivity, Depression, Anxiety, Hostility, Phobic anxiety, Paranoid ideation and Psychoticism; and three global indices of distress: Global Severity Index, Positive Symptom Distress Index, and Positive Symptom Total. The global indices measure current or past level of symptomatology, intensity of symptoms, and number of reported symptoms, respectively. +According to the manual of the BSI, a validated cut-offs were used to determine clinically relevant symptoms vs. no symptoms in the global scale and subscales. These were not the same for women and men, thus sex-specific cut-offs were used.",,,,, +GenR,core,d2000101,Do you have chronic eczema?,,,1.0.0,,categorical,,,,,Maternal eczema,,,,, +GenR,core,d2800101,GR1001 D28-1 Have you ever had asthma (d2800101),,,1.0.0,,categorical,,,,,Indicates whether the mother has asthma,,,,, +GenR,core,d2800201,GR1001 D28-2 Was asthma confirmed by a doctor (d2800201),,,1.0.0,,categorical,,,,,Indicates whether asthma (if question on asthma is yes) was confirmed by a doctor,,,,, +GenR,core,d2900101,GR1001 D29-1 Are you allergic to housedust (d2900101),,,1.0.0,,categorical,,,,,House dust allergy of the mother,,,,, +GenR,core,ecz9y,Physician attended eczema in the past 12 months,,,1.0.0,,categorical,,,,,Doctor attended eczema in the past 12 months,,,,, +GenR,core,eiwit_en,eiwit totaal (en%),,,1.0.0,,continuous,percent,,,,Total protein intake - energy %,,,,, +GenR,core,d2900201,GR1001 D29-2 Was housedust allergy confirmed by a doctor (d2900201),,,1.0.0,,categorical,,,,,Diagnosis of house dust allergy of the mother by a doctor,,,,, +GenR,core,d3000101,GR1001 D30-1 Are you allergic to the housedust mite (d3000101),,,1.0.0,,categorical,,,,,House dust mite allergy of the mother,,,,, +GenR,core,ethn1_p,best estimate is equal to ethn1_p,,,1.0.0,,categorical,,,,,(Ethnic) background of mother based on country of origin (of parents),,,,, +GenR,core,d3000201,GR1001 D30-2 Was housedust mite allergy confirmed by a doctor (d3000201),,,1.0.0,,categorical,,,,,Diagnosis of house dust mite allergy of the mother by a doctor,,,,, +GenR,core,d3100101,GR1001 D31-1 Do you have any kind of nose allergy such as hay fever (d3100101),,,1.0.0,,categorical,,,,,"Nose allergy, such as hay fever of the mother",,,,, +GenR,core,d3100201,GR1001 D31-2 Was nose allergy confirmed by a doctor (d3100201),,,1.0.0,,categorical,,,,,"Diagnosis of nose allergy, such as hay fever, of the mother by a doctor",,,,, +GenR,core,dep_M108_m,Depression Mother 108 Months,,,1.0.0,,continuous,,,,,"At 9-10 years, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,dep_M108_p,Depression Partner 108 Months,,,1.0.0,,continuous,,,,,"At 9-10 years, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,dep_M36_m,Depression Mother 36 Months,,,1.0.0,,continuous,,,,,"At 36 months, an abbreviated version of the BSI was assesed in mothers and fathers (only 4 subscales were assessed); and thus no global score was available. This shortened version only consisted of depression, anxiety, hostility and interpersonanl sensitivity.",,,,, +GenR,core,vet_en,vet totaal (en%),,,1.0.0,,continuous,percent,,,,Total fat intake - energy %,,,,, +GenR,core,std_fm12,Standardized 100 mean and 15 std fine motor 12 months,,,1.0.0,,continuous,,,,,Standardized Z score fine motor at 12 months,,,,, +GenR,core,std_fm18,Standardized 100 mean and 15 std fine motor 18 months,,,1.0.0,,continuous,,,,,Standardized Z score fine motor at 18 months,,,,, +GenR,core,raw_ADHD,raw sumscore of ADHD in conners scale,,,1.0.0,,continuous,,,,,raw sumscore of ADHD in conners scale,,,,, +GenR,core,raw_asd,raw complete sumscore of asd in SRS scale,,,1.0.0,,continuous,,,,,Raw score of sumscore of SRS,,,,, +GenR,core,raw_fm12,total score fine motor of Infant/Child Development Inventory measured at 12 months,,,1.0.0,,continuous,,,,,Raw sumscore fine motor at 12 months,,,,, +GenR,core,raw_fm18,total score fine motor of Child Development Inventory measured at 18 months,,,1.0.0,,continuous,,,,,Raw sumscore fine motor at 18 months,,,,, +GenR,core,raw_fm24,total score fine motor of Child Development Inventory measured at 24 months,,,1.0.0,,continuous,,,,,Raw sumscore fine motor at 24 months,,,,, +GenR,core,raw_fm6,total score fine motor of Infant/Child Development Inventory measured at 6 months,,,1.0.0,,continuous,,,,,Raw sumscore fine motor at 6 months,,,,, +GenR,core,raw_gm12,total score gross motor of Infant/Child Development Inventory measured at 12 months,,,1.0.0,,continuous,,,,,Raw sumscore gross motor at 12 months,,,,, +GenR,core,raw_gm18,total score gross motor of Child Development Inventory measured at 18 months,,,1.0.0,,continuous,,,,,Raw sumscore gross motor at 18 months,,,,, +GenR,core,raw_gm24,total score gross motor of Child Development Inventory measured at 24 months,,,1.0.0,,continuous,,,,,Raw sumscore gross motor at 24 months,,,,, +GenR,core,std_fm24,Standardized 100 mean and 15 std fine motor 24 months,,,1.0.0,,continuous,,,,,Standardized Z score fine motor at 24 months,,,,, +GenR,core,std_fm6,Standardized 100 mean and 15 std fine motor 6 months,,,1.0.0,,continuous,,,,,Standardized Z score fine motor at 6 months,,,,, +GenR,core,std_gm12,Standardized 100 mean and 15 std gross motor 12 months,,,1.0.0,,continuous,,,,,Standardized Z score gross motor at 12 months,,,,, +GenR,core,std_gm18,Standardized 100 mean and 15 std gross motor 18 months,,,1.0.0,,continuous,,,,,Standardized Z score gross motor at 18 months,,,,, +GenR,core,std_gm24,Standardized 100 mean and 15 std gross motor 24 months,,,1.0.0,,continuous,,,,,Standardized Z score gross motor at 24 months,,,,, +GenR,core,std_gm6,Standardized 100 mean and 15 std gross motor 6 months,,,1.0.0,,continuous,,,,,Standardized Z score gross motor at 6 months,,,,, +GenR,core,stdprodvoc,Standardized score prodvoc,,,1.0.0,,continuous,,,,,Standardized score of sumscore,,,,, +GenR,core,sum_ADHD,weighted sumscore of ADHD in conners scale,,,1.0.0,,continuous,,,,,weighted sumscore of ADHD in conners scale,,,,, +GenR,core,sum_ext,weighted score externalizing scale,,,1.0.0,,continuous,,,,,Weighted sumscore of externalizing symptoms reported by mothers,,,,, +GenR,core,sum_ext_36m,weighted sumscore externalizing scale_3 yrs_mother report,,,1.0.0,,continuous,,,,,Weighted sumscore of externalizing symptoms reported by mothers,,,,, +GenR,core,sum_ext_5,weighted sumscore externalizing problems_5 yrs report,,,1.0.0,,continuous,,,,,Weighted sumscore of externalizing symptoms reported by mothers,,,,, +GenR,core,sum_ext_9m,weighted sumscore externalizing scale_9 yrs mother report,,,1.0.0,,continuous,,,,,Weighted sumscore of externalizing symptoms reported by mothers,,,,, +GenR,core,sum_int,weighted score internalizing scale,,,1.0.0,,continuous,,,,,Weighted sumscore of internalizing symptoms reported by mothers,,,,, +GenR,core,sum_int_36m,weighted sumscore internalizing scale_3 yrs_mother report,,,1.0.0,,continuous,,,,,Weighted sumscore of internalizing symptoms reported by mothers,,,,, +GenR,core,sum_int_5,weighted sumscore internalzing problems_5 yrs report,,,1.0.0,,continuous,,,,,Weighted sumscore of internalizing symptoms reported by mothers,,,,, +GenR,core,sum_int_9m,weighted sumscore internalizing scale_9 yrs mother report,,,1.0.0,,continuous,,,,,Weighted sumscore of internalizing symptoms reported by mothers,,,,, +GenR,core,sun_int_5,weighted sumscore internalzing problems_5 yrs report,,,1.0.0,,continuous,,,,,Weighted sumscore of internalizing symptoms reported by mothers,,,,, +GenR,core,tei_item_sum,Total protein intake/day (g),,,1.0.0,,continuous,gram_per_day,,,,Total protein intake,,,,, +GenR,core,tkh_item_sum,Total carbohydrates intake/day (g),,,1.0.0,,continuous,gram_per_day,,,,Total carbohydrate intake,,,,, +GenR,core,tv_item_sum,Total protein intake/day (g),,,1.0.0,,continuous,gram_per_day,,,,Total fat intake,,,,, +GenR,core,versie,Voeding - versienummer vragenlijst,,,1.0.0,,categorical,,,,,Indicates which version of the FFQ was received,,,,, +GenR,core,vet,vet totaal (g),,,1.0.0,,continuous,gram_per_day,,,,Total fat intake,,,,, +GenR,core,vet_mov,meerv. onverz. vet (g),,,1.0.0,,continuous,gram_per_day,,,,Polyunsaturated fat inake,,,,, +GenR,core,vet_vv,verzadigd vet (g),,,1.0.0,,continuous,gram_per_day,,,,Saturated fat intake,,,,, +GenR,core,vituse,GR1001 E2-1 Have you taken vitamins or compounds_past 6 months (cleaned e0200101=vituse),,,1.0.0,,categorical,,,,,Intake of vitamins or compounds,,,,, +GenR,core,vvz_item_sum,Total saturated fat intake/day (g),,,1.0.0,,continuous,gram_per_day,,,,Saturated fat intake,,,,, +GenR,core,weight5child,F@5 GROWTH - child: weight (kg) (weight5child),,,1.0.0,,continuous,kg,,,,Weight child weight 5 years,,,,, +GenR,core,weight_CB02m,weight_CB02m: Weight child 2 months,,,1.0.0,,continuous,gram,,,,Weight child 2 months,,,,, +GenR,core,weight_CB03m,Weight child 3 months,,,1.0.0,,continuous,gram,,,,Weight child 3 months,,,,, +GenR,core,weight_CB04m,Weight child 4 months,,,1.0.0,,continuous,gram,,,,Weight child 4 months,,,,, +GenR,core,weight_CB05t10m,Weight child 5-10 months,,,1.0.0,,continuous,gram,,,,Weight child 5-10 months,,,,, +GenR,core,weight_CB0t2m,weight_CB0t2m: Weight child 0-2 months,,,1.0.0,,continuous,gram,,,,Weight child 0-2 months,,,,, +GenR,core,weight_CB10t13m,Weight child 10-13 months,,,1.0.0,,continuous,gram,,,,Weight child 10-13 months,,,,, +GenR,core,weight_CB13t17m,Weight child 13-17 months,,,1.0.0,,continuous,gram,,,,Weight child 13-17 months,,,,, +GenR,core,weight_CB17t23m,Weight child 17-23 months,,,1.0.0,,continuous,gram,,,,Weight child 17-23 months,,,,, +GenR,core,weight_CB23t29m,Weight child 23-29 months,,,1.0.0,,continuous,gram,,,,Weight child 23-29 months,,,,, +GenR,core,weight_CB23t35m,Weight child 23-35 months,,,1.0.0,,continuous,gram,,,,Weight child 23-35 months,,,,, +GenR,core,weight_CB29t35m,Weight child 29-35 months,,,1.0.0,,continuous,gram,,,,Weight child 29-35 months,,,,, +GenR,core,weight_CB35t44m,Weight child 35-44 months,,,1.0.0,,continuous,gram,,,,Weight child 35-44 months,,,,, +GenR,core,weight_CB44t56m,Weight child 44-56 months,,,1.0.0,,continuous,gram,,,,Weight child 44-56 months,,,,, +GenR,core,weight_p,weight_p,,,1.0.0,,continuous,kg,,,,Weight of partner,,,,, +GenR,core,weightchild9,F9 GROWTH - child: weight (kg) (weightchild9),,,1.0.0,,continuous,kg,,,,Weight child 9 years,,,,, +GenR,core,werkmoed,GR1005 D3-6 Workstatus moeder: D1 complemented with text field (werkmoed),,,1.0.0,,categorical,,,,,Workstatus mother,,,,, +GenR,core,whe_1y,Has your child ever suffered from wheezing/whistling noise in the chest?,,,1.0.0,,categorical,,,,,Wheezing in the first year of life,,,,, +GenR,core,whe_2y,Has your child had wheezing in the past 12 months?,,,1.0.0,,categorical,,,,,Wheezing in the past 12 months at age 2 years,,,,, +GenR,core,whe_3y,Has your child had wheezing in the past 12 months?,,,1.0.0,,categorical,,,,,Wheezing in the past 12 months at age 3 years,,,,, +GenR,core,whe_4y,Has your child had wheezing in the past 12 months?,,,1.0.0,,categorical,,,,,Wheezing in the past 12 months at age 4 years,,,,, +GenR,core,whe_5y,Has your child had wheezing in the past 12 months?,,,1.0.0,,categorical,,,,,Wheezing in the past 12 months at age 5-6 years,,,,, +GenR,core,whe_9y,Wheezing in the chest in the last 12 months at age 9 years,,,1.0.0,,categorical,,,,,Wheezing in the chest in the last 12 months at age 9 years,,,,, +GenR,core,yob_fa,Year of birth father,,,1.0.0,,continuous,year,,,,Year of birth of the father in four digits,,,,, +GenR,core,yob_mo,Year of birth mother,,,1.0.0,,continuous,year,,,,Year of birth of the mother in four digits,,,,, +GenR,core,rash_5y,"itchy rash age 5 years (49-60m), y/n",,,1.0.0,,categorical,,,,,Intermittent itchy skin rash in the past 12 months?,,,,, +GenR,core,hc_CB23t29m,Head Circumference child 23-29 months,,,1.0.0,,continuous,cm,,,,Head Circumference child 23-29 months,,,,, +GenR,core,hc_CB23t35m,Head Circumference child 23-35 months,,,1.0.0,,continuous,cm,,,,Head Circumference child 23-35 months,,,,, +GenR,core,rash_6m,"itchy rash age 6 months (0-6m), y/n",,,1.0.0,,categorical,,,,,Ever (i.e. last 6 months) itchy rash? (0= no; 1= yes),,,,, +GenR,core,rashloc_1y,"Itchy rash on inner elbows, back of knees, upper side of ankles, nappy area, neck or around eyes/ears",,,1.0.0,,categorical,,,,,"On what areas did this itchy rash ever appear? (inner elbow, back of the knee, upper side of the ankles, in the nappy area, on the neck, round the eyes or ears, on the hairy part of the head, other or none of these areas)",,,,, +GenR,core,rashloc_2y,"Itchy rash on inner elbows, back of knees, upper side of ankles, nappy area, neck or around eyes/ears",,,1.0.0,,categorical,,,,,"On what areas did this itchy rash appear? (inner elbow, back of the knee, upper side of the ankles, in the nappy area, on the neck, round the eyes or ears, on the hairy part of the head, other or none of these areas)",,,,, +GenR,core,natrium,natrium (mg),,,1.0.0,,continuous,milligram_per_day,,,,Sodium intake,,,,, +GenR,core,zfef75,"Forced Expiratory Flow after exhaling 75% of FVC, z-score according to GLI reference criteria",,,1.0.0,,continuous,,,,,"Forced Expiratory Flow after exhaling 75% of FVC, z-score according to GLI reference criteria",,,,, +GenR,core,zfev,"Forced Expiratotory Volume in the first second, z-score according to GLI reference criteria",,,1.0.0,,continuous,,,,,"Forced Expiratotory Volume in the first second, z-score according to GLI reference criteria",,,,, +GenR,core,zfevfvc,"Forced Expiratotory Volume in the first second/Forced Vital Capacity, z-score according to GLI reference data",,,1.0.0,,continuous,,,,,"Forced Expiratotory Volume in the first second/Forced Vital Capacity, z-score according to GLI reference data",,,,, +GenR,core,zfvc,"Forced Vital Capacity, z-score according to GLI reference criteria",,,1.0.0,,continuous,,,,,"Forced Vital Capacity, z-score according to GLI reference criteria",,,,, +GenR,core,raw_gm6,total score gross motor of Infant/Child Development Inventory measured at 6 months,,,1.0.0,,continuous,,,,,Raw sumscore gross motor at 6 months,,,,, +GenR,core,repro_LF_9y,Reproducibility according to ATS/ERS guidelines,,,1.0.0,,categorical,,,,,Reproducibility according to ATS/ERS guidelines,,,,, +GenR,core,seizoen_inv_GR1067,Indicates the season of filling the 4-yo questionnaire,,,1.0.0,,categorical,,,,,Indicates the season of filling the 4-yo questionnaire,,,,, +GenR,core,smk1_original,smoking 1st trimester complete,,,1.0.0,,categorical,,,,,Indicates the number of cigarettes the mother smoked per day during the first trimester,,,,, +GenR,core,smk2_original,smoking 2nd trimester complete,,,1.0.0,,categorical,,,,,Indicates the number of cigarettes the mother smoked per day during the second trimester,,,,, +GenR,core,smk3_original,smoking 3rd trimester complete,,,1.0.0,,categorical,,,,,Indicates the number of cigarettes the mother smoked per day during the third trimester,,,,, +GenR,core,srs_weighted,srs weighted total score 25% missings allowed,,,1.0.0,,continuous,,,,,this is the same as the average item scale,,,,, \ No newline at end of file