> bill = scan() 1: 46 33 39 37 46 30 48 32 49 35 30 48 13: Read 12 items > sum(bill) [1] 473 > max(bill) [1] 49 > min(bill) [1] 30 > sum(bill > 40) [1] 5 > sum(bill > 40)/length(bill) [1] 0.4167