qty <- c(12, 6, 2, 25)
rate <- c(60, 75, 140, 35)
amount <- qty * rate
sum(amount); mean(amount)
df <- data.frame(item = c("Notebook", "Pens", "Stapler", "Folder"), qty, rate, amount)
df[df$amount > 500, ]
str(df)