# \donttest{
library(mdsOpt)
library(smacof)
library(animation)
library(spdep)
library(clusterSim)
data(data_lower_silesian)
z<-data.Normalization(data_lower_silesian, type="n1")
d<-dist.GDM(z, method="GDM1")
res<-smacofSym(delta=d,ndim=2,type="interval")
konf<-as.matrix(res$conf)
#Uncomment only if ffmpeg is properly installed for animation package
#see: https://yihui.org/animation/example/savevideo/
#oopts = if (.Platform$OS.type == "windows") {
# ani.options(ffmpeg = "D:/Installer/ffmpeg/bin/ffmpeg.exe")
#}
#rotation2dAnimation(conf2d=konf,angle.start=-0,angle.stop=2*pi)
# }
Run the code above in your browser using DataLab