Lab report

Load data: (Hint, the source command from the lab)

source("http://www.openintro.org/stat/data/arbuthnot.R")
source("http://www.openintro.org/stat/data/present.R")

Exercise 1:

I want to work on this one first! Here is my finding

arbuthnot$girls
##  [1] 4683 4457 4102 4590 4839 4820 4928 4605 4457 4952 4784 5332 5200 4910 4617
## [16] 3997 3919 3395 3536 3181 2746 2722 2840 2908 2959 3179 3349 3382 3289 3013
## [31] 2781 3247 4107 4803 4881 5681 4858 4319 5322 5560 5829 5719 6061 6120 5822
## [46] 5738 5717 5847 6203 6033 6041 6299 6533 6744 7158 7127 7246 7119 7214 7101
## [61] 7167 7302 7392 7316 7483 6647 6713 7229 7767 7626 7452 7061 7514 7656 7683
## [76] 5738 7779 7417 7687 7623 7380 7288

Exercise 2:

Yes. I the graph shows a generally positive trend in the number of girls baptized over the years.

plot(x = arbuthnot$year, y = arbuthnot$girls, type = "l")

Exercise 3:

plot(arbuthnot$year, arbuthnot$boys / (arbuthnot$boys + arbuthnot$girls),type = "l")

On your own:

1:

The years that are included in the “present” data set are from the year 1940-2002. The dimensions of the data frame are “[1] 63 3” or 3 by 63. The three column names are “year”, “boys”, and “girls”.

2:

In terms of scale of the sample size, the present has a MUCH larger sample size than the arbuthnot data. While the number of years covered are similar, they are largely different on sample size scale. Arbuthnot’s data includes the years 1629-1710 in comparison to the present data set which includes data which is much more relatively recent. The dimensions of the arbuthnot data are slightly larger and is 3 by 82 in compairison to the 63 years covered by the present data set. However, the three column names of “year”, “boys”, and “girls” are the same.

3:

Yes, in my plot Arbuthnot’s observation about boys being born in greater proportion than girls is true. Every year, there are more boys than girls and the plot shows this because the plot represents the amount of boys each year per amount of girls each year and the data is always above 1, meanign that there are more boys than girls every year. Here is my plot:

plot(present$year,present$boys / present$girls,type = "l")

4:

The most total births in the U.S. according to the “present” data set was in 1961. I inserted the code that I used to find this bellow.

present$year[which.max(present$boys + present$girls)]
## [1] 1961