# NOT RUN {
## Generate some (high-dimensional) data
p = 25
n = 10
set.seed(333)
X = matrix(rnorm(n*p), nrow = n, ncol = p)
colnames(X)[1:25] = letters[1:25]
R <- cor(X)
## Visualize the correlation matrix as a heatmap
radioHeat(R)
## Remove diagonal entries from visualization
radioHeat(R, diag = FALSE)
## Additionally, visualize only those entries whose absolute value exceed .5
radioHeat(R, diag = FALSE, threshold = TRUE, threshvalue = .5)
## Additionally, include cell values
radioHeat(R, diag = FALSE, threshold = TRUE, threshvalue = .5,
values = TRUE, textsize = 3)
# }
Run the code above in your browser using DataLab