1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| library(pheatmap)
test = matrix(rnorm(200), 20, 10) test[1:10, seq(1, 10, 2)] = test[1:10, seq(1, 10, 2)] + 3 test[11:20, seq(2, 10, 2)] = test[11:20, seq(2, 10, 2)] + 2 test[15:20, seq(2, 10, 2)] = test[15:20, seq(2, 10, 2)] + 4 colnames(test) = paste("Test", 1:10, sep = "") rownames(test) = paste("Gene", 1:20, sep = "") Test1 Test2 Test3 Test4 Test5 Test6 Test7 Test8 Test9 Test10 Gene1 2.476974 -0.7096602 3.405717 -0.1529692 1.686829 -1.7756402 4.160293 -0.09614398 2.273536 -0.24355689 Gene2 0.922408 0.7340569 1.467666 0.2049912 3.148910 -1.7416155 3.881041 -0.03267105 1.842824 -0.90024776 Gene3 3.351652 -1.3851371 3.402637 1.0768550 1.945714 -0.6581165 2.577626 -1.40488930 2.605290 0.02030097 Gene4 4.303986 1.7070171 3.690117 0.1744926 3.244208 -0.3064566 2.977539 -0.78373884 4.813468 0.59676061 Gene5 2.603092 -0.0881564 3.983556 -0.1484519 3.618336 0.8662581 2.292649 0.69703269 3.105478 0.45457643 Gene6 2.255703 -0.3186929 4.288485 -0.1407605 2.351381 -0.3532394 2.147897 0.61440403 3.328062 0.44279539
|