## Make test data available
data(sind)
sind.mat <- as.matrix(sind[, -c(1:3)])
## Ensure all data are in the same units (mg/kg)
sind.mat2open <- sind.mat
sind.mat2open[, 2] <- sind.mat2open[, 2] * 10000
## Display default 2-D Projection
sind.save <- gx.2dproj(ilr(sind.mat2open))
## Display saved object
gx.2dproj.plot(sind.save,
main = "Howarth & Sinding-Larsen
Stream Sediments, ilr Transformed Data")
## Clean-up
rm(sind.mat)
rm(sind.save)
Run the code above in your browser using DataLab