I don't know what I am doing wrong, but I keep getting bunch of error's

# Lab 2 ## Author: ## Date: Remember to change the author: field on this Rmd file to your own name. Loading the neccessary libraries: 1: library(tidyverse) NameError Traceback (most recent call last) in ----> 1 library(tidyverse) 2 ## ggplot2 3.2.1 purrr 0.3.3 3 ## tibble 2.1.3 dplyr 0.8.3 4 ## tidyr 1.0.0 stringr 1.4.0 5 ## readr 1.3.1 forcats 0.4.0 NameError: name 'library' is not defined 1. Changing the author field and file name. (a) Change the author: field on the Rmd document from Your Name Here to your own name. (b) Rename this file to "labo2_YourHame Here.ipynb", where YourName Here is changed to your own name. 2. Data practice In class we imported the survey data using the read.table() function. (Note: on Homework 1 you'll be asked to use the read.csv() function instead.) This is the code we used: survey in ----> 1 sum (survey [["Program"]] == "MISM" | survey [["Program"]] == "Other") NameError: name 'survey' is not defined (b) What % of survey respondents are from PPM? 12]: 100 * sum( survey [["Program"]] == "PPM") / nrow(survey) NameError Traceback (most recent call last) in ----> 1 100 * sum(survey [["Program"]] == "PPM") / nrow(survey) NameError: name 'survey' is not defined 3. Index practice (a) Use $ notation to pull the Operating System column from the survey data [3]: survey$OperatingSystem File "", line 1 survey$OperatingSystem SyntaxError: invalid syntax (b) Do the same thing with [] notation, referring to Operating System by name [4]: survey!, "Operating System"] File "", line 1 survey, "Operating System"] SyntaxError: invalid syntax (c) Repeat part (b), this time referring to OperatingSystem by column number [5]: survey[, 4] File "", line 1 survey, 4] SyntaxError: invalid syntax (d) Repeat part (b), this time using the select() function. [6]: select (survey, Operating System) NameError Traceback (most recent call last) in ---> 1 select (survey, Operating System) NameError: name 'select' is not defined (e) Use filter() and select() together to get the Program and Rexperience of every student who watched at least 10 hours of TV last week. [7]: survey %>% filter(TVhours >= 10) %>% select(Program, Rexperience) File "", line 1 survey %>% SyntaxError: invalid syntax