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 = 'Learning Activities' > 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 <- 'Learning Activities' > 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 133 members at h = 105362] |--[dendrogram w/ 2 branches and 24 members at h = 34028] | |--[dendrogram w/ 2 branches and 15 members at h = 10924] | | |--[dendrogram w/ 2 branches and 2 members at h = 966] | | | |--leaf 110 | | | `--leaf 123 | | `--[dendrogram w/ 2 branches and 13 members at h = 6597] | | |--[dendrogram w/ 2 branches and 5 members at h = 1957] | | | |--leaf 105 | | | `--[dendrogram w/ 2 branches and 4 members at h = 837] | | | |--leaf 97 | | | `--[dendrogram w/ 2 branches and 3 members at h = 688] | | | |--leaf 90 | | | `--[dendrogram w/ 2 branches and 2 members at h = 208] | | | |--leaf 118 | | | `--leaf 127 | | `--[dendrogram w/ 2 branches and 8 members at h = 1991] | | |--[dendrogram w/ 2 branches and 3 members at h = 366] | | | |--leaf 113 | | | `--[dendrogram w/ 2 branches and 2 members at h = 196] | | | |--leaf 124 | | | `--leaf 128 | | `--[dendrogram w/ 2 branches and 5 members at h = 630] | | |--[dendrogram w/ 2 branches and 3 members at h = 191] | | | |--leaf 120 | | | `--[dendrogram w/ 2 branches and 2 members at h = 134] | | | |--leaf 69 | | | `--leaf 94 | | `--[dendrogram w/ 2 branches and 2 members at h = 197] | | |--leaf 59 | | `--leaf 131 | `--[dendrogram w/ 2 branches and 9 members at h = 12562] | |--[dendrogram w/ 2 branches and 3 members at h = 119] | | |--leaf 100 | | `--[dendrogram w/ 2 branches and 2 members at h = 52.4] | | |--leaf 83 | | `--leaf 85 | `--[dendrogram w/ 2 branches and 6 members at h = 3599] | |--[dendrogram w/ 2 branches and 3 members at h = 349] | | |--leaf 25 | | `--[dendrogram w/ 2 branches and 2 members at h = 53.6] | | |--leaf 34 | | `--leaf 82 | `--[dendrogram w/ 2 branches and 3 members at h = 916] | |--leaf 116 | `--[dendrogram w/ 2 branches and 2 members at h = 535] | |--leaf 45 | `--leaf 78 `--[dendrogram w/ 2 branches and 109 members at h = 67766] |--[dendrogram w/ 2 branches and 40 members at h = 17891] | |--[dendrogram w/ 2 branches and 14 members at h = 3391] | | |--[dendrogram w/ 2 branches and 3 members at h = 879] | | | |--leaf 11 | | | `--[dendrogram w/ 2 branches and 2 members at h = 235] | | | |--leaf 55 | | | `--leaf 57 | | `--[dendrogram w/ 2 branches and 11 members at h = 2209] | | |--[dendrogram w/ 2 branches and 5 members at h = 513] | | | |--[dendrogram w/ 2 branches and 2 members at h = 139] | | | | |--leaf 49 | | | | `--leaf 92 | | | `--[dendrogram w/ 2 branches and 3 members at h = 224] | | | |--leaf 129 | | | `--[dendrogram w/ 2 branches and 2 members at h = 111] | | | |--leaf 50 | | | `--leaf 132 | | `--[dendrogram w/ 2 branches and 6 members at h = 560] | | |--leaf 6 | | `--[dendrogram w/ 2 branches and 5 members at h = 413] | | |--[dendrogram w/ 2 branches and 2 members at h = 108] | | | |--leaf 61 | | | `--leaf 98 | | `--[dendrogram w/ 2 branches and 3 members at h = 232] | | |--leaf 108 | | `--[dendrogram w/ 2 branches and 2 members at h = 136] | | |--leaf 68 | | `--leaf 87 | `--[dendrogram w/ 2 branches and 26 members at h = 6548] | |--[dendrogram w/ 2 branches and 11 members at h = 1133] | | |--[dendrogram w/ 2 branches and 7 members at h = 301] | | | |--[dendrogram w/ 2 branches and 2 members at h = 57.5] | | | | |--leaf 86 | | | | `--leaf 88 | | | `--[dendrogram w/ 2 branches and 5 members at h = 207] | | | |--[dendrogram w/ 2 branches and 2 members at h = 55.1] | | | | |--leaf 89 | | | | `--leaf 126 | | | `--[dendrogram w/ 2 branches and 3 members at h = 155] | | | |--leaf 103 | | | `--[dendrogram w/ 2 branches and 2 members at h = 117] | | | |--leaf 44 | | | `--leaf 102 | | `--[dendrogram w/ 2 branches and 4 members at h = 589] | | |--[dendrogram w/ 2 branches and 2 members at h = 224] | | | |--leaf 122 | | | `--leaf 125 | | `--[dendrogram w/ 2 branches and 2 members at h = 507] | | |--leaf 33 | | `--leaf 91 | `--[dendrogram w/ 2 branches and 15 members at h = 2518] | |--[dendrogram w/ 2 branches and 6 members at h = 333] | | |--leaf 112 | | `--[dendrogram w/ 2 branches and 5 members at h = 200] | | |--[dendrogram w/ 2 branches and 2 members at h = 133] | | | |--leaf 30 | | | `--leaf 84 | | `--[dendrogram w/ 2 branches and 3 members at h = 133] | | |--leaf 22 | | `--[dendrogram w/ 2 branches and 2 members at h = 97.4] | | |--leaf 29 | | `--leaf 75 | `--[dendrogram w/ 2 branches and 9 members at h = 979] | |--[dendrogram w/ 2 branches and 3 members at h = 533] | | |--leaf 3 | | `--[dendrogram w/ 2 branches and 2 members at h = 270] | | |--leaf 40 | | `--leaf 104 | `--[dendrogram w/ 2 branches and 6 members at h = 553] | |--[dendrogram w/ 2 branches and 2 members at h = 93.2] | | |--leaf 17 | | `--leaf 65 | `--[dendrogram w/ 2 branches and 4 members at h = 263] | |--[dendrogram w/ 2 branches and 2 members at h = 70.5] | | |--leaf 95 | | `--leaf 96 | `--[dendrogram w/ 2 branches and 2 members at h = 213] | |--leaf 37 | `--leaf 107 `--[dendrogram w/ 2 branches and 69 members at h = 56147] |--[dendrogram w/ 2 branches and 30 members at h = 12289] | |--[dendrogram w/ 2 branches and 16 members at h = 3465] | | |--[dendrogram w/ 2 branches and 11 members at h = 765] | | | |--[dendrogram w/ 2 branches and 2 members at h = 160] | | | | |--leaf 7 | | | | `--leaf 35 | | | `--[dendrogram w/ 2 branches and 9 members at h = 566] | | | |--[dendrogram w/ 2 branches and 3 members at h = 272] | | | | |--leaf 31 | | | | `--[dendrogram w/ 2 branches and 2 members at h = 83.4] | | | | |--leaf 106 | | | | `--leaf 117 | | | `--[dendrogram w/ 2 branches and 6 members at h = 400] | | | |--[dendrogram w/ 2 branches and 3 members at h = 140] | | | | |--leaf 23 | | | | `--[dendrogram w/ 2 branches and 2 members at h = 63.3] | | | | |--leaf 58 | | | | `--leaf 121 | | | `--[dendrogram w/ 2 branches and 3 members at h = 143] | | | |--leaf 2 | | | `--[dendrogram w/ 2 branches and 2 members at h = 71] | | | |--leaf 52 | | | `--leaf 53 | | `--[dendrogram w/ 2 branches and 5 members at h = 2107] | | |--leaf 9 | | `--[dendrogram w/ 2 branches and 4 members at h = 301] | | |--leaf 101 | | `--[dendrogram w/ 2 branches and 3 members at h = 223] | | |--leaf 111 | | `--[dendrogram w/ 2 branches and 2 members at h = 99.8] | | |--leaf 21 | | `--leaf 64 | `--[dendrogram w/ 2 branches and 14 members at h = 5586] | |--[dendrogram w/ 2 branches and 8 members at h = 1304] | | |--[dendrogram w/ 2 branches and 5 members at h = 671] | | | |--leaf 13 | | | `--[dendrogram w/ 2 branches and 4 members at h = 372] | | | |--leaf 36 | | | `--[dendrogram w/ 2 branches and 3 members at h = 144] | | | |--leaf 39 | | | `--[dendrogram w/ 2 branches and 2 members at h = 121] | | | |--leaf 15 | | | `--leaf 46 | | `--[dendrogram w/ 2 branches and 3 members at h = 981] | | |--leaf 20 | | `--[dendrogram w/ 2 branches and 2 members at h = 68.8] | | |--leaf 41 | | `--leaf 74 | `--[dendrogram w/ 2 branches and 6 members at h = 4018] | |--leaf 114 | `--[dendrogram w/ 2 branches and 5 members at h = 1970] | |--[dendrogram w/ 2 branches and 3 members at h = 576] | | |--leaf 109 | | `--[dendrogram w/ 2 branches and 2 members at h = 339] | | |--leaf 1 | | `--leaf 115 | `--[dendrogram w/ 2 branches and 2 members at h = 918] | |--leaf 24 | `--leaf 60 `--[dendrogram w/ 2 branches and 39 members at h = 19245] |--[dendrogram w/ 2 branches and 15 members at h = 4375] | |--[dendrogram w/ 2 branches and 6 members at h = 717] | | |--[dendrogram w/ 2 branches and 3 members at h = 44.5] | | | |--leaf 14 | | | `--[dendrogram w/ 2 branches and 2 members at h = 21.2] | | | |--leaf 32 | | | `--leaf 71 | | `--[dendrogram w/ 2 branches and 3 members at h = 274] | | |--leaf 80 | | `--[dendrogram w/ 2 branches and 2 members at h = 104] | | |--leaf 54 | | `--leaf 79 | `--[dendrogram w/ 2 branches and 9 members at h = 1882] | |--[dendrogram w/ 2 branches and 5 members at h = 515] | | |--[dendrogram w/ 2 branches and 3 members at h = 172] | | | |--leaf 18 | | | `--[dendrogram w/ 2 branches and 2 members at h = 121] | | | |--leaf 62 | | | `--leaf 63 | | `--[dendrogram w/ 2 branches and 2 members at h = 215] | | |--leaf 28 | | `--leaf 48 | `--[dendrogram w/ 2 branches and 4 members at h = 664] | |--[dendrogram w/ 2 branches and 2 members at h = 126] | | |--leaf 38 | | `--leaf 51 | `--[dendrogram w/ 2 branches and 2 members at h = 240] | |--leaf 4 | `--leaf 133 `--[dendrogram w/ 2 branches and 24 members at h = 8446] |--[dendrogram w/ 2 branches and 8 members at h = 1027] | |--leaf 99 | `--[dendrogram w/ 2 branches and 7 members at h = 503] | |--[dendrogram w/ 2 branches and 3 members at h = 149] | | |--leaf 26 | | `--[dendrogram w/ 2 branches and 2 members at h = 71.1] | | |--leaf 93 | | `--leaf 130 | `--[dendrogram w/ 2 branches and 4 members at h = 303] | |--leaf 72 | `--[dendrogram w/ 2 branches and 3 members at h = 254] | |--leaf 47 | `--[dendrogram w/ 2 branches and 2 members at h = 138] | |--leaf 16 | `--leaf 67 `--[dendrogram w/ 2 branches and 16 members at h = 2555] |--[dendrogram w/ 2 branches and 5 members at h = 495] | |--[dendrogram w/ 2 branches and 3 members at h = 67.9] | | |--leaf 66 | | `--[dendrogram w/ 2 branches and 2 members at h = 51.3] | | |--leaf 19 | | `--leaf 42 | `--[dendrogram w/ 2 branches and 2 members at h = 162] | |--leaf 76 | `--leaf 77 `--[dendrogram w/ 2 branches and 11 members at h = 1625] |--leaf 5 `--[dendrogram w/ 2 branches and 10 members at h = 616] |--[dendrogram w/ 2 branches and 4 members at h = 269] | |--leaf 10 | `--[dendrogram w/ 2 branches and 3 members at h = 158] | |--leaf 56 | `--[dendrogram w/ 2 branches and 2 members at h = 109] | |--leaf 81 | `--leaf 119 `--[dendrogram w/ 2 branches and 6 members at h = 411] |--leaf 8 `--[dendrogram w/ 2 branches and 5 members at h = 157] |--[dendrogram w/ 2 branches and 3 members at h = 73.4] | |--leaf 12 | `--[dendrogram w/ 2 branches and 2 members at h = 43.8] | |--leaf 43 | `--leaf 73 `--[dendrogram w/ 2 branches and 2 members at h = 90.3] |--leaf 27 `--leaf 70 > mysub <- paste('Method: ',par1) > postscript(file="/var/wessaorg/rcomp/tmp/1a56f1335174342.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/2ihv01335174342.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/3muuq1335174342.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/42d951335174342.tab") + } > > try(system("convert tmp/1a56f1335174342.ps tmp/1a56f1335174342.png",intern=TRUE)) character(0) > try(system("convert tmp/2ihv01335174342.ps tmp/2ihv01335174342.png",intern=TRUE)) convert: unable to open image `tmp/2ihv01335174342.ps': No such file or directory @ blob.c/OpenBlob/2480. convert: missing an image filename `tmp/2ihv01335174342.png' @ convert.c/ConvertImageCommand/2838. character(0) Warning message: running command 'convert tmp/2ihv01335174342.ps tmp/2ihv01335174342.png' had status 1 > > > proc.time() user system elapsed 1.108 0.127 1.230