suppress warnings

statistics.Rnw

@@ -123,7 +123,7 @@ library(reshape)
 library(xtable)
 @
 
-<<prepare data, echo=FALSE, message=FALSE>>=
+<<prepare data, echo=FALSE, message=FALSE, warning=FALSE>>=
 ## check user settings
 stopifnot(length(int_points) == length(int_grades))
 
@@ -217,7 +217,7 @@ ppassed <- round(100*passed/ncand, 1)
 \section*{Statistics per Task}
 \label{sec:point-statistics}
 
-<<out,echo=FALSE,warning=FALSE, fig.width=5, fig.height=5, out.width="0.49\\linewidth",fig.cap="Point distribution (per task)",fig.show='hold',fig.subcap=c("Histogram","CDF"), fig.env="figure*", fig.pos='h!'>>=
+<<out,echo=FALSE, warning=FALSE, fig.width=5, fig.height=5, out.width="0.49\\linewidth",fig.cap="Point distribution (per task)",fig.show='hold',fig.subcap=c("Histogram","CDF"), fig.env="figure*", fig.pos='h!'>>=
 axes_lim <- data.frame(variable=sprintf('A%d', value=seq(length(max_points_per_task))), value=max_points_per_task)
 ggplot(dset, aes(x=value)) +
     geom_histogram(binwidth=1, alpha=0.8)  +