Hello! My name is Sukanya Chatterjee. I’m a Master’s student in Information Systems at the University of Cincinnati and a Teaching Assistant for IS 2080. I previously worked at Accenture on SAP (CRM, ABAP, Fiori/UI5, IS‑U). I also run a food‑blogging channel and enjoy photography.
Beginner; learning tidyverse, visualization, and R Markdown.
We calculate the Body Mass Index (BMI) for a given weight and
height.
Here we assume: weight = 150 lbs, height = 68 inches.
weight <- 150
height <- 68
BMI <- (weight * 703) / (height^2)
BMI
## [1] 22.80493
weights <- seq(100, 200, by=10)
BMIs <- (weights * 703) / (height^2)
plot(weights, BMIs, type="b", col="blue", pch=19,
main="BMI across different weights",
xlab="Weight (lbs)", ylab="BMI")
abline(h=25, col="red", lty=2) # mark overweight threshold
We compare the cost per square inch of two pizzas:
- 12 inch diameter, $8
- 15 inch diameter, $12
diameter <- c(12, 15)
cost <- c(8, 12)
area <- pi * (diameter/2)^2
cost_per_sq_inch <- cost / area
cost_per_sq_inch
## [1] 0.07073553 0.06790611
barplot(cost_per_sq_inch, names.arg=diameter,
col="orange", main="Pizza Cost per Square Inch",
xlab="Diameter (inches)", ylab="Cost per sq inch")