#Generate 10 objects in dimension 6
# Quantitative variables
mu <- sample(1:10, 2, replace=TRUE)
xc <- matrix(rnorm(10*2, mean = mu, sd = 1), ncol=2, byrow=TRUE)
# Binary variables
xb <- cbind(rbinom(10, 1, 0.1), rbinom(10, 1, 0.5), rbinom(10, 1, 0.9))
# Nominal variables
xn <- matrix(sample(1:3, 10, replace=TRUE), ncol=1)
x <- cbind(xc, xb, xn)
# Distances
d <- dgower(x, type=list(cuant=1:2, bin=3:5, nom=6))
Run the code above in your browser using DataLab