Some Exploration - Exercise 1

arbuthnot$girls
## Error in eval(expr, envir, enclos): object 'arbuthnot' not found

Some Exploration - Exercise 2

There appears to be an upward trend in the number of girls baptized from years 1660 to 1710.There was a decrease in girls baptized between years 1640 to 1660.

Some Exploration - Exercise 3

plot(arbuthnot$year, arbuthnot$boys)
## Error in plot(arbuthnot$year, arbuthnot$boys): object 'arbuthnot' not found

On Your Own - Question 1

What years are included in this data set? What are the dimensions of the data frame and what are the variable or column names?

range(present$year)
## Error in eval(expr, envir, enclos): object 'present' not found
dim(present)
## Error in eval(expr, envir, enclos): object 'present' not found
names(present)
## Error in eval(expr, envir, enclos): object 'present' not found

On Your Own - Question 2

How do these counts compare to Arbuthnot’s? Are they on a similar scale? Arbuthnot’ has 82 rows and 3 columns and ‘Present’ has 63 rows and 3 columns, a difference of 19 rows. These two data frames are not on a similar scale Thousands vs. Millions, respectively.

dim(arbuthnot) - dim(present)
## Error in eval(expr, envir, enclos): object 'arbuthnot' not found
head(present$boys,5)
## Error in head(present$boys, 5): object 'present' not found
head(present$girls,5)
## Error in head(present$girls, 5): object 'present' not found
head(arbuthnot$boys,5)
## Error in head(arbuthnot$boys, 5): object 'arbuthnot' not found
head(arbuthnot$girls,5)
## Error in head(arbuthnot$girls, 5): object 'arbuthnot' not found

On Your Own - Question 3

Make a plot that displays the boy-to-girl ratio for every year in the data set. What do you see? Does Arbuthnot’s observation about boys being born in greater proportion than girls hold up in the U.S.? Include the plot in your response. Arbuthnot’s observation about boys being born in great proportion than girls does hold up in the U.S, however to a lesser extent. There appears to be a downward trend of the ratio from 1940’s to 2000’s.

plot(present$year, (present$boys/present$girls))
## Error in plot(present$year, (present$boys/present$girls)): object 'present' not found
plot(arbuthnot$year, (arbuthnot$boys/arbuthnot$girls))
## Error in plot(arbuthnot$year, (arbuthnot$boys/arbuthnot$girls)): object 'arbuthnot' not found

On Your Own - Question 4

In what year did we see the most total number of births in the U.S.? The year with the toal number of births was 1961 with a total of 4,268,326.

present$total <- present$boys + present$girls
## Error in eval(expr, envir, enclos): object 'present' not found
present[present$total == max(present$total),]
## Error in eval(expr, envir, enclos): object 'present' not found