In PHP2560-Statistical-Programming-R/r-framingham: a grammer for framingham study based risk scores calculation

point_convert<-function(points){
if(gender==M & !is.na(bmi)){
table<-read.csv('male_simple_risk.csv')
risk=table[which(table$female_point == points),2]
heart_age=table[which(table$female_point == points),3]
} else if (gender==M & is.na(bmi)){
table<-read.csv('male_risk.csv')
risk=table[which(table$female_point == points),2]
heart_age=table[which(table$female_point == points),3] 
} else if (gender==F & !is.na(bmi)){
table<-read.csv('female_simple_risk.csv')
risk=table[which(table$female_point == points),2]
heart_age=table[which(table$female_point == points),3]  
} else if (gender==F & is.na(bmi)){
table<-read.csv('female_risk.csv')
risk=table[which(table$female_point == points),2]
heart_age=table[which(table$female_point == points),3]  
}
}

PHP2560-Statistical-Programming-R/r-framingham documentation built on May 23, 2019, 4:23 p.m.