## Make test data available
data(sind.mat2open)
## Display default, Sammon non-linear map, 2-d projection
sind.save <- gx.2dproj(ilr(sind.mat2open))
## Display saved object identifying input matrix row numbers (cex = 0.7),
## and with an alternate main title (cex.main = 0.8)
gx.2dproj.plot(sind.save, idplot = TRUE, cex = 0.7, cex.main = 0.8,
main = "Howarth & Sinding-Larsen
Stream Sediment ilr Transformed Data")
## Display Kruskal's non-metric multidimensional scaling 2-d projection
sind.save <- gx.2dproj(ilr(sind.mat2open), proc = "iso")
## Display saved object identifying input matrix row numbers (cex = 0.7),
## and with an alternate main title (cex.main = 0.8)
gx.2dproj.plot(sind.save, idplot = TRUE, cex = 0.7, cex.main = 0.8,
main = "Howarth & Sinding-Larsen
Stream Sediment ilr Transformed Data")
## Clean-up
rm(sind.save)
Run the code above in your browser using DataLab