INTRODUCTION

  1. Global warming has created a need to reduce CO2 emissions.
  2. Emission reduction is not possible in many cases due to financial constraints.
  3. Absorption of excess CO2 through algae and grass is a good option in these. cases.

NA

##LOADING THE DATA SET

  1. Here we load the CO2 data set in R.
  2. CO2 data set contains data on absorption of CO2 by 2 types of grass at varying levesls of ambient concentration.
library(UsingR)
## Loading required package: MASS
## Loading required package: HistData
## Loading required package: Hmisc
## Loading required package: lattice
## Loading required package: survival
## Loading required package: Formula
## Loading required package: ggplot2
## 
## Attaching package: 'Hmisc'
## The following objects are masked from 'package:base':
## 
##     format.pval, round.POSIXt, trunc.POSIXt, units
## 
## Attaching package: 'UsingR'
## The following object is masked from 'package:survival':
## 
##     cancer
library(ggplot2)
summary(CO2)
##      Plant             Type         Treatment       conc     
##  Qn1    : 7   Quebec     :42   nonchilled:42   Min.   :  95  
##  Qn2    : 7   Mississippi:42   chilled   :42   1st Qu.: 175  
##  Qn3    : 7                                    Median : 350  
##  Qc1    : 7                                    Mean   : 435  
##  Qc3    : 7                                    3rd Qu.: 675  
##  Qc2    : 7                                    Max.   :1000  
##  (Other):42                                                  
##      uptake     
##  Min.   : 7.70  
##  1st Qu.:17.90  
##  Median :28.30  
##  Mean   :27.21  
##  3rd Qu.:37.12  
##  Max.   :45.50  
## 

GGPLOT

  1. Here we use the type of grass as a factor variable and plot absorption vs the ambient concentration.
  2. As can be seen Quebec type grass absorbs more CO2 than Mississippi type.

plot of chunk unnamed-chunk-2

HISTOGRAM

##Histogram of CO2 absorption 1. Here we see that the histogram of CO2 absorption is bimodal corressponding to the types of grass in the data set.

hist(CO2$uptake, xlab="CO2 Uptake",col='lightblue',main='Histogram')

plot of chunk unnamed-chunk-3

Slide 5

###Some Conclusions 1. Growing grass on open lands is a good alternative for reducing emissions if it is not possible to change the primary source of energy in the short term. 2. There are different types of grass in the market, each with a different absorption capacity. 3. The absorption of CO2 by grass increases initially as the ambient concentration rises, but saturates at high levels of CO2 concentration.