# brief exercise 1
203*0.453592
130/(5*12+4)^2*703
350*(1+0.007)^18

# brief exercise 2
inches<-6*12+2
210/inches^2*703
180/inches^2*703

# brief exercise 3
sum(1:100)
100*101/2
yob<-c(1952,1946,1979,1981)
2019-yob
pounds<-c(141,185,226,196)
inches<-c(68,72,70,72)
pounds/inches^2*703

# brief exercise 4
first<-c('Homer','Marge','Bart','Lisa','Maggie')
first<-sort(first)
first