====== Solution ======

<code R>
> D1 <- data.frame(inc=c(2000,1000),age=c(50,25),kids=c(2,1),edu=c(12,16),row.names=c("Alex","Vlado"))
> D1
       inc age kids edu
Alex  2000  50    2  12
Vlado 1000  25    1  16
</code>

<code R>
> D2 <- data.frame(ball=c(0,1),tenis=c(1,0),golf=c(0,0),ski=c(1,1),hike=c(0,1),row.names=c("Alex","Vlado"))
> D2
      ball tenis golf ski hike
Alex     0     1    0   1    0
Vlado    1     0    0   1    1
</code>
\\ \\
[[ru:7iss:labs:df#working_directory|Back to Data frames]]