## Data from Martín-Fernández et al. 2003
X <- data.frame(
X1 = c(0.0000, 0.1304, 0.1963),
X2 = c(0.1250, 0.3151, NA),
X3 = c(0.1237, NA, NA),
X4 = c(0.7253, 0.2002, 0.0819),
X5 = c(0.0260, 0.3543, 0.0114)
)
## Coerce to a compositional matrix
Y <- as_composition(X)
## Replace zeros
Z <- replace_zero(Y, value = 0.02, delta = 2/3)
Z
Run the code above in your browser using DataLab