Presentation1

David Asare Kumi
6th June 2019

Airquality Datasets

Summary
Analysis
Plots

Summary of Airquality Dataset

library(datasets)
data(airquality)
dim(airquality)

[1] 153   6

summary(airquality)

     Ozone           Solar.R           Wind             Temp      
 Min.   :  1.00   Min.   :  7.0   Min.   : 1.700   Min.   :56.00  
 1st Qu.: 18.00   1st Qu.:115.8   1st Qu.: 7.400   1st Qu.:72.00  
 Median : 31.50   Median :205.0   Median : 9.700   Median :79.00  
 Mean   : 42.13   Mean   :185.9   Mean   : 9.958   Mean   :77.88  
 3rd Qu.: 63.25   3rd Qu.:258.8   3rd Qu.:11.500   3rd Qu.:85.00  
 Max.   :168.00   Max.   :334.0   Max.   :20.700   Max.   :97.00  
 NA's   :37       NA's   :7                                       
     Month            Day      
 Min.   :5.000   Min.   : 1.0  
 1st Qu.:6.000   1st Qu.: 8.0  
 Median :7.000   Median :16.0  
 Mean   :6.993   Mean   :15.8  
 3rd Qu.:8.000   3rd Qu.:23.0  
 Max.   :9.000   Max.   :31.0

Plot1

hist(airquality$Temp,xlab="Temperature",ylab="Frequency",col="yellow")

plot of chunk unnamed-chunk-2

plot(density(airquality$Temp),lwd=2,lty=2,col="red")

plot of chunk unnamed-chunk-2

Plot2

plot(airquality$Temp,airquality$Solar.R,data=airquality,cex=2,pch=20,col="red",xlab="Temperature",
     ylab="Solar Radiation",main="Scatterplot of Temperature and Solar Radiation")
fit <-lm(airquality$Solar.R~airquality$Temp,data=airquality)
abline(fit,lwd=2,lty=2,col="blue")

plot of chunk unnamed-chunk-3

summary(fit)$coef

                  Estimate Std. Error    t value     Pr(>|t|)
(Intercept)     -24.430883 61.5079600 -0.3971987 0.6918090286
airquality$Temp   2.692934  0.7819916  3.4436863 0.0007517729