sat_improve <-
structure(list(sat_improve = c(57L, 133L, 231L, 41L, 114L, 129L, 
170L, 103L, 259L, 110L, 149L, 189L, 93L, 47L, 245L, -42L, 182L, 
123L, 191L, 150L, 266L, 36L, 231L, 257L, 120L, -52L, 153L, 78L, 
175L, 140L)), row.names = c(NA, -30L), class = c("tbl_df", "tbl", 
"data.frame"))