R version 2.13.0 (2011-04-13) Copyright (C) 2011 The R Foundation for Statistical Computing ISBN 3-900051-07-0 Platform: i486-pc-linux-gnu (32-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > par9 = 'cases' > par8 = 'ATTLES connected' > par7 = 'all' > par6 = 'bachelor' > par5 = 'female' > par4 = 'FALSE' > par3 = 'FALSE' > par2 = 'ALL' > par1 = 'ward' > ylab = 'height' > xlab = 'cases or variables' > main = 'Dendrogram' > par9 <- 'cases' > par8 <- 'ATTLES connected' > par7 <- 'all' > par6 <- 'bachelor' > par5 <- 'female' > par4 <- 'FALSE' > par3 <- 'FALSE' > par2 <- 'ALL' > par1 <- 'ward' > #'GNU S' R Code compiled by R2WASP v. 1.2.291 () > #Author: root > #To cite this work: Wessa, P., (2012), Hierarchical Clustering (v1.0.4) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_hierarchicalclustering.wasp/ > #Source of accompanying publication: Office for Research, Development, and Education > # > x <- as.data.frame(read.table(file='http://www.wessa.net/download/utaut.csv',sep=',',header=T)) > x$U25 <- 6-x$U25 > if(par5 == 'female') x <- x[x$Gender==0,] > if(par5 == 'male') x <- x[x$Gender==1,] > if(par6 == 'prep') x <- x[x$Pop==1,] > if(par6 == 'bachelor') x <- x[x$Pop==0,] > if(par7 != 'all') { + x <- x[x$Year==as.numeric(par7),] + } > cAc <- with(x,cbind( A1, A2, A3, A4, A5, A6, A7, A8, A9,A10)) > cAs <- with(x,cbind(A11,A12,A13,A14,A15,A16,A17,A18,A19,A20)) > cA <- cbind(cAc,cAs) > cCa <- with(x,cbind(C1,C3,C5,C7, C9,C11,C13,C15,C17,C19,C21,C23,C25,C27,C29,C31,C33,C35,C37,C39,C41,C43,C45,C47)) > cCp <- with(x,cbind(C2,C4,C6,C8,C10,C12,C14,C16,C18,C20,C22,C24,C26,C28,C30,C32,C34,C36,C38,C40,C42,C44,C46,C48)) > cC <- cbind(cCa,cCp) > cU <- with(x,cbind(U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19,U20,U21,U22,U23,U24,U25,U26,U27,U28,U29,U30,U31,U32,U33)) > cE <- with(x,cbind(BC,NNZFG,MRT,AFL,LPM,LPC,W,WPA)) > cX <- with(x,cbind(X1,X2,X3,X4,X5,X6,X7,X8,X9,X10,X11,X12,X13,X14,X15,X16,X17,X18)) > if (par8=='ATTLES connected') x <- cAc > if (par8=='ATTLES separate') x <- cAs > if (par8=='ATTLES all') x <- cA > if (par8=='COLLES actuals') x <- cCa > if (par8=='COLLES preferred') x <- cCp > if (par8=='COLLES all') x <- cC > if (par8=='CSUQ') x <- cU > if (par8=='Learning Activities') x <- cE > if (par8=='Exam Items') x <- cX > ncol <- length(x[1,]) > for (jjj in 1:ncol) { + x <- x[!is.na(x[,jjj]),] + } > par3 <- as.logical(par3) > par4 <- as.logical(par4) > if (par3 == TRUE){ + dum = xlab + xlab = ylab + ylab = dum + } > if (par9=='variables') { + x <- t(x) + } else { + ncol <- length(x[1,]) + colnames(x) <- 1:ncol + } > hc <- hclust(dist(x),method=par1) > d <- as.dendrogram(hc) > str(d) --[dendrogram w/ 2 branches and 227 members at h = 49.9] |--[dendrogram w/ 2 branches and 62 members at h = 19.6] | |--[dendrogram w/ 2 branches and 22 members at h = 7.33] | | |--[dendrogram w/ 2 branches and 9 members at h = 5.43] | | | |--[dendrogram w/ 2 branches and 3 members at h = 2.82] | | | | |--leaf 215 | | | | `--[dendrogram w/ 2 branches and 2 members at h = 2] | | | | |--leaf 112 | | | | `--leaf 164 | | | `--[dendrogram w/ 2 branches and 6 members at h = 3.19] | | | |--[dendrogram w/ 2 branches and 3 members at h = 1.28] | | | | |--leaf 208 | | | | `--[dendrogram w/ 2 branches and 2 members at h = 1] | | | | |--leaf 90 | | | | `--leaf 119 | | | `--[dendrogram w/ 2 branches and 3 members at h = 2.31] | | | |--leaf 209 | | | `--[dendrogram w/ 2 branches and 2 members at h = 2] | | | |--leaf 148 | | | `--leaf 173 | | `--[dendrogram w/ 2 branches and 13 members at h = 5.57] | | |--[dendrogram w/ 2 branches and 3 members at h = 2.15] | | | |--leaf 206 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1] | | | |--leaf 133 | | | `--leaf 163 | | `--[dendrogram w/ 2 branches and 10 members at h = 4.78] | | |--[dendrogram w/ 2 branches and 6 members at h = 2.37] | | | |--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | | |--leaf 179 | | | | `--leaf 197 | | | `--[dendrogram w/ 2 branches and 4 members at h = 1.87] | | | |--leaf 217 | | | `--[dendrogram w/ 2 branches and 3 members at h = 1.28] | | | |--leaf 212 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1] | | | |--leaf 165 | | | `--leaf 223 | | `--[dendrogram w/ 2 branches and 4 members at h = 2.97] | | |--leaf 33 | | `--[dendrogram w/ 2 branches and 3 members at h = 2.51] | | |--leaf 128 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | |--leaf 60 | | `--leaf 198 | `--[dendrogram w/ 2 branches and 40 members at h = 12.4] | |--[dendrogram w/ 2 branches and 18 members at h = 5.45] | | |--[dendrogram w/ 2 branches and 7 members at h = 3.81] | | | |--[dendrogram w/ 2 branches and 3 members at h = 2.21] | | | | |--leaf 170 | | | | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | | |--leaf 116 | | | | `--leaf 168 | | | `--[dendrogram w/ 2 branches and 4 members at h = 3.04] | | | |--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | | | |--leaf 218 | | | | `--leaf 226 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | | |--leaf 220 | | | `--leaf 221 | | `--[dendrogram w/ 2 branches and 11 members at h = 4.73] | | |--[dendrogram w/ 2 branches and 4 members at h = 2.57] | | | |--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | | |--leaf 37 | | | | `--leaf 55 | | | `--[dendrogram w/ 2 branches and 2 members at h = 2] | | | |--leaf 186 | | | `--leaf 213 | | `--[dendrogram w/ 2 branches and 7 members at h = 3.51] | | |--leaf 175 | | `--[dendrogram w/ 2 branches and 6 members at h = 2.62] | | |--[dendrogram w/ 2 branches and 3 members at h = 1.28] | | | |--leaf 199 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1] | | | |--leaf 137 | | | `--leaf 187 | | `--[dendrogram w/ 2 branches and 3 members at h = 2.15] | | |--leaf 161 | | `--[dendrogram w/ 2 branches and 2 members at h = 1] | | |--leaf 151 | | `--leaf 201 | `--[dendrogram w/ 2 branches and 22 members at h = 9.25] | |--[dendrogram w/ 2 branches and 11 members at h = 5.8] | | |--[dendrogram w/ 2 branches and 4 members at h = 3.23] | | | |--leaf 145 | | | `--[dendrogram w/ 2 branches and 3 members at h = 1.84] | | | |--leaf 180 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | | |--leaf 171 | | | `--leaf 182 | | `--[dendrogram w/ 2 branches and 7 members at h = 4.48] | | |--[dendrogram w/ 2 branches and 2 members at h = 2.45] | | | |--leaf 178 | | | `--leaf 195 | | `--[dendrogram w/ 2 branches and 5 members at h = 2.68] | | |--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | | |--leaf 131 | | | `--leaf 150 | | `--[dendrogram w/ 2 branches and 3 members at h = 2.25] | | |--leaf 144 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | |--leaf 129 | | `--leaf 146 | `--[dendrogram w/ 2 branches and 11 members at h = 7.31] | |--[dendrogram w/ 2 branches and 5 members at h = 3.95] | | |--[dendrogram w/ 2 branches and 3 members at h = 2.45] | | | |--leaf 191 | | | `--[dendrogram w/ 2 branches and 2 members at h = 2.45] | | | |--leaf 123 | | | `--leaf 149 | | `--[dendrogram w/ 2 branches and 2 members at h = 2.65] | | |--leaf 26 | | `--leaf 118 | `--[dendrogram w/ 2 branches and 6 members at h = 4.35] | |--[dendrogram w/ 2 branches and 2 members at h = 2.45] | | |--leaf 169 | | `--leaf 216 | `--[dendrogram w/ 2 branches and 4 members at h = 2.63] | |--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | |--leaf 207 | | `--leaf 219 | `--[dendrogram w/ 2 branches and 2 members at h = 2.24] | |--leaf 16 | `--leaf 130 `--[dendrogram w/ 2 branches and 165 members at h = 46.7] |--[dendrogram w/ 2 branches and 31 members at h = 13] | |--[dendrogram w/ 2 branches and 3 members at h = 4.16] | | |--leaf 57 | | `--[dendrogram w/ 2 branches and 2 members at h = 2.45] | | |--leaf 4 | | `--leaf 225 | `--[dendrogram w/ 2 branches and 28 members at h = 10.4] | |--[dendrogram w/ 2 branches and 12 members at h = 6.48] | | |--[dendrogram w/ 2 branches and 3 members at h = 3.46] | | | |--leaf 107 | | | `--[dendrogram w/ 2 branches and 2 members at h = 2.83] | | | |--leaf 6 | | | `--leaf 17 | | `--[dendrogram w/ 2 branches and 9 members at h = 5.85] | | |--[dendrogram w/ 2 branches and 4 members at h = 3.14] | | | |--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | | |--leaf 185 | | | | `--leaf 222 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | |--leaf 189 | | | `--leaf 211 | | `--[dendrogram w/ 2 branches and 5 members at h = 4.39] | | |--[dendrogram w/ 2 branches and 2 members at h = 2.24] | | | |--leaf 154 | | | `--leaf 224 | | `--[dendrogram w/ 2 branches and 3 members at h = 3.71] | | |--leaf 214 | | `--[dendrogram w/ 2 branches and 2 members at h = 3] | | |--leaf 73 | | `--leaf 109 | `--[dendrogram w/ 2 branches and 16 members at h = 9.34] | |--[dendrogram w/ 2 branches and 7 members at h = 5.11] | | |--[dendrogram w/ 2 branches and 3 members at h = 3.07] | | | |--leaf 23 | | | `--[dendrogram w/ 2 branches and 2 members at h = 2] | | | |--leaf 32 | | | `--leaf 49 | | `--[dendrogram w/ 2 branches and 4 members at h = 3.99] | | |--leaf 159 | | `--[dendrogram w/ 2 branches and 3 members at h = 2.52] | | |--leaf 35 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | |--leaf 2 | | `--leaf 38 | `--[dendrogram w/ 2 branches and 9 members at h = 5.7] | |--[dendrogram w/ 2 branches and 3 members at h = 3.74] | | |--leaf 58 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | |--leaf 18 | | `--leaf 66 | `--[dendrogram w/ 2 branches and 6 members at h = 4.47] | |--[dendrogram w/ 2 branches and 3 members at h = 3] | | |--leaf 69 | | `--[dendrogram w/ 2 branches and 2 members at h = 2.65] | | |--leaf 3 | | `--leaf 12 | `--[dendrogram w/ 2 branches and 3 members at h = 3.1] | |--leaf 63 | `--[dendrogram w/ 2 branches and 2 members at h = 2] | |--leaf 19 | `--leaf 61 `--[dendrogram w/ 2 branches and 134 members at h = 25.6] |--[dendrogram w/ 2 branches and 69 members at h = 16.5] | |--[dendrogram w/ 2 branches and 20 members at h = 9.45] | | |--[dendrogram w/ 2 branches and 4 members at h = 3.69] | | | |--[dendrogram w/ 2 branches and 2 members at h = 2.24] | | | | |--leaf 98 | | | | `--leaf 106 | | | `--[dendrogram w/ 2 branches and 2 members at h = 3.61] | | | |--leaf 167 | | | `--leaf 204 | | `--[dendrogram w/ 2 branches and 16 members at h = 7.2] | | |--[dendrogram w/ 2 branches and 2 members at h = 2.65] | | | |--leaf 81 | | | `--leaf 91 | | `--[dendrogram w/ 2 branches and 14 members at h = 5.44] | | |--[dendrogram w/ 2 branches and 8 members at h = 3.4] | | | |--[dendrogram w/ 2 branches and 2 members at h = 0] | | | | |--leaf 40 | | | | `--leaf 68 | | | `--[dendrogram w/ 2 branches and 6 members at h = 2.76] | | | |--[dendrogram w/ 2 branches and 3 members at h = 2.15] | | | | |--leaf 13 | | | | `--[dendrogram w/ 2 branches and 2 members at h = 1] | | | | |--leaf 24 | | | | `--leaf 56 | | | `--[dendrogram w/ 2 branches and 3 members at h = 2.15] | | | |--leaf 93 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1] | | | |--leaf 94 | | | `--leaf 115 | | `--[dendrogram w/ 2 branches and 6 members at h = 3.92] | | |--[dendrogram w/ 2 branches and 3 members at h = 2.25] | | | |--leaf 48 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | |--leaf 20 | | | `--leaf 100 | | `--[dendrogram w/ 2 branches and 3 members at h = 3.24] | | |--leaf 82 | | `--[dendrogram w/ 2 branches and 2 members at h = 2.24] | | |--leaf 9 | | `--leaf 114 | `--[dendrogram w/ 2 branches and 49 members at h = 15.8] | |--[dendrogram w/ 2 branches and 21 members at h = 9.73] | | |--[dendrogram w/ 2 branches and 9 members at h = 4.71] | | | |--[dendrogram w/ 2 branches and 4 members at h = 2.26] | | | | |--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | | | | |--leaf 27 | | | | | `--leaf 52 | | | | `--[dendrogram w/ 2 branches and 2 members at h = 2] | | | | |--leaf 96 | | | | `--leaf 122 | | | `--[dendrogram w/ 2 branches and 5 members at h = 3.06] | | | |--[dendrogram w/ 2 branches and 3 members at h = 1.91] | | | | |--leaf 59 | | | | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | | |--leaf 10 | | | | `--leaf 51 | | | `--[dendrogram w/ 2 branches and 2 members at h = 2.65] | | | |--leaf 183 | | | `--leaf 193 | | `--[dendrogram w/ 2 branches and 12 members at h = 6.63] | | |--[dendrogram w/ 2 branches and 4 members at h = 2.45] | | | |--leaf 31 | | | `--[dendrogram w/ 2 branches and 3 members at h = 2.17] | | | |--leaf 47 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | | |--leaf 79 | | | `--leaf 181 | | `--[dendrogram w/ 2 branches and 8 members at h = 5.79] | | |--[dendrogram w/ 2 branches and 3 members at h = 2.79] | | | |--leaf 89 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1] | | | |--leaf 192 | | | `--leaf 200 | | `--[dendrogram w/ 2 branches and 5 members at h = 3.67] | | |--[dendrogram w/ 2 branches and 2 members at h = 1] | | | |--leaf 84 | | | `--leaf 92 | | `--[dendrogram w/ 2 branches and 3 members at h = 1.76] | | |--leaf 111 | | `--[dendrogram w/ 2 branches and 2 members at h = 1] | | |--leaf 70 | | `--leaf 102 | `--[dendrogram w/ 2 branches and 28 members at h = 10.8] | |--[dendrogram w/ 2 branches and 10 members at h = 5.13] | | |--[dendrogram w/ 2 branches and 3 members at h = 2.82] | | | |--leaf 67 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | |--leaf 41 | | | `--leaf 196 | | `--[dendrogram w/ 2 branches and 7 members at h = 3.27] | | |--[dendrogram w/ 2 branches and 3 members at h = 2.38] | | | |--leaf 85 | | | `--[dendrogram w/ 2 branches and 2 members at h = 2.24] | | | |--leaf 43 | | | `--leaf 62 | | `--[dendrogram w/ 2 branches and 4 members at h = 2.63] | | |--leaf 22 | | `--[dendrogram w/ 2 branches and 3 members at h = 1.84] | | |--leaf 74 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | |--leaf 71 | | `--leaf 101 | `--[dendrogram w/ 2 branches and 18 members at h = 5.77] | |--[dendrogram w/ 2 branches and 5 members at h = 3.11] | | |--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | |--leaf 34 | | | `--leaf 46 | | `--[dendrogram w/ 2 branches and 3 members at h = 2.45] | | |--leaf 190 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | |--leaf 36 | | `--leaf 105 | `--[dendrogram w/ 2 branches and 13 members at h = 4.78] | |--[dendrogram w/ 2 branches and 7 members at h = 3.1] | | |--[dendrogram w/ 2 branches and 4 members at h = 1.87] | | | |--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | | | |--leaf 136 | | | | `--leaf 141 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | |--leaf 162 | | | `--leaf 203 | | `--[dendrogram w/ 2 branches and 3 members at h = 2.25] | | |--leaf 202 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | |--leaf 77 | | `--leaf 157 | `--[dendrogram w/ 2 branches and 6 members at h = 4.08] | |--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | |--leaf 76 | | `--leaf 88 | `--[dendrogram w/ 2 branches and 4 members at h = 3.28] | |--leaf 166 | `--[dendrogram w/ 2 branches and 3 members at h = 2.17] | |--leaf 121 | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | |--leaf 7 | `--leaf 125 `--[dendrogram w/ 2 branches and 65 members at h = 22.5] |--[dendrogram w/ 2 branches and 20 members at h = 10.9] | |--[dendrogram w/ 2 branches and 8 members at h = 5.29] | | |--[dendrogram w/ 2 branches and 3 members at h = 2.7] | | | |--leaf 50 | | | `--[dendrogram w/ 2 branches and 2 members at h = 2.45] | | | |--leaf 28 | | | `--leaf 99 | | `--[dendrogram w/ 2 branches and 5 members at h = 4.11] | | |--[dendrogram w/ 2 branches and 2 members at h = 2] | | | |--leaf 104 | | | `--leaf 108 | | `--[dendrogram w/ 2 branches and 3 members at h = 3.29] | | |--leaf 174 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | |--leaf 30 | | `--leaf 54 | `--[dendrogram w/ 2 branches and 12 members at h = 8.31] | |--[dendrogram w/ 2 branches and 5 members at h = 3.84] | | |--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | |--leaf 8 | | | `--leaf 83 | | `--[dendrogram w/ 2 branches and 3 members at h = 2.2] | | |--leaf 42 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | |--leaf 39 | | `--leaf 120 | `--[dendrogram w/ 2 branches and 7 members at h = 5.53] | |--[dendrogram w/ 2 branches and 2 members at h = 2.45] | | |--leaf 65 | | `--leaf 117 | `--[dendrogram w/ 2 branches and 5 members at h = 4.45] | |--leaf 124 | `--[dendrogram w/ 2 branches and 4 members at h = 2.93] | |--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | |--leaf 45 | | `--leaf 78 | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | |--leaf 80 | `--leaf 110 `--[dendrogram w/ 2 branches and 45 members at h = 14.5] |--[dendrogram w/ 2 branches and 18 members at h = 7.77] | |--[dendrogram w/ 2 branches and 8 members at h = 4.95] | | |--[dendrogram w/ 2 branches and 4 members at h = 3.01] | | | |--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | | | |--leaf 64 | | | | `--leaf 152 | | | `--[dendrogram w/ 2 branches and 2 members at h = 2] | | | |--leaf 14 | | | `--leaf 227 | | `--[dendrogram w/ 2 branches and 4 members at h = 3.41] | | |--[dendrogram w/ 2 branches and 2 members at h = 2] | | | |--leaf 25 | | | `--leaf 87 | | `--[dendrogram w/ 2 branches and 2 members at h = 2] | | |--leaf 138 | | `--leaf 143 | `--[dendrogram w/ 2 branches and 10 members at h = 5.86] | |--leaf 140 | `--[dendrogram w/ 2 branches and 9 members at h = 4.48] | |--[dendrogram w/ 2 branches and 4 members at h = 2.4] | | |--leaf 97 | | `--[dendrogram w/ 2 branches and 3 members at h = 1.84] | | |--leaf 15 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | |--leaf 11 | | `--leaf 21 | `--[dendrogram w/ 2 branches and 5 members at h = 3.63] | |--[dendrogram w/ 2 branches and 3 members at h = 1.91] | | |--leaf 53 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | |--leaf 1 | | `--leaf 132 | `--[dendrogram w/ 2 branches and 2 members at h = 2] | |--leaf 72 | `--leaf 75 `--[dendrogram w/ 2 branches and 27 members at h = 8.74] |--[dendrogram w/ 2 branches and 12 members at h = 5.47] | |--[dendrogram w/ 2 branches and 7 members at h = 2.37] | | |--[dendrogram w/ 2 branches and 4 members at h = 1.71] | | | |--leaf 160 | | | `--[dendrogram w/ 2 branches and 3 members at h = 1.41] | | | |--leaf 156 | | | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | | |--leaf 44 | | | `--leaf 113 | | `--[dendrogram w/ 2 branches and 3 members at h = 1.8] | | |--leaf 177 | | `--[dendrogram w/ 2 branches and 2 members at h = 1.41] | | |--leaf 153 | | `--leaf 184 | `--[dendrogram w/ 2 branches and 5 members at h = 3.94] | |--[dendrogram w/ 2 branches and 2 members at h = 1.73] | | |--leaf 29 | | `--leaf 95 | `--[dendrogram w/ 2 branches and 3 members at h = 3.44] | |--leaf 172 | `--[dendrogram w/ 2 branches and 2 members at h = 2.83] | |--leaf 127 | `--leaf 135 `--[dendrogram w/ 2 branches and 15 members at h = 7.45] |--[dendrogram w/ 2 branches and 3 members at h = 3.55] | |--leaf 158 | `--[dendrogram w/ 2 branches and 2 members at h = 1] | |--leaf 205 | `--leaf 210 `--[dendrogram w/ 2 branches and 12 members at h = 4.71] |--[dendrogram w/ 2 branches and 3 members at h = 2.31] | |--leaf 86 | `--[dendrogram w/ 2 branches and 2 members at h = 2] | |--leaf 147 | `--leaf 155 `--[dendrogram w/ 2 branches and 9 members at h = 3.42] |--[dendrogram w/ 2 branches and 3 members at h = 1.76] | |--leaf 139 | `--[dendrogram w/ 2 branches and 2 members at h = 1] | |--leaf 176 | `--leaf 194 `--[dendrogram w/ 2 branches and 6 members at h = 2.51] |--[dendrogram w/ 2 branches and 3 members at h = 1.91] | |--leaf 142 | `--[dendrogram w/ 2 branches and 2 members at h = 1.73] | |--leaf 134 | `--leaf 188 `--[dendrogram w/ 2 branches and 3 members at h = 2.17] |--leaf 103 `--[dendrogram w/ 2 branches and 2 members at h = 1.41] |--leaf 5 `--leaf 126 > mysub <- paste('Method: ',par1) > postscript(file="/var/wessaorg/rcomp/tmp/1sjsl1335802872.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > if (par4 == TRUE){ + plot(d,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8),type='t',center=T, sub=mysub) + } else { + plot(d,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8), sub=mysub) + } > dev.off() null device 1 > if (par2 != 'ALL'){ + if (par3 == TRUE){ + ylab = 'cluster' + } else { + xlab = 'cluster' + } + par2 <- as.numeric(par2) + memb <- cutree(hc, k = par2) + cent <- NULL + for(k in 1:par2){ + cent <- rbind(cent, colMeans(x[memb == k, , drop = FALSE])) + } + hc1 <- hclust(dist(cent),method=par1, members = table(memb)) + de <- as.dendrogram(hc1) + postscript(file="/var/wessaorg/rcomp/tmp/2uicu1335802872.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) + if (par4 == TRUE){ + plot(de,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8),type='t',center=T, sub=mysub) + } else { + plot(de,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8), sub=mysub) + } + dev.off() + str(de) + } > > #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/wessaorg/rcomp/createtable") > > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Summary of Dendrogram',2,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Label',header=TRUE) > a<-table.element(a,'Height',header=TRUE) > a<-table.row.end(a) > num <- length(x[,1])-1 > for (i in 1:num) + { + a<-table.row.start(a) + a<-table.element(a,hc$labels[i]) + a<-table.element(a,hc$height[i]) + a<-table.row.end(a) + } > a<-table.end(a) > table.save(a,file="/var/wessaorg/rcomp/tmp/3fcqt1335802872.tab") > if (par2 != 'ALL'){ + a<-table.start() + a<-table.row.start(a) + a<-table.element(a,'Summary of Cut Dendrogram',2,TRUE) + a<-table.row.end(a) + a<-table.row.start(a) + a<-table.element(a,'Label',header=TRUE) + a<-table.element(a,'Height',header=TRUE) + a<-table.row.end(a) + num <- par2-1 + for (i in 1:num) + { + a<-table.row.start(a) + a<-table.element(a,i) + a<-table.element(a,hc1$height[i]) + a<-table.row.end(a) + } + a<-table.end(a) + table.save(a,file="/var/wessaorg/rcomp/tmp/4vixm1335802872.tab") + } > > try(system("convert tmp/1sjsl1335802872.ps tmp/1sjsl1335802872.png",intern=TRUE)) character(0) > try(system("convert tmp/2uicu1335802872.ps tmp/2uicu1335802872.png",intern=TRUE)) convert: unable to open image `tmp/2uicu1335802872.ps': No such file or directory @ blob.c/OpenBlob/2480. convert: missing an image filename `tmp/2uicu1335802872.png' @ convert.c/ConvertImageCommand/2838. character(0) Warning message: running command 'convert tmp/2uicu1335802872.ps tmp/2uicu1335802872.png' had status 1 > > > proc.time() user system elapsed 1.734 0.186 1.912