```
# NOT RUN {
xyTable(iris[, 3:4], digits = 6)
## Discretized uncorrelated Gaussian:
# }
# NOT RUN {
require(stats)
xy <- data.frame(x = round(sort(rnorm(100))), y = rnorm(100))
xyTable(xy, digits = 1)
# }
```

Run the code above in your browser using DataLab