diff SMC2015latex/R/modelsprediction.R @ 42:121d0e1f1748

Added the R plots

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SMC2015latex/R/modelsprediction.R	Thu Apr 23 22:08:48 2015 +0100
@@ -0,0 +1,22 @@
+library(ggplot2)
+
+df <- read.csv("newall.csv", header = T)
+
+
+t<-theme(
+  plot.background = element_blank(), 
+#  panel.grid.major = element_blank(), 
+#  panel.grid.minor = element_blank(), 
+  panel.border = element_blank(), 
+  panel.background = element_blank(),
+  axis.line = element_line(size=.5),
+  axis.text.x = element_text(family = "sans", size=10, color = "black"),
+  axis.text.y = element_text(family = "sans", size=10, color = "black"),	                             
+  axis.title.x = element_text(family="sans", color="black", size=15, vjust = -0.7),
+  axis.title.y = element_text(family="sans", color="black", size=15, vjust = 0.4),
+  legend.position = "none"
+ )
+
+
+p <- qplot(Index,Syncopation, data = df, geom = c("point","line"), color = Model)
+p+t