::: {.cell}

```{.r .cell-code}
(iris.long.parts <- melt(iris.wide, measure.vars=measure(value.name, dim, sep=".")))
```

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

```
       Species    dim Sepal Petal
        <fctr> <char> <num> <num>
  1:    setosa Length   5.1   1.4
  2:    setosa Length   4.9   1.4
  3:    setosa Length   4.7   1.3
  4:    setosa Length   4.6   1.5
  5:    setosa Length   5.0   1.4
 ---                             
296: virginica  Width   3.0   2.3
297: virginica  Width   2.5   1.9
298: virginica  Width   3.0   2.0
299: virginica  Width   3.4   2.3
300: virginica  Width   3.0   1.8
```


:::
:::