Mini Project Q1

# Load the built-in dataset
data(cars)

# Display the first few rows (optional)
head(cars)

##   speed dist
## 1     4    2
## 2     4   10
## 3     7    4
## 4     7   22
## 5     8   16
## 6     9   10

# Calculate the median of the first column
median_value <- median(cars[, 1])

# Print the median value
print(median_value)

## [1] 15

## [1] 15