penetrating_oil <-
structure(list(treatment = c("none", "none", "none", "none", 
"Acetone/ATF", "Acetone/ATF", "Acetone/ATF", "Acetone/ATF", "AeroKroil", 
"AeroKroil", "AeroKroil", "AeroKroil", "Liquid Wrench", "Liquid Wrench", 
"Liquid Wrench", "Liquid Wrench", "PB Blaster", "PB Blaster", 
"PB Blaster", "PB Blaster", "Royal Purple", "Royal Purple", "Royal Purple", 
"Royal Purple", "WD-40", "WD-40", "WD-40", "WD-40", "Heat", "Heat"
), torque = c(110.09999999999999, 123.09999999999999, 140.80000000000001, 
129.40000000000001, 114.40000000000001, 129.5, 105.59999999999999, 
106.7, 133.90000000000001, 124.59999999999999, 107.2, 132.5, 
114.3, 88.900000000000006, 87.099999999999994, 98.799999999999997, 
110.59999999999999, 126.90000000000001, 122.90000000000001, 127.7, 
122.8, 131.5, 108.3, 114.40000000000001, 105.7, 131.09999999999999, 
118.3, 130.09999999999999, 99.200000000000003, 83.700000000000003
)), row.names = c(NA, -30L), class = c("tbl_df", "tbl", "data.frame"
))