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

str(data)
## 'data.frame':    24 obs. of  2 variables:
##  $ DISTANCE: num  0.032 0.034 0.214 0.263 0.275 0.275 0.45 0.5 0.5 0.63 ...
##  $ VELOCITY: int  170 290 -130 -70 -185 -220 200 290 270 200 ...
plot(data,
    pch=7,
    cex=1.5,
    col="green",
    bg="red",
    xlab="Distance",
    ylab="Recession Velocity",
    main="Relationship Between Distance and Radial Velocity")

plot of chunk unnamed-chunk-1