# NOT RUN {
set.seed(100)
n <- 600
x <- sample(1:100, n, replace=TRUE)
x2 <- sample(1:100, n, replace=TRUE)
x3 <- sample(1:100, n, replace=TRUE)
x4 <- sample(1:100, n, replace=TRUE)
X <- cbind.data.frame(x, x2, x3, x4)
X <- X/apply(X, 1, sum)
out <- get_coords(X)
# }
Run the code above in your browser using DataLab