```{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE) knitr::opts_knit$set(root.dir = './') source("resources/preamble.R") f <- function (x) {formatC(x, format="d", big.mark=',')} bold <- function(x) {paste('{\\textbf{',x,'}}', sep ='')} gray <- function(x) {paste('{\\textcolor{gray}{',x,'}}', sep ='')} wrapify <- function (x) {paste("{", x, "}", sep="")} p <- function (x) {formatC(x, format='f', digits=1, big.mark=',')} library(igraph) ```## Today's Dad Joke - My girlfriend left me because I'm insecure. > - Nevermind, she's back. She just went to the bathroom. # Learning R ## Housekeeping > - Feedback on Brightspace > - Self-assessment reflections ## Homework > - What are you still struggling with? > - Example problems > - Creating matrices > - Selecting matrix elements ## Using Rstudio > - R files > - R notebooks ## Homework > - Finish chapters 4 and 5 # Networks in R ## Today's Dad Joke Everyone has the 4th of July off except fire. Fireworks on the 4th of July. ## Housekeeping > - Guest lecture next Thursday > - Exam on February 20 ## Family Networks Hall of Fame ## Family Networks Hall of Fame ## Homework Questions > - Factors vs. Booleans vs. Strings > - Choosing elements in a data frame > - with indexing > - with the '$' notation > - with subset > - combining subset and indexing## Today > - Networks in R > - Network Analysis in R - chapter 1 > - Visualization exercise > - Use R to visualize your family network > - I'll feature my favorites