Create a new object called “tmp” that includes the first 3 and last 3 records of the BullTroutRML2 data set.
1. Display the “era” column (variable) in the new “tmp” object
2. Create a pchs vector with the argument values for + and x.
3. Create a cols vector with the two elements “red” and “gray60”
4. Convert the tmp era values to numeric values.
5. Initialize the cols vector with the tmp era valuesI have this so far: I don't know how to convert to numerical values, no 16, and then also no.17tmp <- data.frame(rbind(head(BullTroutRML2,3),tail(BullTroutRML2, 3)))
tmp
tmp %>% select("era")
pch <-c("+", "*")
pch
plot(1:2, xlim = c(0,500), ylim = c(0,15), pch=pch)
cols <-c ("red", "gray60")
data$era ==