\begin{Schunk}
\begin{Sinput}
 dat <-data.frame(pmr1,pmr2,pmr3)
 dat <- dat[ ,c(1,2,4,6)]
 colnames(dat) <- c("region", "NoInt", "Treatment", "Effects")
\end{Sinput}
\end{Schunk}
