# NOT RUN {
## Create an interactive symetric heatmap in a temporal directory of your local machine
## Live examples on https://rjsplot.usal.es
if(interactive()){
# prepare data
x <- 1-cor(t(mtcars))
source <- rep(rownames(x),nrow(x))
target <- rep(rownames(x),rep(ncol(x),nrow(x)))
links <- data.frame(source=source,target=target,value=as.vector(x))
# Create symetric heatmap
symheatmap_rjs(links, mtcars, group = "cyl")
}
# }
Run the code above in your browser using DataLab