Exercises for Week 2: Answer Template

Jack Struble

Exercise 1

Copy the URL to your Google Doc here:

myURL = "https://docs.google.com/spreadsheet/pub?key=0ArXo-TJAlx0xdDVOR095dmVCVXBqMExRRnlTRklQZlE&output=csv"

mydat = fetchGoogle(myURL)

## Loading required package: RCurl

## Loading required package: bitops

head(mydat)

##   Field      Subject Organization Year Enrollment
## 1  Math   PreCollege    Math Dept 1995        222
## 2  Math Introductory    Math Dept 1995        613
## 3  Math     Calculus    Math Dept 1995        538
## 4  Math     Advanced    Math Dept 1995         96
## 5  Math        Other    Math Dept 1995          0
## 6  Math   PreCollege    Math Dept 2000        219

In this and each of the following, put in an R command that takes the appropriate subset of your data and sums the subset up as required. YOU CAN DELETE THIS LINE.

Problem (1.a)

mysubset = subset(mydat, Year == 1995 & Field == "Math" & Organization == "Math Dept")
with(mysubset, sum(Enrollment))

## [1] 1469

Problem (1.b)

mysubset1 = subset(mydat, Year == 1995 & Field == "Math" & Organization == "Two-Year")
with(mysubset1, sum(Enrollment))

## [1] 1384

mysubset2 = subset(mydat, Year == 2000 & Field == "Math" & Organization == "Two-Year")
with(mysubset2, sum(Enrollment))

## [1] 1273

mysubset3 = subset(mydat, Year == 2005 & Field == "Math" & Organization == "Two-Year")
with(mysubset3, sum(Enrollment))

## [1] 1581

mysubset4 = subset(mydat, Year == 2010 & Field == "Math" & Organization == "Two-Year")
with(mysubset4, sum(Enrollment))

## [1] 1887

Problem (1.c)

mysubset1995 = subset(mydat, Year == 1995)
with(mysubset1995, sum(Enrollment))

## [1] 3133

mysubset2000 = subset(mydat, Year == 2000)
with(mysubset2000, sum(Enrollment))

## [1] 3206

mysubset2005 = subset(mydat, Year == 2005)
with(mysubset2005, sum(Enrollment))

## [1] 3547

mysubset2010 = subset(mydat, Year == 2010)
with(mysubset2010, sum(Enrollment))

## [1] 4365

Problem (1.d)

mysubset19951 = subset(mydat, Year == 1995 & Field == "Math")
with(mysubset19951, sum(Enrollment))

## [1] 2853

mysubset19952 = subset(mydat, Year == 1995 & Field == "Stats")
with(mysubset19952, sum(Enrollment))

## [1] 236

mysubset19953 = subset(mydat, Year == 1995 & Field == "Upper")
with(mysubset19953, sum(Enrollment))

## [1] 44

mysubset20001 = subset(mydat, Year == 2000 & Field == "Math")
with(mysubset20001, sum(Enrollment))

## [1] 2887

mysubset20002 = subset(mydat, Year == 2000 & Field == "Stats")
with(mysubset20002, sum(Enrollment))

## [1] 264

mysubset20003 = subset(mydat, Year == 2000 & Field == "Upper")
with(mysubset20003, sum(Enrollment))

## [1] 55

mysubset20051 = subset(mydat, Year == 2005 & Field == "Math")
with(mysubset20051, sum(Enrollment))

## [1] 3170

mysubset20052 = subset(mydat, Year == 2005 & Field == "Stats")
with(mysubset20052, sum(Enrollment))

## [1] 319

mysubset20053 = subset(mydat, Year == 2005 & Field == "Upper")
with(mysubset20053, sum(Enrollment))

## [1] 58

mysubset20101 = subset(mydat, Year == 2010 & Field == "Math")
with(mysubset20101, sum(Enrollment))

## [1] 3857

mysubset20102 = subset(mydat, Year == 2010 & Field == "Stats")
with(mysubset20102, sum(Enrollment))

## [1] 449

mysubset20103 = subset(mydat, Year == 2010 & Field == "Upper")
with(mysubset20103, sum(Enrollment))

## [1] 59

Problem (1.e)

mysubset199501 = subset(mydat, Year == 1995 & Subject == "PreCollege")
mysubset199502 = subset(mydat, Year == 1995 & Subject == "Introductory")
mysubset199503 = subset(mydat, Year == 1995 & Subject == "Calculus")
mysubset199504 = subset(mydat, Year == 1995 & Subject == "Advanced")
mysubset199505 = subset(mydat, Year == 1995 & Subject == "Other")
mysubset199506 = subset(mydat, Year == 1995 & Subject == "Elementary")
mysubset199507 = subset(mydat, Year == 1995 & Subject == "Upper")
mysubset200001 = subset(mydat, Year == 2000 & Subject == "PreCollege")
mysubset200002 = subset(mydat, Year == 2000 & Subject == "Introductory")
mysubset200003 = subset(mydat, Year == 2000 & Subject == "Calculus")
mysubset200004 = subset(mydat, Year == 2000 & Subject == "Advanced")
mysubset200005 = subset(mydat, Year == 2000 & Subject == "Other")
mysubset200006 = subset(mydat, Year == 2000 & Subject == "Elementary")
mysubset200007 = subset(mydat, Year == 2000 & Subject == "Upper")
mysubset200501 = subset(mydat, Year == 2005 & Subject == "PreCollege")
mysubset200502 = subset(mydat, Year == 2005 & Subject == "Introductory")
mysubset200503 = subset(mydat, Year == 2005 & Subject == "Calculus")
mysubset200504 = subset(mydat, Year == 2005 & Subject == "Advanced")
mysubset200505 = subset(mydat, Year == 2005 & Subject == "Other")
mysubset200506 = subset(mydat, Year == 2005 & Subject == "Elementary")
mysubset200507 = subset(mydat, Year == 2005 & Subject == "Upper")
mysubset201001 = subset(mydat, Year == 2010 & Subject == "PreCollege")
mysubset201002 = subset(mydat, Year == 2010 & Subject == "Introductory")
mysubset201003 = subset(mydat, Year == 2010 & Subject == "Calculus")
mysubset201004 = subset(mydat, Year == 2010 & Subject == "Advanced")
mysubset201005 = subset(mydat, Year == 2010 & Subject == "Other")
mysubset201006 = subset(mydat, Year == 2010 & Subject == "Elementary")
mysubset201007 = subset(mydat, Year == 2010 & Subject == "Upper")

with(mysubset199501, sum(Enrollment))

## [1] 1022

with(mysubset199502, sum(Enrollment))

## [1] 908

with(mysubset199503, sum(Enrollment))

## [1] 667

with(mysubset199504, sum(Enrollment))

## [1] 96

with(mysubset199505, sum(Enrollment))

## [1] 160

with(mysubset199506, sum(Enrollment))

## [1] 236

with(mysubset199507, sum(Enrollment))

## [1] 44

with(mysubset200001, sum(Enrollment))

## [1] 982

with(mysubset200002, sum(Enrollment))

## [1] 997

with(mysubset200003, sum(Enrollment))

## [1] 676

with(mysubset200004, sum(Enrollment))

## [1] 102

with(mysubset200005, sum(Enrollment))

## [1] 130

with(mysubset200006, sum(Enrollment))

## [1] 264

with(mysubset200007, sum(Enrollment))

## [1] 55

with(mysubset200501, sum(Enrollment))

## [1] 1166

with(mysubset200502, sum(Enrollment))

## [1] 1027

with(mysubset200503, sum(Enrollment))

## [1] 678

with(mysubset200504, sum(Enrollment))

## [1] 112

with(mysubset200505, sum(Enrollment))

## [1] 187

with(mysubset200506, sum(Enrollment))

## [1] 319

with(mysubset200507, sum(Enrollment))

## [1] 58

with(mysubset201001, sum(Enrollment))

## [1] 1359

with(mysubset201002, sum(Enrollment))

## [1] 1231

with(mysubset201003, sum(Enrollment))

## [1] 886

with(mysubset201004, sum(Enrollment))

## [1] 150

with(mysubset201005, sum(Enrollment))

## [1] 231

with(mysubset201006, sum(Enrollment))

## [1] 449

with(mysubset201007, sum(Enrollment))

## [1] 59

Exercise 2

Part (2.a)

Part (2.b)

# Put the barplot commands here

Exercise 3

Part (3.a)

data(FAOsimple)
sum(FAOsimple, Total.Population...Female)

## Error: object 'Total.Population...Female' not found

"I just can't seem to remember how to do or look up how to do basic functions like column sums."

## [1] "I just can't seem to remember how to do or look up how to do basic functions like column sums."

Part (3.b)

# Put the commands here

Part (3.c)

# Put the commands here

Compiled on Tue Mar 5 23:07:16 2013