That last post was a copy of the original, but I meant to send this for what I've already tried. Thank you.
x <- pipette$volume
y <- pipette$mass
plot(x, y, main = "Mass vs Volume of Water", xlab = "Volume (microliters)", ylab = "Mass (grams)", pch = 19, frame = FALSE)
abline(lm(y ~ x, data = pipette), col = "blue")
Data <- data.frame(a = c(10,30,45,55,80,99), b = c(1.844,1.864,1.878,1.883,1.914,1.929))
names(Data) <- c("Volume", "Mass")
Data
Volume Mass
10 1.844
30 1.864
45 1.878
55 1.883
80 1.914
99 1.929
Data$Volume <- as.factor(Data$Volume)
Data$Mass <- as.numeric(Data$Mass)
str(Data)
'data.frame': 4 obs. of 2 variables:
$ Volume: Factor w/ 2 levels "1","2": 10 30 45 55 80 99
$ Mass : num 1.844 1.864 1.878 1.883 1.914 1.929
pipetteframe$Mass <- pipetteframe$After - pipetteframe$Before
biglm <- lm(Mass ~ Volume, data=pipetteframe, subset=(Pipette=="1000H"))
summary(biglm)
littlelm <- lm(Mass ~ Volume, data=pipetteframe, subset=(Pipette=="100C"))
summary(littlelm)