# \donttest{
# 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.matrix(USA$data,FUN="KNN")
cc=KODAMA.visualization(kk,"t-SNE",perplexity = 10)
oldpar <- par(cex=0.5,mar=c(15,6,2,2));
plot(USA$year,cc[,1],axes=FALSE,pch=20,xlab="",ylab="First Component");
axis(1,at=USA$year,labels=rownames(USA$data),las=2);
axis(2,las=2);
box()
par(oldpar)
# }
Run the code above in your browser using DataLab