# NOT RUN {
# Here is reported the analysis on the State of the Union
# of USA president as shown in Cacciatore, et al. (2014)
#
# data(USA)
# kk=KODAMA(USA$data)
# cc=cmdscale(kk$dissimilarity)
# par(cex=0.5,mar=c(15,6,2,2));
# plot(USA$year,cc[,1],axes=F,pch=20,xlab="",ylab="First Component");
# axis(1,at=USA$year,labels=rownames(USA$data),las=2);
# axis(2,las=2);
# box()
#
# }
Run the code above in your browser using DataLab