data=read.delim("exer4_75.dat")

str(data)
## 'data.frame':    10 obs. of  2 variables:
##  $ USAGE  : int  13 10 20 28 32 17 24 31 40 38
##  $ EXPENSE: num  17 22 30 37 47 30.5 32.5 39 51.5 40
plot(data,
     pch=24,
     cex=1.5,
     col="violetred",
     bg="blue",
     xlab="Weekly Usage in Hours",
     ylab="Annual Expense",
     main="Maintenance Expenses vs Usage")

plot of chunk unnamed-chunk-1