FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_hierarchicalclusteringdm.wasp
Title produced by softwareHierarchical Clustering
Date of computationMon, 21 May 2012 10:20:14 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/May/21/t1337610053a2ldldxb7zeg5rm.htm/, Retrieved Thu, 02 May 2024 14:46:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=166956, Retrieved Thu, 02 May 2024 14:46:28 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact111

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Recursive Partitioning (Regression Trees)] [] [2012-05-01 12:45:50] [0cacbd6f25ea662f229a505efea21410]
- RM    [Hierarchical Clustering] [] [2012-05-01 16:25:01] [0cacbd6f25ea662f229a505efea21410]
- R P       [Hierarchical Clustering] [] [2012-05-21 14:20:14] [46e17293cd0520480fa187e99449b207] [Current]
- RMP         [Factor Analysis] [] [2012-05-21 14:52:54] [0cacbd6f25ea662f229a505efea21410]
- R P           [Factor Analysis] [] [2012-05-21 14:58:21] [0cacbd6f25ea662f229a505efea21410]
- R P           [Factor Analysis] [Factor 2] [2012-08-28 14:40:02] [52986265a8945c3b72cdef4e8a412754]
- R P         [Hierarchical Clustering] [variabelen] [2012-08-28 14:14:10] [52986265a8945c3b72cdef4e8a412754]
Feedback Forum

Post a new message

Dataset

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=166956&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=166956&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=166956&T=0

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net






Summary of Dendrogram
LabelHeight
C113.1529464379659
C313.9694349783018
C514.8660687473185
C714.8996644257513
C915.1657508881031
C1115.6843871413581
C1315.6843871413581
C1515.7797338380595
C1715.8429795177549
C1915.8551487401837
C2115.9373774505092
C2316.0934769394311
C2516.3401346383682
C2716.7630546142402
C2916.8522995463527
C3116.9519078760134
C3317.1172427686237
C3517.2809897444527
C3717.4068951855292
C3918.1107702762748
C4119.0787840283389
C4319.1312811553375
C4519.2510158710222
C4719.4935886896179
C219.8070934945974
C419.94993734326
C620
C820.0486829101875
C1020.6240874342725
C1221.5900159700406
C1423.7994649220079
C1624.2079445805477
C1824.7504001216347
C2024.9979290635432
C2225.1292456489915
C2425.7403843887062
C2626.2552445851174
C2826.327967624884
C3027.1903725427797
C3228.4100078578334
C3433.2636316478241
C3633.9706592823603
C3839.0135476124235
C4041.7008097419734
C4243.3958432467162
C4451.6476212384948
C4687.7538813988604

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
C1 & 13.1529464379659 \tabularnewline
C3 & 13.9694349783018 \tabularnewline
C5 & 14.8660687473185 \tabularnewline
C7 & 14.8996644257513 \tabularnewline
C9 & 15.1657508881031 \tabularnewline
C11 & 15.6843871413581 \tabularnewline
C13 & 15.6843871413581 \tabularnewline
C15 & 15.7797338380595 \tabularnewline
C17 & 15.8429795177549 \tabularnewline
C19 & 15.8551487401837 \tabularnewline
C21 & 15.9373774505092 \tabularnewline
C23 & 16.0934769394311 \tabularnewline
C25 & 16.3401346383682 \tabularnewline
C27 & 16.7630546142402 \tabularnewline
C29 & 16.8522995463527 \tabularnewline
C31 & 16.9519078760134 \tabularnewline
C33 & 17.1172427686237 \tabularnewline
C35 & 17.2809897444527 \tabularnewline
C37 & 17.4068951855292 \tabularnewline
C39 & 18.1107702762748 \tabularnewline
C41 & 19.0787840283389 \tabularnewline
C43 & 19.1312811553375 \tabularnewline
C45 & 19.2510158710222 \tabularnewline
C47 & 19.4935886896179 \tabularnewline
C2 & 19.8070934945974 \tabularnewline
C4 & 19.94993734326 \tabularnewline
C6 & 20 \tabularnewline
C8 & 20.0486829101875 \tabularnewline
C10 & 20.6240874342725 \tabularnewline
C12 & 21.5900159700406 \tabularnewline
C14 & 23.7994649220079 \tabularnewline
C16 & 24.2079445805477 \tabularnewline
C18 & 24.7504001216347 \tabularnewline
C20 & 24.9979290635432 \tabularnewline
C22 & 25.1292456489915 \tabularnewline
C24 & 25.7403843887062 \tabularnewline
C26 & 26.2552445851174 \tabularnewline
C28 & 26.327967624884 \tabularnewline
C30 & 27.1903725427797 \tabularnewline
C32 & 28.4100078578334 \tabularnewline
C34 & 33.2636316478241 \tabularnewline
C36 & 33.9706592823603 \tabularnewline
C38 & 39.0135476124235 \tabularnewline
C40 & 41.7008097419734 \tabularnewline
C42 & 43.3958432467162 \tabularnewline
C44 & 51.6476212384948 \tabularnewline
C46 & 87.7538813988604 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=166956&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]C1[/C][C]13.1529464379659[/C][/ROW]
[ROW][C]C3[/C][C]13.9694349783018[/C][/ROW]
[ROW][C]C5[/C][C]14.8660687473185[/C][/ROW]
[ROW][C]C7[/C][C]14.8996644257513[/C][/ROW]
[ROW][C]C9[/C][C]15.1657508881031[/C][/ROW]
[ROW][C]C11[/C][C]15.6843871413581[/C][/ROW]
[ROW][C]C13[/C][C]15.6843871413581[/C][/ROW]
[ROW][C]C15[/C][C]15.7797338380595[/C][/ROW]
[ROW][C]C17[/C][C]15.8429795177549[/C][/ROW]
[ROW][C]C19[/C][C]15.8551487401837[/C][/ROW]
[ROW][C]C21[/C][C]15.9373774505092[/C][/ROW]
[ROW][C]C23[/C][C]16.0934769394311[/C][/ROW]
[ROW][C]C25[/C][C]16.3401346383682[/C][/ROW]
[ROW][C]C27[/C][C]16.7630546142402[/C][/ROW]
[ROW][C]C29[/C][C]16.8522995463527[/C][/ROW]
[ROW][C]C31[/C][C]16.9519078760134[/C][/ROW]
[ROW][C]C33[/C][C]17.1172427686237[/C][/ROW]
[ROW][C]C35[/C][C]17.2809897444527[/C][/ROW]
[ROW][C]C37[/C][C]17.4068951855292[/C][/ROW]
[ROW][C]C39[/C][C]18.1107702762748[/C][/ROW]
[ROW][C]C41[/C][C]19.0787840283389[/C][/ROW]
[ROW][C]C43[/C][C]19.1312811553375[/C][/ROW]
[ROW][C]C45[/C][C]19.2510158710222[/C][/ROW]
[ROW][C]C47[/C][C]19.4935886896179[/C][/ROW]
[ROW][C]C2[/C][C]19.8070934945974[/C][/ROW]
[ROW][C]C4[/C][C]19.94993734326[/C][/ROW]
[ROW][C]C6[/C][C]20[/C][/ROW]
[ROW][C]C8[/C][C]20.0486829101875[/C][/ROW]
[ROW][C]C10[/C][C]20.6240874342725[/C][/ROW]
[ROW][C]C12[/C][C]21.5900159700406[/C][/ROW]
[ROW][C]C14[/C][C]23.7994649220079[/C][/ROW]
[ROW][C]C16[/C][C]24.2079445805477[/C][/ROW]
[ROW][C]C18[/C][C]24.7504001216347[/C][/ROW]
[ROW][C]C20[/C][C]24.9979290635432[/C][/ROW]
[ROW][C]C22[/C][C]25.1292456489915[/C][/ROW]
[ROW][C]C24[/C][C]25.7403843887062[/C][/ROW]
[ROW][C]C26[/C][C]26.2552445851174[/C][/ROW]
[ROW][C]C28[/C][C]26.327967624884[/C][/ROW]
[ROW][C]C30[/C][C]27.1903725427797[/C][/ROW]
[ROW][C]C32[/C][C]28.4100078578334[/C][/ROW]
[ROW][C]C34[/C][C]33.2636316478241[/C][/ROW]
[ROW][C]C36[/C][C]33.9706592823603[/C][/ROW]
[ROW][C]C38[/C][C]39.0135476124235[/C][/ROW]
[ROW][C]C40[/C][C]41.7008097419734[/C][/ROW]
[ROW][C]C42[/C][C]43.3958432467162[/C][/ROW]
[ROW][C]C44[/C][C]51.6476212384948[/C][/ROW]
[ROW][C]C46[/C][C]87.7538813988604[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=166956&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=166956&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of Dendrogram
LabelHeight
C113.1529464379659
C313.9694349783018
C514.8660687473185
C714.8996644257513
C915.1657508881031
C1115.6843871413581
C1315.6843871413581
C1515.7797338380595
C1715.8429795177549
C1915.8551487401837
C2115.9373774505092
C2316.0934769394311
C2516.3401346383682
C2716.7630546142402
C2916.8522995463527
C3116.9519078760134
C3317.1172427686237
C3517.2809897444527
C3717.4068951855292
C3918.1107702762748
C4119.0787840283389
C4319.1312811553375
C4519.2510158710222
C4719.4935886896179
C219.8070934945974
C419.94993734326
C620
C820.0486829101875
C1020.6240874342725
C1221.5900159700406
C1423.7994649220079
C1624.2079445805477
C1824.7504001216347
C2024.9979290635432
C2225.1292456489915
C2425.7403843887062
C2626.2552445851174
C2826.327967624884
C3027.1903725427797
C3228.4100078578334
C3433.2636316478241
C3633.9706592823603
C3839.0135476124235
C4041.7008097419734
C4243.3958432467162
C4451.6476212384948
C4687.7538813988604


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = ward ; par2 = ALL ; par3 = TRUE ; par4 = FALSE ; par5 = all ; par6 = prep ; par7 = all ; par8 = COLLES all ; par9 = variables ;
Parameters (R input):
par1 = ward ; par2 = ALL ; par3 = TRUE ; par4 = FALSE ; par5 = all ; par6 = prep ; par7 = all ; par8 = COLLES all ; par9 = variables ;
R code (references can be found in the software module):
par9 <- 'variables'
par8 <- 'COLLES all'
par7 <- 'all'
par6 <- 'prep'
par5 <- 'all'
par4 <- 'FALSE'
par3 <- 'FALSE'
par2 <- 'ALL'
par1 <- 'ward'
x <- as.data.frame(read.table(file='https://automated.biganalytics.eu/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)
mysub <- paste('Method: ',par1)
bitmap(file='test1.png')
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()
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)
bitmap(file='test2.png')
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)
}
load(file='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='mytable1.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='mytable2.tab')
}