x<- c(4.005547,13.04,2.954324,26.50254,1.375301,14.64869,17.83943,3.405359,48..53491,62.71041,4.558198,54.62683,3.131241,18.56799,1.795738,3.886167,11.42574,10.91832,1.651853)
y <- c(25500,21068,13552,4551,61521,3161,5947,24930,3019,12519,21719,10502,8282,14748,29823,.71,55427,13795,15366)


# Figure 1
plot(x,y,  main="",
xlab="CWS ", ylab="MAD ", pch=19) 



x<- c(3.29,7.35,3.38,3.99,3.41,2.55,2.08,1.79,1.68,3.41,2.02,1.42)
y <- c(11.05,12,12.98,13.42,14.14,14.79,15.36,17.76,18.45,18.64,19.67,23.12)

# Figure 2
plot(x,y,  main="",
xlab="CWS ", ylab="MAD Distance (cm) Ball from Target ", pch=19)