Nothing
#body fat percentage calculation
BFPM=function(inputdata){
height<- inputdata[1]#in unit of cm
weight <- inputdata[2]#in unit of kg
age <- inputdata[3]# in ubit of year
h <- 0.01*height
BMI=(weight/h^2)
#BFI_F= (1.20 * BMI) + (0.23 * age) - 5.4
BFI_M= (1.20 * BMI) + (0.23 * age) - 16.2
#return(paste0(" The Body Fat Percentage (BFP) for Male is ",
#format(round(BFI_M, 2), nsmall = 2), " % ",
# " and for female is ", format(round(BFI_F, 2), nsmall = 2), " %. " ))
if(BFI_M <2) {
BFI_d= (1.20 * BMI) + (0.23 * age) - 16.2
return(paste0(" The Body Fat Percentage (BFP) is ",
format(round(BFI_d, 2), nsmall = 2), " % and You are extremely low fat level catagory." ))
}
else if(BFI_M >25) {
BFI_o=(1.20 * BMI) + (0.23 * age) - 16.2
return(paste0(" The Body Fat Percentage (BFP) is ",
format(round(BFI_o, 2), nsmall = 2), " % and You are Obese catagory."))
}
else if(BFI_M <=6 & BFI_M>=2 ) {
BFI_e= (1.20 * BMI) + (0.23 * age) - 16.2
return(paste0(" The Body Fat Percentage (BFP) is ",
format(round(BFI_e, 2), nsmall = 2), " % and You are essential catagory." ))
}
else if(BFI_M >= 18 & BFI_M<=24) {
BFI_av=(1.20 * BMI) + (0.23 * age) - 16.2
return(paste0(" The Body Fat Percentage (BFP) is " ,
format(round(BFI_av, 2), nsmall = 2), " % and You are average catagory."))
}
else #BFI_M = 6:17 case
BFI_Fit=(1.20 * BMI) + (0.23 * age) - 16.2
return(paste0(" You are fit. The Body Fat Percentage (BFP) is ",
format(round(BFI_Fit, 2), nsmall = 2), " % . If your BF are in range of 6-13%, you are atheletic. "))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.