find q1, q3 and iqr in r

# Sample data
data <- c(15, 20, 22, 25, 30, 35, 40, 45, 50)

# Calculate quartiles
q1 <- quantile(data, 0.25)
q3 <- quantile(data, 0.75)

# Calculate interquartile range (IQR)
iqr <- IQR(data)