---
title: "Table of Contents"
output:
html_document:
toc: yes
bookdown::html_chapter:
toc: no
layout: default_with_disqus
---
```{r setup, echo=FALSE, include=FALSE}
# PLEASE DO NOT EDIT THIS CODE BLOCK
library(knitr)
library(rrhw)
# tell knitr where to find the inserted file in case
# jekyll is building this in the top directory of the repo
opts_knit$set(child.path = paste(prj_dir_containing("rep-res-course.Rproj"), "extras/knitr_children/", sep=""))
```
```{r insert-ids, child="trial_homework_control.Rmd"}
```
## Problems to be done for "`r rr_homework_name`" {#ex-test-start}
These are just four fairly basic homework problems to do with indexing. The main
focus of this homework is getting all the GitHub logistics worked out.
Good luck with this. I recommend working in groups and helping each other out.
```{r instruct-link, child="link-to-homework-instructions.Rmd"}
```
```{r include=FALSE, eval=FALSE}
################## DON'T MODIFY ANYTHING ABOVE THIS LINE ##########################
```
```{r word-comps, rr.question=TRUE}
# here are some github names of people taking the course
gnames <- c("cpetrik", "wildflowermt", "mad4mocha", "sjohnson216", "okisutch99", "sczTWilliams", "rbeas", "mtarjan", "aaronmams", "lslefebvre")
# return a logical vector that gives TRUE for each name that comes after
# the word "github" alphabetically
submit_answer({
})
```
```{r word-comp-extract, rr.question=TRUE}
# here are some github names
gnames <- c("cpetrik", "wildflowermt", "mad4mocha", "sjohnson216", "okisutch99", "sczTWilliams", "rbeas", "mtarjan", "aaronmams", "lslefebvre")
# return all the values of gname that come after
# the word "github" alphabetically
submit_answer({
})
```
```{r word-comp-alter, rr.question=TRUE}
# here are some github names
gnames <- c("cpetrik", "wildflowermt", "mad4mocha", "sjohnson216", "okisutch99", "sczTWilliams", "rbeas", "mtarjan", "aaronmams", "lslefebvre")
# change all the values of gname that come after the word
# "github" alphabetically to "zzzz" and return the resulting
# gname vector
submit_answer({
})
```
```{r two-vec-operations, rr.question=TRUE}
set.seed(5) # set random number generator
# here are some github names
gnames <- c("cpetrik", "wildflowermt", "mad4mocha", "sjohnson216", "okisutch99", "sczTWilliams", "rbeas", "mtarjan", "aaronmams", "lslefebvre")
# here is the simulated order in which they signed up for GitHub
ords <- sample(length(gnames))
# return the first 4 github names that were signed up
submit_answer({
})
```