## spherical SMACOF solution for trading data
## dual algorithm
res <- smacofSphere(trading, type = "ordinal")
res
plot(res)
## lower penalty
res <- smacofSphere(trading, penalty = 20, type = "ordinal")
res
plot(res)
## primal algorithm, interval
res <- smacofSphere(trading, type = "interval", algorithm = "primal")
res
Run the code above in your browser using DataLab