This file contains a set of tasks that you need to complete in R for the lab assignment. The tasks may require you to add a code chuck, type code into a chunk, and/or execute code. Some tasks may also ask you to answer specific questions. Don’t forget that you need to acknowledge if you used any resources beyond class materials or got help to complete the assignment.
More information and examples that can help you with this assignment can be found in the file “GettingtoKnowYourDataTutorial.html”.
The data set you will use is different than the one used in the instructions. Pay attention to the differences in the Excel file name and any variable names. You will need to adjust your code accordingly.
Once you have completed the assignment, you will need to publish it to produce an html file. You will then need to upload the html file and this .Rmd file to AsULearn.
The first thing you need to do in this file is to add your name and date in the lines underneath this document’s title (see the code in lines 10 and 11). While you will change the things in lines 10 and 11, you should not add anything new in this file until after line 42. Do not delete anything in the file.
You need to identify and set your working directory, load packages,
and load your data in this section. In addition to the
openxlsx package that we used in the Getting Started in R
lab, you also need to load the packages dplyr and
tidyverse. Remember that before you load a package for the
1st time, you need to install the package. The name of the Excel file is
different than what is in the instructions, you will need to adjust the
code to read in the Excel file that was downloaded as part of the zip
file.
Insert your chunks of code here to identify and set your working directory, load packages, and load the data. I recommend doing one thing per chunk of code.
getwd()## [1] "/Users/annabellethiem/Research Methods 2025/GettingToKnowYourDataFall2025 3"setwd("/Users/annabellethiem/Research Methods 2025/GettingToKnowYourDataFall2025 3")install.packages("openxlsx")##
## The downloaded binary packages are in
## /var/folders/p7/jhqn8w750s38hbspx492wcbm0000gn/T//Rtmp2qWFn9/downloaded_packagesinstall.packages("dplyr")##
## The downloaded binary packages are in
## /var/folders/p7/jhqn8w750s38hbspx492wcbm0000gn/T//Rtmp2qWFn9/downloaded_packagesinstall.packages("tidyverse")##
## The downloaded binary packages are in
## /var/folders/p7/jhqn8w750s38hbspx492wcbm0000gn/T//Rtmp2qWFn9/downloaded_packageslibrary(tidyverse)## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 3.5.2 ✔ tibble 3.3.0
## ✔ lubridate 1.9.4 ✔ tidyr 1.3.1
## ✔ purrr 1.1.0
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errorslibrary(dplyr)library(openxlsx)BBQ_Assignment<-read.xlsx("BBQ_Assignment.xlsx")If you are working in the cloud version of RStudio, you do not need to set the working directory because you will have had to load this file and the Excel file into the cloud to be able to access them. Instead right before your chunk of code write in all capital letters that you are using RStuiod in the cloud.
Display the first 15 observations of your data set.
Insert your chunk of code here to display your first 15 observations.
print(head(BBQ_Assignment, 15))## Sex Age Hometown FavoriteMeat FavoriteSauce
## 1 Male 19 Eastern or Central NC beef brisket Western style (with tomato)
## 2 Female 24 Eastern or Central NC pulled pork Eastern style (with no tomato)
## 3 Female 2 Eastern or Central NC pulled pork Eastern style (with no tomato)
## 4 Male 50 Elsewhere pulled pork Western style (with tomato)
## 5 Female 19 Eastern or Central NC pork ribs South Carolina Mustard
## 6 Female 20 Eastern or Central NC pulled pork Kansas style (with molasses)
## 7 Other 19 Eastern or Central NC pulled pork Eastern style (with no tomato)
## 8 Male 23 Elsewhere beef brisket Kansas style (with molasses)
## 9 Female 25 Eastern or Central NC pulled pork Western style (with tomato)
## 10 Female 49 Elsewhere pulled pork Eastern style (with no tomato)
## 11 Female 25 Elsewhere beef brisket Other
## 12 Female 18 Elsewhere pulled pork Korean Style
## 13 Male 180 Elsewhere pork ribs Eastern style (with no tomato)
## 14 Female 24 Elsewhere pork ribs Korean Style
## 15 Male 22 Piedmount pulled pork Eastern style (with no tomato)
## Sweetness FavoriteSide RestaurantCity RestaurantName MinutesDriving
## 1 4 fries Wilmington Jackson's 20
## 2 1 other Wilmington Jackson's BBQ 20
## 3 4 hush puppies Angier Stephenson’s BBQ 20
## 4 3 fried okra Wilson, NC Parkers 30
## 5 3 baked beans <NA> <NA> 0
## 6 4 coleslaw <NA> Smithfields 15
## 7 3 hush puppies n/a n/a 20
## 8 3 hush puppies Waco, TX <NA> 240
## 9 3 hush puppies Smithfield, NC Smithfield 30
## 10 2 fried okra Wilmington, NC Jackson’s Big Oak 45
## 11 3 hush puppies N/A N/A 10
## 12 4 fries Charlotte Midwood Smokehouse 60
## 13 3 other Asheville Daddy Mac’s 30
## 14 3 fries cary red robin 20
## 15 3 hush puppies Mooresville, NC Lancaster's BBQ 30
## SandwichPrice DinnerPlatePrice RibsPrice
## 1 13 11 15
## 2 10 15 20
## 3 10 16 20
## 4 15 20 35
## 5 5 7 9
## 6 3 18 20
## 7 6 8 10
## 8 15 20 25
## 9 20 25 30
## 10 15 90 35
## 11 120 20 30
## 12 15 20 35
## 13 15 17 200
## 14 10 15 15
## 15 11 15 20print(BBQ_Assignment$DinnerPlatePrice)## [1] "11" "15" "16" "20" "7" "18" "8" "20" "25" "90" "20" "20" "17" "15" "15"view(BBQ_Assignment)head(BBQ_Assignment, 15)## Sex Age Hometown FavoriteMeat FavoriteSauce
## 1 Male 19 Eastern or Central NC beef brisket Western style (with tomato)
## 2 Female 24 Eastern or Central NC pulled pork Eastern style (with no tomato)
## 3 Female 2 Eastern or Central NC pulled pork Eastern style (with no tomato)
## 4 Male 50 Elsewhere pulled pork Western style (with tomato)
## 5 Female 19 Eastern or Central NC pork ribs South Carolina Mustard
## 6 Female 20 Eastern or Central NC pulled pork Kansas style (with molasses)
## 7 Other 19 Eastern or Central NC pulled pork Eastern style (with no tomato)
## 8 Male 23 Elsewhere beef brisket Kansas style (with molasses)
## 9 Female 25 Eastern or Central NC pulled pork Western style (with tomato)
## 10 Female 49 Elsewhere pulled pork Eastern style (with no tomato)
## 11 Female 25 Elsewhere beef brisket Other
## 12 Female 18 Elsewhere pulled pork Korean Style
## 13 Male 180 Elsewhere pork ribs Eastern style (with no tomato)
## 14 Female 24 Elsewhere pork ribs Korean Style
## 15 Male 22 Piedmount pulled pork Eastern style (with no tomato)
## Sweetness FavoriteSide RestaurantCity RestaurantName MinutesDriving
## 1 4 fries Wilmington Jackson's 20
## 2 1 other Wilmington Jackson's BBQ 20
## 3 4 hush puppies Angier Stephenson’s BBQ 20
## 4 3 fried okra Wilson, NC Parkers 30
## 5 3 baked beans <NA> <NA> 0
## 6 4 coleslaw <NA> Smithfields 15
## 7 3 hush puppies n/a n/a 20
## 8 3 hush puppies Waco, TX <NA> 240
## 9 3 hush puppies Smithfield, NC Smithfield 30
## 10 2 fried okra Wilmington, NC Jackson’s Big Oak 45
## 11 3 hush puppies N/A N/A 10
## 12 4 fries Charlotte Midwood Smokehouse 60
## 13 3 other Asheville Daddy Mac’s 30
## 14 3 fries cary red robin 20
## 15 3 hush puppies Mooresville, NC Lancaster's BBQ 30
## SandwichPrice DinnerPlatePrice RibsPrice
## 1 13 11 15
## 2 10 15 20
## 3 10 16 20
## 4 15 20 35
## 5 5 7 9
## 6 3 18 20
## 7 6 8 10
## 8 15 20 25
## 9 20 25 30
## 10 15 90 35
## 11 120 20 30
## 12 15 20 35
## 13 15 17 200
## 14 10 15 15
## 15 11 15 20tail(BBQ_Assignment, 15)## Sex Age Hometown FavoriteMeat FavoriteSauce
## 1 Male 19 Eastern or Central NC beef brisket Western style (with tomato)
## 2 Female 24 Eastern or Central NC pulled pork Eastern style (with no tomato)
## 3 Female 2 Eastern or Central NC pulled pork Eastern style (with no tomato)
## 4 Male 50 Elsewhere pulled pork Western style (with tomato)
## 5 Female 19 Eastern or Central NC pork ribs South Carolina Mustard
## 6 Female 20 Eastern or Central NC pulled pork Kansas style (with molasses)
## 7 Other 19 Eastern or Central NC pulled pork Eastern style (with no tomato)
## 8 Male 23 Elsewhere beef brisket Kansas style (with molasses)
## 9 Female 25 Eastern or Central NC pulled pork Western style (with tomato)
## 10 Female 49 Elsewhere pulled pork Eastern style (with no tomato)
## 11 Female 25 Elsewhere beef brisket Other
## 12 Female 18 Elsewhere pulled pork Korean Style
## 13 Male 180 Elsewhere pork ribs Eastern style (with no tomato)
## 14 Female 24 Elsewhere pork ribs Korean Style
## 15 Male 22 Piedmount pulled pork Eastern style (with no tomato)
## Sweetness FavoriteSide RestaurantCity RestaurantName MinutesDriving
## 1 4 fries Wilmington Jackson's 20
## 2 1 other Wilmington Jackson's BBQ 20
## 3 4 hush puppies Angier Stephenson’s BBQ 20
## 4 3 fried okra Wilson, NC Parkers 30
## 5 3 baked beans <NA> <NA> 0
## 6 4 coleslaw <NA> Smithfields 15
## 7 3 hush puppies n/a n/a 20
## 8 3 hush puppies Waco, TX <NA> 240
## 9 3 hush puppies Smithfield, NC Smithfield 30
## 10 2 fried okra Wilmington, NC Jackson’s Big Oak 45
## 11 3 hush puppies N/A N/A 10
## 12 4 fries Charlotte Midwood Smokehouse 60
## 13 3 other Asheville Daddy Mac’s 30
## 14 3 fries cary red robin 20
## 15 3 hush puppies Mooresville, NC Lancaster's BBQ 30
## SandwichPrice DinnerPlatePrice RibsPrice
## 1 13 11 15
## 2 10 15 20
## 3 10 16 20
## 4 15 20 35
## 5 5 7 9
## 6 3 18 20
## 7 6 8 10
## 8 15 20 25
## 9 20 25 30
## 10 15 90 35
## 11 120 20 30
## 12 15 20 35
## 13 15 17 200
## 14 10 15 15
## 15 11 15 20Add a variable that is a unique id for each observation. Then take another look at the data. After creating the unique id variable, display the first 15 observations in your data set.
Insert your chunk of code here to create your unique id and then display your data.
names(BBQ_Assignment)## [1] "Sex" "Age" "Hometown" "FavoriteMeat"
## [5] "FavoriteSauce" "Sweetness" "FavoriteSide" "RestaurantCity"
## [9] "RestaurantName" "MinutesDriving" "SandwichPrice" "DinnerPlatePrice"
## [13] "RibsPrice"BBQ_Assignment%>%
rowid_to_column(var = "CaseID") -> BBQ_Assignmenthead(BBQ_Assignment, 15)## CaseID Sex Age Hometown FavoriteMeat
## 1 1 Male 19 Eastern or Central NC beef brisket
## 2 2 Female 24 Eastern or Central NC pulled pork
## 3 3 Female 2 Eastern or Central NC pulled pork
## 4 4 Male 50 Elsewhere pulled pork
## 5 5 Female 19 Eastern or Central NC pork ribs
## 6 6 Female 20 Eastern or Central NC pulled pork
## 7 7 Other 19 Eastern or Central NC pulled pork
## 8 8 Male 23 Elsewhere beef brisket
## 9 9 Female 25 Eastern or Central NC pulled pork
## 10 10 Female 49 Elsewhere pulled pork
## 11 11 Female 25 Elsewhere beef brisket
## 12 12 Female 18 Elsewhere pulled pork
## 13 13 Male 180 Elsewhere pork ribs
## 14 14 Female 24 Elsewhere pork ribs
## 15 15 Male 22 Piedmount pulled pork
## FavoriteSauce Sweetness FavoriteSide RestaurantCity
## 1 Western style (with tomato) 4 fries Wilmington
## 2 Eastern style (with no tomato) 1 other Wilmington
## 3 Eastern style (with no tomato) 4 hush puppies Angier
## 4 Western style (with tomato) 3 fried okra Wilson, NC
## 5 South Carolina Mustard 3 baked beans <NA>
## 6 Kansas style (with molasses) 4 coleslaw <NA>
## 7 Eastern style (with no tomato) 3 hush puppies n/a
## 8 Kansas style (with molasses) 3 hush puppies Waco, TX
## 9 Western style (with tomato) 3 hush puppies Smithfield, NC
## 10 Eastern style (with no tomato) 2 fried okra Wilmington, NC
## 11 Other 3 hush puppies N/A
## 12 Korean Style 4 fries Charlotte
## 13 Eastern style (with no tomato) 3 other Asheville
## 14 Korean Style 3 fries cary
## 15 Eastern style (with no tomato) 3 hush puppies Mooresville, NC
## RestaurantName MinutesDriving SandwichPrice DinnerPlatePrice RibsPrice
## 1 Jackson's 20 13 11 15
## 2 Jackson's BBQ 20 10 15 20
## 3 Stephenson’s BBQ 20 10 16 20
## 4 Parkers 30 15 20 35
## 5 <NA> 0 5 7 9
## 6 Smithfields 15 3 18 20
## 7 n/a 20 6 8 10
## 8 <NA> 240 15 20 25
## 9 Smithfield 30 20 25 30
## 10 Jackson’s Big Oak 45 15 90 35
## 11 N/A 10 120 20 30
## 12 Midwood Smokehouse 60 15 20 35
## 13 Daddy Mac’s 30 15 17 200
## 14 red robin 20 10 15 15
## 15 Lancaster's BBQ 30 11 15 20In this section you need to covert variables into the numerical
format and clean up any messy observations. The numerical variables you
need address in this section are: Age,
MinutesDirving, SandwichPrice,
DinnerPlatePrice, and RibsPrice.
You know the following things about your data that will be helpful when conducting your recodes. First, all the respondents should be between the ages of 18 and 90. Second, no respondent is willing to drive more than 100 miles for BBQ. Third, it is unreasonable that the price of a sandwich is less than $5, the price of a dinner plate less than $15, or the price of ribs is less than $20. Fourth, no one should be willing to pay more than $50 dollars for a sandwich, dinner, or ribs.
After you have reformatted the variables and done the necessary recodes, use the print command to compare the original variables to your new variables.
Remember > means greater than and < means less than.
Insert your code here for recoding and cleaning numerical variables. I recommend doing one thing per chunk of code.
BBQ_Assignment$Age2 <- as.numeric(BBQ_Assignment$Age)BBQ_Assignment$Age2[BBQ_Assignment$Age2<17]<-NAprint(BBQ_Assignment$Age)## [1] "19" "24" "2" "50" "19" "20" "19" "23" "25" "49" "25" "18"
## [13] "180" "24" "22"print(BBQ_Assignment$Age2)## [1] 19 24 NA 50 19 20 19 23 25 49 25 18 180 24 22BBQ_Assignment$MinutesDriving2 <- as.numeric(BBQ_Assignment$MinutesDriving)BBQ_Assignment$MinutesDriving2[BBQ_Assignment$MinutesDriving2<100]<-NAprint(BBQ_Assignment$MinutesDriving)## [1] "20" "20" "20" "30" "0" "15" "20" "240" "30" "45" "10" "60"
## [13] "30" "20" "30"print(BBQ_Assignment$MinutesDriving2)## [1] NA NA NA NA NA NA NA 240 NA NA NA NA NA NA NABBQ_Assignment$SandwichPrice2 <- as.numeric(BBQ_Assignment$SandwichPrice)BBQ_Assignment$SandwichPrice2[BBQ_Assignment$SandwichPrice250>5]<-NAprint(BBQ_Assignment$SandwichPrice)## [1] "13" "10" "10" "15" "5" "3" "6" "15" "20" "15" "120" "15"
## [13] "15" "10" "11"print(BBQ_Assignment$SandwichPrice2)## [1] 13 10 10 15 5 3 6 15 20 15 120 15 15 10 11BBQ_Assignment$DinnerPlatePrice2 <- as.numeric(BBQ_Assignment$DinnerPlatePrice)BBQ_Assignment$DinnerPlatePrice2[BBQ_Assignment$DinnerPlatePrice250>15]<-NAprint(BBQ_Assignment$DinnerPlatePrice)## [1] "11" "15" "16" "20" "7" "18" "8" "20" "25" "90" "20" "20" "17" "15" "15"print(BBQ_Assignment$DinnerPlatePrice2)## [1] 11 15 16 20 7 18 8 20 25 90 20 20 17 15 15BBQ_Assignment$RibsPrice2 <- as.numeric(BBQ_Assignment$RibsPrice)BBQ_Assignment$RibsPrice2[BBQ_Assignment$RibsPrice250>20]<-NAprint(BBQ_Assignment$RibsPrice)## [1] "15" "20" "20" "35" "9" "20" "10" "25" "30" "35" "30" "35"
## [13] "200" "15" "20"print(BBQ_Assignment$RibsPrice2)## [1] 15 20 20 35 9 20 10 25 30 35 30 35 200 15 20In this section you need to recode categorical variables to assign
values to their different categories. The following are the categorical
variables in the data set: Sex, FavoriteMeat,
FavoriteSauce, FavoriteSide.
You should reference the code book for the BBQ data set to know the numerical values to assign to the different categories.
After you have completed recoding the variables, use the print command to compare the original variables to your new variables. Don’t forget capitalization matters.
Insert your code here for recoding and cleaning categorical variables. I recommend doing one thing per chunk of code.
BBQ_Assignment %>%
mutate(gender2 = NA) %>%
mutate(gender2 = replace(gender2, BBQ_Assignment$Sex == "Male", 1))%>%
mutate(gender2 = replace(gender2, BBQ_Assignment$Sex == "Female", 2))%>%
mutate(gender2 = replace(gender2, BBQ_Assignment$Sex == "Other", 3)) -> BBQ_Assignmentprint(BBQ_Assignment$Sex)## [1] "Male" "Female" "Female" "Male" "Female" "Female" "Other" "Male"
## [9] "Female" "Female" "Female" "Female" "Male" "Female" "Male"print(BBQ_Assignment$gender2)## [1] 1 2 2 1 2 2 3 1 2 2 2 2 1 2 1BBQ_Assignment %>%
mutate(FavoriteMeat2 = NA) %>%
mutate(FavoriteMeat2 = replace(FavoriteMeat2, BBQ_Assignment$FavoriteMeat == "Pulled Pork", 1))%>%
mutate(FavoriteMeat2 = replace(FavoriteMeat2, BBQ_Assignment$FavoriteMeat == "Pork Ribs", 2))%>%
mutate(FavoriteMeat2 = replace(FavoriteMeat2, BBQ_Assignment$FavoriteMeat == "Beef Brisket", 3))%>%
mutate(FavoriteMeat2 = replace(FavoriteMeat2, BBQ_Assignment$FavoriteMeat == "Beef Ribs", 4))%>%
mutate(FavoriteMeat2 = replace(FavoriteMeat2, BBQ_Assignment$FavoriteMeat == "Poultry", 5)) -> BBQ_Assignmentprint(BBQ_Assignment$FavoriteMeat)## [1] "beef brisket" "pulled pork" "pulled pork" "pulled pork" "pork ribs"
## [6] "pulled pork" "pulled pork" "beef brisket" "pulled pork" "pulled pork"
## [11] "beef brisket" "pulled pork" "pork ribs" "pork ribs" "pulled pork"print(BBQ_Assignment$FavoriteMeat2)## [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NABBQ_Assignment %>%
mutate(FavoriteSauce2 = NA) %>%
mutate(FavoriteSauce2 = replace(FavoriteSauce2, BBQ_Assignment$FavoriteSauce == "Eastern Style (with no tomato)", 1))%>%
mutate(FavoriteSauce2 = replace(FavoriteSauce2, BBQ_Assignment$FavoriteSauce == "Western Style (with tomato)", 2))%>%
mutate(FavoriteSauce2 = replace(FavoriteSauce2, BBQ_Assignment$FavoriteSauce == "Kansas Style (with molasses", 3))%>%
mutate(FavoriteSauce2 = replace(FavoriteSauce2, BBQ_Assignment$FavoriteSauce == "Dry Rub", 4))%>%
mutate(FavoriteSauce2 = replace(FavoriteSauce2, BBQ_Assignment$FavoriteSauce == "South Carolina Mustard", 5))%>%
mutate(FavoriteSauce2 = replace(FavoriteSauce2, BBQ_Assignment$FavoriteSauce == "Korean Style", 6))%>%
mutate(FavoriteSauce2 = replace(FavoriteSauce2, BBQ_Assignment$FavoriteSauce == "Other", 7)) -> BBQ_Assignmentprint(BBQ_Assignment$FavoriteSauce)## [1] "Western style (with tomato)" "Eastern style (with no tomato)"
## [3] "Eastern style (with no tomato)" "Western style (with tomato)"
## [5] "South Carolina Mustard" "Kansas style (with molasses)"
## [7] "Eastern style (with no tomato)" "Kansas style (with molasses)"
## [9] "Western style (with tomato)" "Eastern style (with no tomato)"
## [11] "Other" "Korean Style"
## [13] "Eastern style (with no tomato)" "Korean Style"
## [15] "Eastern style (with no tomato)"print(BBQ_Assignment$FavoriteSauce2)## [1] NA NA NA NA 5 NA NA NA NA NA 7 6 NA 6 NABBQ_Assignment %>%
mutate(FavoriteSide2 = NA) %>%
mutate(FavoriteSide2 = replace(FavoriteSide2, BBQ_Assignment$FavoriteSide == "Baked Beans", 1))%>%
mutate(FavoriteSide2 = replace(FavoriteSide2, BBQ_Assignment$FavoriteSide == "Fried Okra", 2))%>%
mutate(FavoriteSide2 = replace(FavoriteSide2, BBQ_Assignment$FavoriteSide == "Coleslaw", 3))%>%
mutate(FavoriteSide2 = replace(FavoriteSide2, BBQ_Assignment$FavoriteSide == "Hush Puppies", 4))%>%
mutate(FavoriteSide2 = replace(FavoriteSide2, BBQ_Assignment$FavoriteSide == "Green Beans", 5))%>%
mutate(FavoriteSide2 = replace(FavoriteSide2, BBQ_Assignment$FavoriteSide == "Fries", 6))%>%
mutate(FavoriteSide2 = replace(FavoriteSide2, BBQ_Assignment$FavoriteSide == "Collard Greens", 7))%>%
mutate(FavoriteSide2 = replace(FavoriteSide2, BBQ_Assignment$FavoriteSide == "Cheese Grits", 8))%>%
mutate(FavoriteSide2 = replace(FavoriteSide2, BBQ_Assignment$FavoriteSide == "Other", 9)) -> BBQ_Assignmentprint(BBQ_Assignment$FavoriteSide)## [1] "fries" "other" "hush puppies" "fried okra" "baked beans"
## [6] "coleslaw" "hush puppies" "hush puppies" "hush puppies" "fried okra"
## [11] "hush puppies" "fries" "other" "fries" "hush puppies"print(BBQ_Assignment$FavoriteSide2)## [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NAEnter the names of anyone one that assisted you with completing this lab. If no one helped you complete just type type out no one helped you. The TA Cole Davis helped me during office hours. # Did you provide anyone help with completing this lab? Enter the names of anyone that you assisted with completing this lab. If you did not help anyone, then just type out that you helped no one. I did not help anyone with completing this lab. # Publish Document Click the “Knit” button to publish your work as an html document. This document or file will appear in the folder specified by your working directory. You will need to upload both this RMarkdown file and the html file it produces to AsU Learn to get all of the lab points for this week.