Hi all.

Using the following code:

plot(bsa, abs, col='blue', pch=16, xlim=c(0, 25), ylim=c(0.0, 1.0), xlab =
expression(paste(BSA, " (", mu, "g)", sep="")), ylab=expression(A[595]))

plot(unknown1, abs2, col='blue', pch=16, xlim=c(0, 25), ylim=c(0.0, 1.0),
xlab = expression(paste(Unknown_1, " (", mu, "g)", sep="")),
ylab=expression(A[595]))

plot(unknown2, abs3, col='blue', pch=16, xlim=c(0, 25), ylim=c(0.0, 1.0),
xlab = expression(paste(Unknown_2, " (", mu, "g)", sep="")),
ylab=expression(A[595]))


 myline.fit <- lm(abs ~ bsa)
summary(myline.fit)
abline(myline.fit)

axis(side=1, col="gray", tck=1, lty="dotted")
axis(side=2, col="gray", tck=1, lty="dotted")
box()
minor.tick(nx=2, ny=2, tick.ratio=0.5)
title(main="Quantifying Protein Content via Bradford Microassay",
col='blue')

...I have constructed three individual plots. Is there a convenient way to
plot three vectors (not from a file) into one window? With three individual
lines of best fit? Probably using three symbols, e.g., pch=16, 17, 18, to
distinguish them.

Thanks,

~Caitlin

	[[alternative HTML version deleted]]

