fixes #149

Author: edzer

vignettes/st.Rnw

@@ -119,8 +119,10 @@ The resulting plot is shown in Figure~\ref{fig:acf}.
 <<fig=FALSE,eval=FALSE>>=
 par(mfrow=c(2,2))
 # select 4, 5, 6, 7
-for(i in rn) 
-	acf(na.omit(r5to10[i,]), main = i)
+for (i in rn) {
+  x <- as.numeric(na.omit(r5to10[i, ]))
+  acf(x, main = i)
+}
 par(mfrow=c(1,1))
 @
 
@@ -130,8 +132,10 @@ par(mfrow=c(1,1))
 par(mfrow=c(2,2))
 # select 4, 5, 6, 7
 rn = row.names(r5to10@sp)[4:7]
-for(i in rn) 
-	acf(na.omit(r5to10[i,]), main = i)
+for (i in rn) {
+  x <- as.numeric(na.omit(r5to10[i, ]))
+  acf(x, main = i)
+}
 @
 \end{center}
 \caption{Autocorrelations for PM10; time lag unit in days.}