summary(gbr)
     \tYear         Month         Country          Temperature (C)   Rainfall (mm)   
 Min.   :1991   Min.   : 1.00   Length:300         Min.   :-0.1819   Min.   : 19.42  
 1st Qu.:1997   1st Qu.: 3.75   Class :character   1st Qu.: 5.2719   1st Qu.: 73.67  
 Median :2003   Median : 6.50   Mode  :character   Median : 8.7781   Median : 97.09  
 Mean   :2003   Mean   : 6.50                      Mean   : 9.1550   Mean   :104.00  
 3rd Qu.:2009   3rd Qu.: 9.25                      3rd Qu.:13.0889   3rd Qu.:126.41  
 Max.   :2015   Max.   :12.00                      Max.   :17.3942   Max.   :233.08  
> summary(usa)
     \tYear         Month         Country          Temperature (C)   Rainfall (mm)  
 Min.   :1991   Min.   : 1.00   Length:600         Min.   :-6.8235   Min.   :27.40  
 1st Qu.:1997   1st Qu.: 3.75   Class :character   1st Qu.:-0.7086   1st Qu.:47.64  
 Median :2003   Median : 6.50   Mode  :character   Median : 7.3800   Median :56.11  
 Mean   :2003   Mean   : 6.50                      Mean   : 7.5545   Mean   :56.11  
 3rd Qu.:2009   3rd Qu.: 9.25                      3rd Qu.:16.6396   3rd Qu.:63.76  
 Max.   :2015   Max.   :12.00                      Max.   :21.4416   Max.   :85.12  
> 
> 
> usa_min_temp
[1] Inf
> usa_min_temp <- min(usa$`Temperature (C)`)
> usa_min_temp
[1] -6.8235
> usa_max_temp <- max(usa$`Temperature (C)`)
> usa_max_temp
[1] 21.4416
> usa_avg_temp <- avg(usa$`Temperature (C)`)
Error in avg(usa$`Temperature (C)`) : could not find function "avg"
> usa_avg_temp
[1] NA
> usa_avg_temp <- mean(usa$`Temperature (C)`)
> usa_avg_temp
[1] 7.554503
> usa_min_rainfall <- min(usa$`Rainfall (mm)`)
> usa_min_rainfall
[1] 27.4009
> usa_max_rainfall <-max(usa$`Rainfall (mm)`)
> usa_max_rainfall
[1] 85.1186
> usa_avg_rainfall <- mean(usa$`Rainfall (mm)`)
> usa_avg_rainfall
[1] 56.1112
> gbr_min_temp <- min(gbr$`Temperature (C)`)
> gbr_min_temp
[1] -0.1819
> gbr_max_temp <- max(gbr$`Temperature (C)`)
> gbr_max_temp
[1] 17.3942
> gbr_avg_temp <- mean(gbr$`Temperature (C)`)
> gbr_avg_temp
[1] 9.155048
> gbr_min_rainfall <- min(gbr$`Rainfall (mm)`)
> gbr_min_rainfall
[1] 19.4244
> gbr_max_rainfall <- max(gbr$`Rainfall (mm)`)
> gbr_max_rainfall
[1] 233.083
> gbr_avg_rainfall <- mean(gbr $`Rainfall (mm)`)
> gbr_avg_rainfall
[1] 104.0032
> #Compare Dataset Values 
> # min temp
> usa_min_temp > gbr_min_temp
[1] FALSE
> gbr_min_temp > usa_min_temp
[1] TRUE
> abs(gbr_min_temp - usa_min_temp)
[1] 6.6416
> # GBR has higher min temp compared to that of USA
> # the difference is 6.6416
> 
> gbr_max_temp > usa_max_temp
[1] FALSE
> usa_max_temp > gbr_max_temp
[1] TRUE
> # max temp
> usa_max_temp > gbr_max_temp
[1] TRUE
> abs(usa_max_temp - gbr_max_temp)
[1] 4.0474
> # USA has higher max temp compared to that of GBR
> # the difference is 4.0474
> # average temp
> usa_avg_temp > gbr_avg_temp
[1] FALSE
> gbr_avg_temp > usa_avg_temp
[1] TRUE
> abs(gbr_avg_temp -usa_avg_temp)
[1] 1.600546
> # GBR has higher average temp compared to that of USA
> # the difference is 1.600546
> # min rainfall
> usa_min_rainfall > gbr_min_rainfall 
[1] TRUE
> abs(usa_min_rainfall - gbr_min_rainfall  )
[1] 7.9765
> # USA has higher min rainfall compared to that of GBR
> # minimum rainfall  difference is  7.9765
> # max rainfall
> gbr_min_rainfall > usa_min_rainfall 
[1] FALSE
> gbr_max_rainfall > usa_max_rainfall 
[1] TRUE
> abs(gbr_max_rainfall - usa_max_rainfall)
[1] 147.9644
> # GBR has higher max rainfall compared to that of USA
> # the difference is 147.9644
> # average rainfall
> # average rainfall
> gbr_avg_rainfall > usa_avg_rainfall
[1] TRUE
> abs(gbr_avg_rainfall - usa_avg_rainfall)
[1] 47.89198