# Write a function $`$has$\_$more$\_$zs$`$ to determine which of two strings contains

# more instances of the letter $"$z$".$ It should take as parameters two string

# variables, and return the argument which has more occurances of the letter $"$z$"$

# If neither phrase contains the letter $"$z$",$ it should return:

# "Neither string contains the letter z$."$

# If the phrases contain the same number of $"$z$"$s$,$ it should return:

# "The strings have the same number of Zs$."$

# The function must work for both capital and lowercase $"$z$"$s$.$

#

# $($hint: try googling "stringr count occurances"$)$

# Create a variable $`$more$\_$zs$`$ by passing two strings of your choice to your

# $`$has$\_$more$\_$zs$`$ function

# Write a function $`$remove$\_$digits$`$ that will remove all digits

# $($i$.$e$.,0$ through $9)$ from all elements in a $*$vector of strings$*.$

# Demonstrate that your approach is successful by passing a vector of courses

# to your function. For example, remove$\_$digits$($c$("$INFO $201",$ "CSE $142"))$

# Vectors $----------------------------------------------------------------------$

# Create a vector $`$movies$`$ that contains the names of six movies you like

# Create a vector $`$top$\_$three$`$ that only contains the first three movies

# You should do this by subsetting the vector, not by simply retyping the movies

# Using your vector and the $`$paste$()`$ method, create a vector $`$excited$`$ that

# adds the phrase $-"$ is a great movie!" to the end of each element $`$movies$`$

# Create a vector $`$without$\_$four$`$ by omitting the fourth element from $`$movies$`$

# You should do this using a $\_$negative index$\_$

# Create a vector $`$multiples$\_$of$\_4`$ that is every number divisible by $4$

# between $4$ and $400(**2$ points$**)($hint google $"$r mod divisible"$)$

# Create a vector $`$multiples$\_$of$\_8`$ by filtering your $`$multiples$\_$of$\_4`$ variable

# down to only elements that are divisible by $8.$

# Create a vector $`$numbers$`$ that is the numbers $700$ through $999$

# Using the built in $`$length$()`$ function, create a variable $`$numbers$\_$len$`$

# that is equal to the length of your vector $`$numbers$`$

# Using the $`$mean$()`$ function, create a variable $`$numbers$\_$mean$`$ that is

# equal to the mean of your vector $`$numbers$`$

# Using the $`$median$()`$ function, create a variable $`$numbers$\_$median$`$

# that is the median of your vector $`$numbers$`$

# Create a vector $`$lower$\_$numbers$`$ that the values in your $`$numbers$`$ vector

# that are lower than $`$numbers$\_$mean$`($you should do this using vector filtering$)$

# Create a vector $`$higher$\_$numbers$`$ that the values in your $`$numbers$`$ vector

# that are higher than $`$numbers$\_$mean$`($again$,$ using vector filtering$)$