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 = 'male' > 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 <- 'male' > 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 142 members at h = 110927] |--[dendrogram w/ 2 branches and 70 members at h = 42827] | |--[dendrogram w/ 2 branches and 19 members at h = 14744] | | |--[dendrogram w/ 2 branches and 5 members at h = 386] | | | |--leaf 118 | | | `--[dendrogram w/ 2 branches and 4 members at h = 278] | | | |--leaf 133 | | | `--[dendrogram w/ 2 branches and 3 members at h = 106] | | | |--leaf 88 | | | `--[dendrogram w/ 2 branches and 2 members at h = 55.3] | | | |--leaf 99 | | | `--leaf 138 | | `--[dendrogram w/ 2 branches and 14 members at h = 4364] | | |--[dendrogram w/ 2 branches and 8 members at h = 1976] | | | |--[dendrogram w/ 2 branches and 2 members at h = 151] | | | | |--leaf 125 | | | | `--leaf 137 | | | `--[dendrogram w/ 2 branches and 6 members at h = 446] | | | |--leaf 117 | | | `--[dendrogram w/ 2 branches and 5 members at h = 300] | | | |--[dendrogram w/ 2 branches and 2 members at h = 80] | | | | |--leaf 96 | | | | `--leaf 97 | | | `--[dendrogram w/ 2 branches and 3 members at h = 129] | | | |--leaf 81 | | | `--[dendrogram w/ 2 branches and 2 members at h = 79.7] | | | |--leaf 111 | | | `--leaf 119 | | `--[dendrogram w/ 2 branches and 6 members at h = 2735] | | |--[dendrogram w/ 2 branches and 2 members at h = 81.8] | | | |--leaf 109 | | | `--leaf 141 | | `--[dendrogram w/ 2 branches and 4 members at h = 1136] | | |--[dendrogram w/ 2 branches and 2 members at h = 73.6] | | | |--leaf 20 | | | `--leaf 24 | | `--[dendrogram w/ 2 branches and 2 members at h = 303] | | |--leaf 23 | | `--leaf 28 | `--[dendrogram w/ 2 branches and 51 members at h = 25587] | |--[dendrogram w/ 2 branches and 19 members at h = 4753] | | |--[dendrogram w/ 2 branches and 4 members at h = 825] | | | |--[dendrogram w/ 2 branches and 2 members at h = 66.2] | | | | |--leaf 13 | | | | `--leaf 38 | | | `--[dendrogram w/ 2 branches and 2 members at h = 756] | | | |--leaf 39 | | | `--leaf 65 | | `--[dendrogram w/ 2 branches and 15 members at h = 2877] | | |--[dendrogram w/ 2 branches and 4 members at h = 547] | | | |--[dendrogram w/ 2 branches and 2 members at h = 145] | | | | |--leaf 131 | | | | `--leaf 132 | | | `--[dendrogram w/ 2 branches and 2 members at h = 307] | | | |--leaf 6 | | | `--leaf 72 | | `--[dendrogram w/ 2 branches and 11 members at h = 1305] | | |--[dendrogram w/ 2 branches and 5 members at h = 314] | | | |--[dendrogram w/ 2 branches and 3 members at h = 109] | | | | |--leaf 27 | | | | `--[dendrogram w/ 2 branches and 2 members at h = 65] | | | | |--leaf 10 | | | | `--leaf 19 | | | `--[dendrogram w/ 2 branches and 2 members at h = 113] | | | |--leaf 15 | | | `--leaf 21 | | `--[dendrogram w/ 2 branches and 6 members at h = 503] | | |--leaf 110 | | `--[dendrogram w/ 2 branches and 5 members at h = 366] | | |--[dendrogram w/ 2 branches and 2 members at h = 168] | | | |--leaf 46 | | | `--leaf 52 | | `--[dendrogram w/ 2 branches and 3 members at h = 296] | | |--leaf 47 | | `--[dendrogram w/ 2 branches and 2 members at h = 117] | | |--leaf 64 | | `--leaf 79 | `--[dendrogram w/ 2 branches and 32 members at h = 7931] | |--[dendrogram w/ 2 branches and 12 members at h = 700] | | |--[dendrogram w/ 2 branches and 5 members at h = 313] | | | |--[dendrogram w/ 2 branches and 2 members at h = 144] | | | | |--leaf 48 | | | | `--leaf 136 | | | `--[dendrogram w/ 2 branches and 3 members at h = 233] | | | |--leaf 41 | | | `--[dendrogram w/ 2 branches and 2 members at h = 56.2] | | | |--leaf 58 | | | `--leaf 100 | | `--[dendrogram w/ 2 branches and 7 members at h = 546] | | |--[dendrogram w/ 2 branches and 2 members at h = 131] | | | |--leaf 1 | | | `--leaf 30 | | `--[dendrogram w/ 2 branches and 5 members at h = 146] | | |--[dendrogram w/ 2 branches and 2 members at h = 85.9] | | | |--leaf 11 | | | `--leaf 67 | | `--[dendrogram w/ 2 branches and 3 members at h = 104] | | |--leaf 69 | | `--[dendrogram w/ 2 branches and 2 members at h = 76.4] | | |--leaf 22 | | `--leaf 63 | `--[dendrogram w/ 2 branches and 20 members at h = 3278] | |--[dendrogram w/ 2 branches and 7 members at h = 388] | | |--[dendrogram w/ 2 branches and 3 members at h = 174] | | | |--leaf 130 | | | `--[dendrogram w/ 2 branches and 2 members at h = 78.3] | | | |--leaf 89 | | | `--leaf 134 | | `--[dendrogram w/ 2 branches and 4 members at h = 196] | | |--leaf 57 | | `--[dendrogram w/ 2 branches and 3 members at h = 145] | | |--leaf 25 | | `--[dendrogram w/ 2 branches and 2 members at h = 99.7] | | |--leaf 76 | | `--leaf 142 | `--[dendrogram w/ 2 branches and 13 members at h = 929] | |--[dendrogram w/ 2 branches and 3 members at h = 179] | | |--leaf 139 | | `--[dendrogram w/ 2 branches and 2 members at h = 86.1] | | |--leaf 26 | | `--leaf 121 | `--[dendrogram w/ 2 branches and 10 members at h = 519] | |--[dendrogram w/ 2 branches and 3 members at h = 301] | | |--leaf 94 | | `--[dendrogram w/ 2 branches and 2 members at h = 99.4] | | |--leaf 2 | | `--leaf 50 | `--[dendrogram w/ 2 branches and 7 members at h = 400] | |--[dendrogram w/ 2 branches and 2 members at h = 108] | | |--leaf 42 | | `--leaf 102 | `--[dendrogram w/ 2 branches and 5 members at h = 158] | |--[dendrogram w/ 2 branches and 3 members at h = 110] | | |--leaf 92 | | `--[dendrogram w/ 2 branches and 2 members at h = 67.1] | | |--leaf 43 | | `--leaf 122 | `--[dendrogram w/ 2 branches and 2 members at h = 152] | |--leaf 33 | `--leaf 114 `--[dendrogram w/ 2 branches and 72 members at h = 67473] |--[dendrogram w/ 2 branches and 28 members at h = 10129] | |--[dendrogram w/ 2 branches and 12 members at h = 1182] | | |--[dendrogram w/ 2 branches and 3 members at h = 148] | | | |--leaf 3 | | | `--[dendrogram w/ 2 branches and 2 members at h = 62.2] | | | |--leaf 71 | | | `--leaf 101 | | `--[dendrogram w/ 2 branches and 9 members at h = 825] | | |--leaf 124 | | `--[dendrogram w/ 2 branches and 8 members at h = 759] | | |--[dendrogram w/ 2 branches and 5 members at h = 313] | | | |--[dendrogram w/ 2 branches and 2 members at h = 61.4] | | | | |--leaf 37 | | | | `--leaf 44 | | | `--[dendrogram w/ 2 branches and 3 members at h = 173] | | | |--leaf 40 | | | `--[dendrogram w/ 2 branches and 2 members at h = 130] | | | |--leaf 36 | | | `--leaf 59 | | `--[dendrogram w/ 2 branches and 3 members at h = 400] | | |--leaf 35 | | `--[dendrogram w/ 2 branches and 2 members at h = 91.8] | | |--leaf 49 | | `--leaf 56 | `--[dendrogram w/ 2 branches and 16 members at h = 3101] | |--[dendrogram w/ 2 branches and 2 members at h = 475] | | |--leaf 17 | | `--leaf 45 | `--[dendrogram w/ 2 branches and 14 members at h = 2654] | |--[dendrogram w/ 2 branches and 3 members at h = 468] | | |--leaf 14 | | `--[dendrogram w/ 2 branches and 2 members at h = 97.1] | | |--leaf 7 | | `--leaf 12 | `--[dendrogram w/ 2 branches and 11 members at h = 1443] | |--[dendrogram w/ 2 branches and 3 members at h = 346] | | |--leaf 51 | | `--[dendrogram w/ 2 branches and 2 members at h = 237] | | |--leaf 62 | | `--leaf 68 | `--[dendrogram w/ 2 branches and 8 members at h = 1312] | |--[dendrogram w/ 2 branches and 3 members at h = 211] | | |--leaf 18 | | `--[dendrogram w/ 2 branches and 2 members at h = 80.5] | | |--leaf 8 | | `--leaf 9 | `--[dendrogram w/ 2 branches and 5 members at h = 255] | |--leaf 66 | `--[dendrogram w/ 2 branches and 4 members at h = 225] | |--[dendrogram w/ 2 branches and 2 members at h = 110] | | |--leaf 32 | | `--leaf 123 | `--[dendrogram w/ 2 branches and 2 members at h = 155] | |--leaf 53 | `--leaf 116 `--[dendrogram w/ 2 branches and 44 members at h = 30126] |--[dendrogram w/ 2 branches and 10 members at h = 11855] | |--[dendrogram w/ 2 branches and 3 members at h = 372] | | |--leaf 70 | | `--[dendrogram w/ 2 branches and 2 members at h = 118] | | |--leaf 87 | | `--leaf 120 | `--[dendrogram w/ 2 branches and 7 members at h = 5450] | |--leaf 115 | `--[dendrogram w/ 2 branches and 6 members at h = 1128] | |--[dendrogram w/ 2 branches and 2 members at h = 126] | | |--leaf 95 | | `--leaf 127 | `--[dendrogram w/ 2 branches and 4 members at h = 950] | |--leaf 82 | `--[dendrogram w/ 2 branches and 3 members at h = 382] | |--leaf 128 | `--[dendrogram w/ 2 branches and 2 members at h = 178] | |--leaf 78 | `--leaf 105 `--[dendrogram w/ 2 branches and 34 members at h = 18305] |--[dendrogram w/ 2 branches and 14 members at h = 2065] | |--[dendrogram w/ 2 branches and 5 members at h = 241] | | |--[dendrogram w/ 2 branches and 3 members at h = 161] | | | |--leaf 5 | | | `--[dendrogram w/ 2 branches and 2 members at h = 92.8] | | | |--leaf 126 | | | `--leaf 140 | | `--[dendrogram w/ 2 branches and 2 members at h = 194] | | |--leaf 61 | | `--leaf 80 | `--[dendrogram w/ 2 branches and 9 members at h = 650] | |--[dendrogram w/ 2 branches and 6 members at h = 427] | | |--[dendrogram w/ 2 branches and 2 members at h = 132] | | | |--leaf 83 | | | `--leaf 108 | | `--[dendrogram w/ 2 branches and 4 members at h = 150] | | |--[dendrogram w/ 2 branches and 2 members at h = 59.3] | | | |--leaf 16 | | | `--leaf 34 | | `--[dendrogram w/ 2 branches and 2 members at h = 66.8] | | |--leaf 103 | | `--leaf 107 | `--[dendrogram w/ 2 branches and 3 members at h = 452] | |--leaf 98 | `--[dendrogram w/ 2 branches and 2 members at h = 155] | |--leaf 31 | `--leaf 74 `--[dendrogram w/ 2 branches and 20 members at h = 8388] |--[dendrogram w/ 2 branches and 9 members at h = 1635] | |--[dendrogram w/ 2 branches and 4 members at h = 263] | | |--leaf 90 | | `--[dendrogram w/ 2 branches and 3 members at h = 174] | | |--leaf 113 | | `--[dendrogram w/ 2 branches and 2 members at h = 93.5] | | |--leaf 54 | | `--leaf 93 | `--[dendrogram w/ 2 branches and 5 members at h = 458] | |--[dendrogram w/ 2 branches and 2 members at h = 110] | | |--leaf 55 | | `--leaf 75 | `--[dendrogram w/ 2 branches and 3 members at h = 121] | |--leaf 135 | `--[dendrogram w/ 2 branches and 2 members at h = 58.2] | |--leaf 84 | `--leaf 86 `--[dendrogram w/ 2 branches and 11 members at h = 2484] |--[dendrogram w/ 2 branches and 5 members at h = 668] | |--[dendrogram w/ 2 branches and 3 members at h = 196] | | |--leaf 77 | | `--[dendrogram w/ 2 branches and 2 members at h = 116] | | |--leaf 112 | | `--leaf 129 | `--[dendrogram w/ 2 branches and 2 members at h = 288] | |--leaf 4 | `--leaf 29 `--[dendrogram w/ 2 branches and 6 members at h = 861] |--[dendrogram w/ 2 branches and 3 members at h = 138] | |--leaf 106 | `--[dendrogram w/ 2 branches and 2 members at h = 78.2] | |--leaf 85 | `--leaf 104 `--[dendrogram w/ 2 branches and 3 members at h = 381] |--leaf 60 `--[dendrogram w/ 2 branches and 2 members at h = 58.9] |--leaf 73 `--leaf 91 > mysub <- paste('Method: ',par1) > postscript(file="/var/wessaorg/rcomp/tmp/16mey1335172245.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/2mx3h1335172245.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/3141x1335172245.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/45guu1335172245.tab") + } > > try(system("convert tmp/16mey1335172245.ps tmp/16mey1335172245.png",intern=TRUE)) character(0) > try(system("convert tmp/2mx3h1335172245.ps tmp/2mx3h1335172245.png",intern=TRUE)) convert: unable to open image `tmp/2mx3h1335172245.ps': No such file or directory @ blob.c/OpenBlob/2480. convert: missing an image filename `tmp/2mx3h1335172245.png' @ convert.c/ConvertImageCommand/2838. character(0) Warning message: running command 'convert tmp/2mx3h1335172245.ps tmp/2mx3h1335172245.png' had status 1 > > > proc.time() user system elapsed 1.269 0.153 1.419