::: {.cell}

```{.r .cell-code}
(two.iris.wide <- iris.wide[c(1,.N)])
```

::: {.cell-output .cell-output-stdout}

```
   Sepal.Length Sepal.Width Petal.Length Petal.Width   Species
          <num>       <num>        <num>       <num>    <fctr>
1:          5.1         3.5          1.4         0.2    setosa
2:          5.9         3.0          5.1         1.8 virginica
```


:::
:::