corval<-cor(airquality$Solar.R,airquality$Temp,use="complete.obs")
coord<-locator(n=1)
text(coord,expression("Correlation=", corval))
corval<-cor(airquality$Solar.R,airquality$Temp,corval<-cor(airquality$Solar.R,airquality$Temp,use="complete.obs")
coord<-locator(n=1)
text(coord,expression("Correlation=", corval))
corval<-cor(airquality$Solar.R,airquality$Temp,