::: {.cell}

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

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

```
       Species flower   part    dim value
        <fctr>  <int> <char> <char> <num>
  1:    setosa      1  Sepal Length   5.1
  2:    setosa      2  Sepal Length   4.9
  3:    setosa      3  Sepal Length   4.7
  4:    setosa      4  Sepal Length   4.6
  5:    setosa      5  Sepal Length   5.0
 ---                                     
596: virginica    146  Petal  Width   2.3
597: virginica    147  Petal  Width   1.9
598: virginica    148  Petal  Width   2.0
599: virginica    149  Petal  Width   2.3
600: virginica    150  Petal  Width   1.8
```


:::
:::