HW1-Tang

knitr::opts_chunk$set(echo = TRUE)

My HW1 5 lines

library(tidyverse)
scores <- c(90,95,99,94,92,85,89,100,88,96)
scores

 [1]  90  95  99  94  92  85  89 100  88  96

grade <- scores+5
grade

 [1]  95 100 104  99  97  90  94 105  93 101