## Make test data available
data(sind)
attach(sind)
sind.mat <- as.matrix(sind[, -c(1:3)])
## Compute Pearson correlation coefficients
gx.pearson(sind.mat)
## Compute Pearson correlation coefficients following
## a logarithmic transformation
gx.pearson(sind.mat, log = TRUE)
## Compute Pearson correlation coefficients following
## a centred log ratio transformation, note necessity of
## converting percent Fe to mg/kg
sind.mat[, 2] <- sind.mat[, 2] * 10000
gx.pearson(sind.mat, ifclr = TRUE)
## Clean-up and detach test data
rm(sind.mat)
detach(sind)
Run the code above in your browser using DataLab