Data Science Skills in R

Teaching the tools to get computers to do cool science

Creative Commons License

Repeating Things 2

Assignment

Learning Objectives

Following this assignment students should be able to:

  • practice basic syntax and usage of for loops
  • use for loops to automate function operations
  • understand how to decompose complex problems

Reading

Lecture Notes

Loops

Exercises

  1. Basic For Loops (25 pts)

    1. The code below prints the numbers 1 through 5 one line at a time. Modify it to print the numbers 2 through 16.

    for (i in 1:5){
  print(i)
}

    2. The code below prints the numbers 1 through 5 one line at a time. Modify it to print each of these numbers multiplied by 3.

    for (i in 1:5){
  print(i)
}

    3. Complete the code below so that it prints out the name of each bird one line at a time.

    birds = c('robin', 'woodpecker', 'blue jay', 'sparrow')
for (i in 1:length(_________)){
  print(birds[__])
}

    4. Complete the code below so that it stores one area for each radius.

    radius <- c(1.3, 2.1, 3.5)
areas <- vector(_____ = "numeric", length = ______)
for (__ in 1:length(________)){
  areas[__] <- pi * radius[i] ^ 2
}
areas

    5. Complete the code below to calculate an area for each pair of lengths and widths, store the areas in a vector, and after they are all calculated print them out:

    lengths = c(1.1, 2.2, 1.6)
widths = c(3.5, 2.4, 2.8)
areas <- vector(length = __________)
for (i in _____) {
  areas[__] <- lengths[__] * widths[__]
}
areas
    [click here for output]

  2. Size Estimates By Name Loop (25 pts)

    This is a followup to Size Estimates by Name.

    Download and import data on dinosaur lengths with species names.

    Write a function mass_from_length() that uses the equation mass <- a * length^b to estimate the size of a dinosaur from its length. This function should take two arguments, length and species. For each of the following inputs for species, use the given values of a and b for the calculation:

    • For Stegosauria: a = 10.95 and b = 2.64 (Seebacher 2001).
    • For Theropoda: a = 0.73 and b = 3.63 (Seebacher 2001).
    • For Sauropoda: a = 214.44 and b = 1.46 (Seebacher 2001).
    • For any other value of species: a = 25.37 and b = 2.49.
    1. Use this function and a for loop to calculate the estimated mass for each dinosaur, store the masses in a vector, and after all of the calculations are complete show the first few items in the vector using head.
    2. Add the results in the vector back to the original data frame. Show the first few rows of the data frame using head.
    3. Calculate the mean mass for each species using dplyr.
    [click here for output]

  3. DNA or RNA Iteration (25 pts)

    This is a follow-up to DNA or RNA.

    Write a function, dna_or_rna(sequence), that determines if a sequence of base pairs is DNA, RNA, or if it is not possible to tell given the sequence provided. Since all the function will know about the material is the sequence the only way to tell the difference between DNA and RNA is that RNA has the base Uracil ("u") instead of the base Thymine ("t"). Have the function return one of three outputs: "DNA", "RNA", or "UNKNOWN".

    1. Use the function and a for loop to print the type of the sequences in the following list.
    2. Use the function and sapply to print the type of the sequences in the following list.
    sequences = c("ttgaatgccttacaactgatcattacacaggcggcatgaagcaaaaatatactgtgaaccaatgcaggcg", "gauuauuccccacaaagggagugggauuaggagcugcaucauuuacaagagcagaauguuucaaaugcau", "gaaagcaagaaaaggcaggcgaggaagggaagaagggggggaaacc", "guuuccuacaguauuugaugagaaugagaguuuacuccuggaagauaauauuagaauguuuacaacugcaccugaucagguggauaaggaagaugaagacu", "gauaaggaagaugaagacuuucaggaaucuaauaaaaugcacuccaugaauggauucauguaugggaaucagccggguc")

    Optional: For a little extra challenge make your function work with both upper and lower case letters, or even strings with mixed capitalization

    [click here for output]

  4. Multi-file Analysis (25 pts)

    You have a satellite collars on a number of different individuals and want to be able to quickly look at all of their recent movements at once. The data is posted daily to a url as a zip file that contains one csv file for each individual: /UCSB-Smithsonian-R-workshop/data/individual_collar_data.zip Start your solution by:

    • Downloading the zip file using download.file
    • Unziping it using unzip
    • Obtaining a list of all of the files with file names matching the pattern "collar-data-.*.txt"

    1. Use a loop to load each of these files into R and make a line plot (using geom_path) for each file with long on the x axis and lat on the y axis. Graphs, like other types of output, won’t display inside a loop unless you explicitly display them, so you need put your ggplot command inside a print statement. Include the name of the file in the graph as the graph title using labs.

    2. Add code to the loop to calculate the minimum and maximum latitude in the file, and store these values, along with the name of the file, in a data frame. When you create the empty data frame you’ll need to include stringsAsFactors = FALSE to prevent the character column for the file name becoming a factor. Show the data frame as output.

    If you’re interested in seeing another application of for loops, check out the code used to simulate the data for this exercise using for loops.

    [click here for output] [click here for output] [click here for output] [click here for output] [click here for output] [click here for output] [click here for output] [click here for output] [click here for output] [click here for output] [click here for output]

  5. Cocili Data Exploration (optional)

    Understanding the spatial distribution of ecological phenomena is central to the study of natural systems. A group of scientists has collected a dataset on the size, location, and species identify of all of the trees in a 4 ha site in Panama call “Cocoli”.

    Download the Cocoli Data and explore the following spatial properties.

    1. Make a single plot showing the location of each tree for all species with more than 100 individuals. Each species should be in its own subplot (i.e., facet). Label the subplots with the genus and species names, not the species code. Scale the size of the point by its stem diameter (use dbh1) so that larger trees display as larger points. Have the code save the plot in a figures folder in your project.
    2. Basal area is a common measure in forest management and ecology. It is the sum of the cross-sectional areas of all of the trees occuring in some area and can be calculated as the sum of 0.00007854 * DBH^2 over all of the trees. To look at how basal area varies across the site divide the site into 100 m^2 sample regions (10 x 10 m cells) and determining the total basal area in each region. I.e., take all of the trees in a grid cell where x is between 0 and 10 and y is between 0 and 10 and determine their basal area. Do the same thing for x between 0 and 10 and y between 10 and 20, and so on. You can do this using two “nested” for loops to subset the data and calculate the basal area in that region. Make a plot that shows how the basal area varies spatially. Since the calculation is for a square region, plot it that way using geom_tile() with the center of the tile at the center of the region where basal area was calculated. Have the code save the plot in a figures folder in your project.
    [click here for output] [click here for output]

  6. Length of Floods (optional)

    You are interested in studying the influence of the timing and length of small scale flood events on an ecosystem. To do this you need to determine when floods occurred and how long they lasted based on stream gauge data.

    Download the stream guage data for USGS stream gauge site 02236000 on the St. Johns River in Florida. Find the continuous pieces of the time-series where the stream level is above the flood threshold of 2.26 feet and store the information on the start date and length of each flood in a data frame.

    [click here for output]

Assignment submission & checklist