Sam Cohen-Devries HW3

name

## [1] "Moe Szyslak"                          
## [2] "C. Montgomery BurnsBurnsC. Montgomery"
## [3] "Rev. Timothy Lovejoy"                 
## [4] "Ned Flanders"                         
## [5] "Homer SimpsonSimpsonHomer"            
## [6] "Dr. Julius Hibbert"

phone

## [1] "(636) 555-0113"

title

## [1] FALSE FALSE  TRUE FALSE FALSE  TRUE

secondName

## [1] FALSE FALSE FALSE FALSE  TRUE FALSE

a <- "[0-9]+\\$"
b <- "\\b[a-z]{1,4}\\b"
c <- ".*?\\.txt$"
d <- "\\d{2}/\\d{2}/\\d{4}"
e <- "<(.+?)>.+?</\\1>"

str_extract("1234$",a) #whole dollar amount

## [1] "1234$"

str_extract("blob",b) #3-6 letter word beginning and ending with "b"

## [1] "blob"

str_extract("something.txt",c) #a .txt file

## [1] "something.txt"

str_extract("01/01/2017",d) #mm/dd/yyyy date

## [1] "01/01/2017"

str_extract("<header>text</header>",e) #html tags

## [1] "<header>text</header>"