lm(Tip ~ TotBill) summary(lm(Tip ~ TotBill)) tip_rate <- 100*Tip/TotBill require(lattice) histogram(tip_rate)