Why won't my .rmd file knit? it keeps reading Error

Question

Question 1

birth <- read.table(\'birth.txt\', header = T)

• a)

mean(birth$Wgt)
mean(birth$Gest)

sd(birth$Wgt)