BMI function

[marianortt]

rm(list=ls())    #clean all the memory

#define variables according to exercice 

weight_a=80
height_a=1.6
weight_b=120
height_b=2.1

#create a vector of w and h, including the previous 2 persons and one more
weight_all=c(weight_a,weight_b,95)
height_all=c(height_a,height_b,1.85)

#function bmi, w is weight, h is height, returns bmi
bmi <- function(w,h) {  
  return (w/h^2)
}

#create empty bmi vector then calculating for all
bmi_all=vector(mode="numeric", length = length(weight_all))
bmi_all=bmi(weight_all,height_all)

x=NULL

#I print the results
for(i in 1:length(weight_all)){
 writeLines(sprintf("The BMI of person %s is %s",i,round(bmi_all[i],2)))
}

[ernestguevarra]

@OxfordIHTM/class-2024 this is @marianortt script for BMI calculation including example of how to print text to accompany the BMI results using a function called sprintf which is a borrowed/ported function from C++.

Thanks for sharing this @marianortt! I made some edits to your post so that the code elements will show as code on the post and make it easier to read!