almost done with xrd

xrd/plots.R

@@ -0,0 +1,30 @@
+plot(x=x,y=plastic_count[,1],pch='-',ylab=expression(count),xlab=expression(2~theta ~ degree))
+abline(v=42.5)
+axis(3,at=42.5)
+abline(v=14)
+axis(3,at=14)
+abline(v=30.5)
+axis(3,at=30.5)
+dev.print(pdf,"../report/plastic_peaks.pdf",width=8,height=2)
+
+
+
+
+plot(x=x,y=grease_count[,1],pch='-',ylab=expression(count),xlab=expression(2~theta ~ degree))
+abline(v=12)
+axis(3,at=12)
+abline(v=22)
+axis(3,at=22)
+dev.print(pdf,"../report/grease_peaks.pdf",width=8,height=2)
+
+
+plot(x=x,y=wood_count[,1],pch='-',ylab=expression(count),xlab=expression(2~theta ~ degree))
+abline(v=22.5)
+axis(3,at=22.5)
+abline(v=16)
+axis(3,at=16)
+abline(v=34.5)
+axis(3,at=34.5)
+abline(v=46)
+axis(3,at=46)
+dev.print(pdf,"../report/wood_peaks.pdf",width=8,height=2)