Attachment 'Hclust_arrayCols_PearsCorr_01.R'
Download 1 f.Hclust_col_pc <- function (
2 expr.mx,
3 title.ch)
4 {
5
6 f.distCol.Pearson <- function (expr.mx)
7 # correlation among columns
8 {
9 dist.mx <- 1 - cor (expr.mx, method = "pearson")
10 dist.dmx <- as.dist (dist.mx)
11 return (dist.dmx)
12 }
13
14 x.hclust <- hclust (d = f.distCol.Pearson (expr.mx))
15
16 x11 ()
17 plot ( x.hclust,
18 main = title.ch,
19 xlab = "1 - Pearson Correlation")
20 }
Attached Files
To refer to attachments on a page, use attachment:filename, as shown below in the list of files. Do NOT use the URL of the [get] link, since this is subject to change and can break easily.You are not allowed to attach a file to this page.