\begin{Schunk}
\begin{Sinput}
 ## Seems like should be more direct way, but...
 z <- as.vector(Rho)
 z
\end{Sinput}
\begin{Soutput}
 [1] 1.0 0.5 0.5 0.5 0.5 0.5 1.0 0.5 0.5 0.5 0.5 0.5 1.0 0.5 0.5 0.5 0.5 0.5 1.0 0.5 0.5 0.5 0.5 0.5
[25] 1.0
\end{Soutput}
\begin{Sinput}
 ## single | for vector compare
 any(z > 1 | z < -1)
\end{Sinput}
\begin{Soutput}
[1] FALSE
\end{Soutput}
\end{Schunk}
