# Load necessary libraries
library(dplyr)

# Read the CSV file into a dataframe 'hdf'
hdf <- read.csv("C:/Users/ZWD1KOR/Downloads/cardio_train.csv", sep=';')

# Display the summary statistics for the column 'cholesterol'
summary(hdf$cholesterol)

# Assume the dataset has 'weight' in kg and 'height' in cm and create a new column 'BMI'
# BMI = weight (kg) / (height (m))^2
hdf <- hdf %>%
  mutate(BMI = weight / (height / 100)^2)

# Display the first few rows of the updated dataframe
head(hdf)