***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))