data_frame_create.Rmd

```{r}
#Male risk
male_point=c(-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38)
male_risk=c('<1','<1','<1','<1',1.1,1.4,1.6,1.9,2.3,2.8,3.3,3.9,4.7,5.6,6.7,7.9,9.4,11.2,13.2,15.6,18.4,21.6,25.3,29.4,'>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30')
male_heart_age=c('<30','<30','<30','<30','<30','<30',30,32,34,36,38,40,42,45,48,51,54,57,60,64,68,72,76,'>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80')
male_risk=data.frame(male_point,male_risk,male_heart_age)
write.csv(male_risk, file = "male_risk.csv")

#Female risk
female_point=c(-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38)
female_risk=c('<1','<1','<1','<1','<1',1,1.2,1.5,1.7,2,2.4,2.8,3.3,3.9,4.5,5.3,6.3,7.3,8.6,10,11.7,13.7,15.9,18.5,21.5,24.8,28.5,'>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30')
female_heart_age=c('<30','<30','<30','<30','30','30','30',31,34,36,39,42,45,48,51,55,59,64,68,73,79,'>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80')
female_risk=data.frame(female_point,female_risk,female_heart_age)
write.csv(female_risk, file = "female_risk.csv")

#Male simple risk
male_simple_point=c(-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38)
male_simple_risk=c('<1','<1',1.1,1.4,1.6,1.9,2.3,2.8,3.3,4,4.7,5.6,6.7,8,9.5,11.2,13.3,15.7,18.5,21.7,25.4,29.6,'>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30')
male_simple_heart_age=c('<30','<30','<30','<30','<30',31,33,35,37,39,41,44,46,49,52,55,58,62,65,69,73,79,'>80','80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80')
male_simple_risk=data.frame(male_simple_point,male_simple_risk,male_simple_heart_age)
write.csv(male_simple_risk, file = "male_simple_risk.csv")

#Female simple risk
female_simple_point=c(-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38)
female_simple_risk=c('<1','<1','<1','<1','<1',1,1.1,1.5,1.8,2.1,2.5,2.9,3.4,3.9,4.6,5.4,6.3,7.4,8.6,10,11.6,13.5,15.6,18.1,20.9,24,27.5,'>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30','>30')
female_simple_heart_age=c('<30','<30','<30','<30','30','30',32,34,36,38,41,43,46,48,51,54,58,61,65,69,73,77,'>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80','>80')
female_simple_risk=data.frame(female_simple_point,female_simple_risk,female_simple_heart_age)
write.csv(female_simple_risk, file = "female_simple_risk.csv")
```