Emma Sun
Oct 5th, 2016
What is a shiny app?
library(shiny)
BMI<-function(weight,height) {weight/((height*0.01)^2)}
diagnostic_f<-function(weight,height){
BMI_value<- weight/((height*0.01)^2)
ifelse(BMI_value<18.5,"Underweight",
ifelse(BMI_value<25,"Normal Weight",
ifelse(BMI_value<30,"Overweight","Obesity")))
}