\begin{Schunk}
\begin{Sinput}
 dat$z2 <- NA
 for(i in 1:NROW(dat)){
      dat$z2[i] <- if(dat$x1[i] > dat$y[i]){
          dat$x1[i] 
      } else {
          dat$x2[i]
      }
  }
\end{Sinput}
\end{Schunk}
