FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_hierarchicalclustering.wasp
Title produced by softwareHierarchical Clustering
Date of computationWed, 16 Jul 2008 09:48:58 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Jul/16/t1216223601us67r0u0fnl4m2i.htm/, Retrieved Wed, 20 May 2026 18:19:02 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=13854, Retrieved Wed, 20 May 2026 18:19:02 +0000
QR Codes:

Original text written by user:Speaker 7 is Jamaican American, 17 and 18 are White, 22 is African American. The rest are Latinos. Only each speaker's mean on each variable is entered, and variance may also differ greatly from speaker to speaker
IsPrivate?No (this computation is public)
User-defined keywordsDialect, linguistic variables, phonology, New York Latino English
Estimated Impact567

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Latino and non-La...] [2008-07-16 15:48:58] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1242	53.3378892	0.3	0.2	0.55
1409	51.54252286	0.35	0.40	0.5
1382	45.66746227	0.15	0.15	0.45
1360	60.28608098	0.25	0	0.7
1290	51.9665734	0.35	0.05	0.3
1392	49.59081642	0.28	0.08	0.08
1240	63.87849286	0.00	0.05	0.15
1483	56.25887972	0.05	0.05	0.35
1337	44.52116869	0.40	0.25	0.8
1340	50.99053844	0.10	0.05	0.2
1305	57.9761287	0.30	0.15	0.3
1332	59.05876421	0.50	0.40	0.55
1311	54.38514908	0.01	0.05	0.5
1486	51.7088	0.15	0.2	0.68
1086	64.06254453	0.30	0.00	0.05
1554	47.6887751	0.25	0.00	0.5
1221	55.31806964	0.06	0.00	0
1217	57.40079038	0.00	0.00	0
1232	58.64053664	0.00	0.00	0.65
1433	59.66765859	0.15	0.05	0.45
1317	60.25125136	0.45	0.00	0.33
1180	54.01067896	0.00	0.00	0.3
1366	56.24085014	0.15	0.00	0.45
1279	46.04551408	0.35	0.10	0.6

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\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 & 3 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=13854&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=13854&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=13854&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 time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001






Summary of Dendrogram
LabelHeight
14.51013588274524
25.46302347225008
37.00208787657334
47.165385192871
57.24129771165964
68.4045318703317
79.5754208974142
810.7413605058766
910.7494840707041
1011.3798623487146
1111.5093391194321
1212.4960571169853
1315.0543324529158
1416.1594323818554
1517.1199549657100
1619.1786086838817
1722.0608728547388
1825.3413265365277
1937.1561953843503
2037.7119839691681
2150.1162625640077
2268.119329123213
2394.536725675461

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 4.51013588274524 \tabularnewline
2 & 5.46302347225008 \tabularnewline
3 & 7.00208787657334 \tabularnewline
4 & 7.165385192871 \tabularnewline
5 & 7.24129771165964 \tabularnewline
6 & 8.4045318703317 \tabularnewline
7 & 9.5754208974142 \tabularnewline
8 & 10.7413605058766 \tabularnewline
9 & 10.7494840707041 \tabularnewline
10 & 11.3798623487146 \tabularnewline
11 & 11.5093391194321 \tabularnewline
12 & 12.4960571169853 \tabularnewline
13 & 15.0543324529158 \tabularnewline
14 & 16.1594323818554 \tabularnewline
15 & 17.1199549657100 \tabularnewline
16 & 19.1786086838817 \tabularnewline
17 & 22.0608728547388 \tabularnewline
18 & 25.3413265365277 \tabularnewline
19 & 37.1561953843503 \tabularnewline
20 & 37.7119839691681 \tabularnewline
21 & 50.1162625640077 \tabularnewline
22 & 68.119329123213 \tabularnewline
23 & 94.536725675461 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=13854&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]4.51013588274524[/C][/ROW]
[ROW][C]2[/C][C]5.46302347225008[/C][/ROW]
[ROW][C]3[/C][C]7.00208787657334[/C][/ROW]
[ROW][C]4[/C][C]7.165385192871[/C][/ROW]
[ROW][C]5[/C][C]7.24129771165964[/C][/ROW]
[ROW][C]6[/C][C]8.4045318703317[/C][/ROW]
[ROW][C]7[/C][C]9.5754208974142[/C][/ROW]
[ROW][C]8[/C][C]10.7413605058766[/C][/ROW]
[ROW][C]9[/C][C]10.7494840707041[/C][/ROW]
[ROW][C]10[/C][C]11.3798623487146[/C][/ROW]
[ROW][C]11[/C][C]11.5093391194321[/C][/ROW]
[ROW][C]12[/C][C]12.4960571169853[/C][/ROW]
[ROW][C]13[/C][C]15.0543324529158[/C][/ROW]
[ROW][C]14[/C][C]16.1594323818554[/C][/ROW]
[ROW][C]15[/C][C]17.1199549657100[/C][/ROW]
[ROW][C]16[/C][C]19.1786086838817[/C][/ROW]
[ROW][C]17[/C][C]22.0608728547388[/C][/ROW]
[ROW][C]18[/C][C]25.3413265365277[/C][/ROW]
[ROW][C]19[/C][C]37.1561953843503[/C][/ROW]
[ROW][C]20[/C][C]37.7119839691681[/C][/ROW]
[ROW][C]21[/C][C]50.1162625640077[/C][/ROW]
[ROW][C]22[/C][C]68.119329123213[/C][/ROW]
[ROW][C]23[/C][C]94.536725675461[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=13854&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=13854&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
14.51013588274524
25.46302347225008
37.00208787657334
47.165385192871
57.24129771165964
68.4045318703317
79.5754208974142
810.7413605058766
910.7494840707041
1011.3798623487146
1111.5093391194321
1212.4960571169853
1315.0543324529158
1416.1594323818554
1517.1199549657100
1619.1786086838817
1722.0608728547388
1825.3413265365277
1937.1561953843503
2037.7119839691681
2150.1162625640077
2268.119329123213
2394.536725675461






Summary of Cut Dendrogram
LabelHeight
169.7847848053757
2124.696770301860
3136.178626892058
4137.858331205420

\begin{tabular}{lllllllll}
\hline
Summary of Cut Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 69.7847848053757 \tabularnewline
2 & 124.696770301860 \tabularnewline
3 & 136.178626892058 \tabularnewline
4 & 137.858331205420 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=13854&T=2

[TABLE]
[ROW][C]Summary of Cut Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]69.7847848053757[/C][/ROW]
[ROW][C]2[/C][C]124.696770301860[/C][/ROW]
[ROW][C]3[/C][C]136.178626892058[/C][/ROW]
[ROW][C]4[/C][C]137.858331205420[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=13854&T=2

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

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 Cut Dendrogram
LabelHeight
169.7847848053757
2124.696770301860
3136.178626892058
4137.858331205420


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = single ; par2 = 5 ; par3 = TRUE ; par4 = TRUE ;
Parameters (R input):
par1 = single ; par2 = 5 ; par3 = TRUE ; par4 = TRUE ;
R code (references can be found in the software module):
par3 <- as.logical(par3)
par4 <- as.logical(par4)
if (par3 == 'TRUE'){
dum = xlab
xlab = ylab
ylab = dum
}
x <- t(y)
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')
}