##################################################

## REMEMBER, THIS IS ONLY THOSE INTERESTED IN R

## YOU ARE NOT REQUIRED TO UNDERSTAND THIS CODE

## WE WILL WORK THROUGH THIS IN CLASS ON THE BOARD

## AND IN EXCEL

##################################################

#---------------------------------#

# DEMONSTRATE MEAN AND VARIANCE #

#---------------------------------#

###################################

# DATA: Corn Yields

#

# Garst: 148 150 152 146 154

#

# Pioneer: 150 175 120 140 165

###################################

# compute descriptive statistics for Garst corn yields

garst<-c(148, 150, 152, 146, 154) # enter values for 'garst'

print(garst) # see if the data is there

summary(garst) # this gives the mean, median, min, max Q1,Q3

var(garst) # compute variance

sd(garst) # compute standard deviation

plot(garst)

# compute descriptive statistics for Pioneer Corn Yields

pioneer<-c(150, 175, 120, 140, 165)

print(pioneer)

summary(pioneer)

var(pioneer)

sd(pioneer)

plot(pioneer)