***P1 Box and Whisker > snames <- c("System 1", "System 2") > boxplot(S1P1, S2P1, main="Paragraph 1", names=snames) ***P1 Regression line >plot(S1P1~S2P1, ylim=c(0, 150),yaxs="i", xlab="System 2", ylab="System 1", xlim=c(0, 150), xaxs="i", main="System Comparison: Paragraph 1") > m <- lm(S1P1~S2P1) > abline(m) ***P2 Box and Whisker > snames <- c("System 1", "System 2") > boxplot(S1P2, S2P2, main="Paragraph 2", names=snames) ***P2 Regression line >plot(S1P2~S2P2, ylim=c(0, 150),yaxs="i", xlab="System 2", ylab="System 1", xlim=c(0, 150), xaxs="i", main="System Comparison: Paragraph 2") > m <- lm(S1P2~S2P2) > abline(m) ***P3 Box and Whisker > snames <- c("System 1", "System 2") > boxplot(S1P3, S2P3, main="Paragraph 3", names=snames) ***P3 Regression line >plot(S1P3~S2P3, ylim=c(0, 150),yaxs="i", xlab="System 2", ylab="System 1", xlim=c(0, 150), xaxs="i", main="System Comparison: Paragraph 3") > m <- lm(S1P3~S2P3) > abline(m) ***P4 Box and Whisker > snames <- c("System 1", "System 2") > boxplot(S1P4, S2P4, main="Paragraph 4", names=snames) ***P4 Regression line >plot(S1P4~S2P4, ylim=c(0, 150),yaxs="i", xlab="System 2", ylab="System 1", xlim=c(0, 150), xaxs="i", main="System Comparison: Paragraph 4") > m <- lm(S1P4~S2P4) > abline(m) ***QQ Comparisons > qqnorm(S1, main="QQ Comparison (System 1)") > qqline(S1) > qqnorm(S2, main="QQ Comparison (System 2)") > qqline(S2) ***Density Comparisons > plot(density(S1)) > lines(density(S2)) ***Paragraph Comparison > pnames <-c("Paragraph 1", "Paragraph 2", "Paragraph 3", "Paragraph 4") >boxplot(S1P1, S1P2, S1P3, S1P4, main="System 1", names=pnames, ylim=c(0, 170))