Intro to Data Science - HW 1

Copyright Jeffrey Stanton, Jeffrey Saltz, and Jasmina Tacheva

# Enter your name here: Patrick Smith

Attribution statement: (choose only one and delete the rest)

# 1. I did this homework by myself, with help from the book and the professor.

Define a variable:

x <- 280

Define the following vectors, which represent the population (in thousands) and number of colleges in each of the five counties in Central New York (CNY) – Cayuga, Cortland, Madison, Onondaga, and Oswego, in this order:

population <- c(80, 49, 73, 467, 122)
colleges <- c(2, 2, 3, 9, 2)

Part 1: Calculating statistics using R

1. Show the number of observations in the population vector with the length() function:

      5

2. Show the number of observations in the colleges vector with the length() function:

      5

3. Calculate the average CNY population using the mean() function:

      158.2

4. Calculate the average number of colleges in CNY using the mean() function:

      3.6

5. Calculate the total CNY population using the sum() function:

      791

6. Calculate the total number of colleges in CNY using the sum() function:

      18

7. Calculate the average CNY population again, this time using the results from steps A & E:

      158.2

8. Calculate the average number of colleges in CNY again, this time using the results from steps B & F:

      3.6

Part 2: Using the max/min and range functions in {r}

1. How many colleges does the county with most colleges have? Hint: Use the max() function:

      9

10. What is the population of the least populous county in CNY? Hint: Use the min() function:

      49

11. Display the populations of the least populous and most populous county in the dataset together. Hint: Use the range() function:

      49 467

Part 3: Vector Math

12. Create a new vector called extraPop, which is the current population of a county + 50 (each county has 50,000 more people):

{r}extrapop <- population +50

13. Calculate the average of extraPop:

      208.2

14. In a variable called bigCounties, store all the population numbers from the original population vector which are greater than 120 (using subsetting in R):

{r}bigcounties <- population[population > 120]

15. Report the length of bigCounties:

      2