inst/examples/R/data/cluster/similarity/example_simil.R

# create binary data matrix
wtab  <- as.data.frame(Titanic)
bdat  <- cbind(wtab$Sex=="Male", 
							 wtab$Age=="Child", 
							 wtab$Survived=="Yes")
# compute similarities
library("proxy")
d <- as.matrix(simil(bdat, method='Jaccard'))
heatmap(d)
sigbertklinke/shinyExample documentation built on May 26, 2019, 4:32 a.m.