\begin{Schunk}
\begin{Sinput}
 swiss$Edgt10 <- ifelse(swiss$Education > 10, TRUE, FALSE)
 str(swiss)
\end{Sinput}
\begin{Soutput}
'data.frame':	47 obs. of  7 variables:
 $ Fertility       : num  80.2 83.1 92.5 85.8 76.9 76.1 83.8 92.4 82.4 82.9 ...
 $ Agriculture     : num  17 45.1 39.7 36.5 43.5 35.3 70.2 67.8 53.3 45.2 ...
 $ Examination     : int  15 6 5 12 17 9 16 14 12 16 ...
 $ Education       : int  12 9 5 7 15 7 7 8 7 13 ...
 $ Catholic        : num  9.96 84.84 93.4 33.77 5.16 ...
 $ Infant.Mortality: num  22.2 22.2 20.2 20.3 20.6 26.6 23.6 24.9 21 24.4 ...
 $ Edgt10          : logi  TRUE FALSE FALSE FALSE TRUE FALSE ...
\end{Soutput}
\end{Schunk}
