FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_agglomerativehierarchicalclustering.wasp
Title produced by softwareAgglomerative Nesting (Hierarchical Clustering)
Date of computationSun, 25 Nov 2007 21:24:21 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2007/Nov/26/t1196050540z0n1cw4n9azxmkz.htm/, Retrieved Tue, 10 Feb 2026 18:54:43 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=6572, Retrieved Tue, 10 Feb 2026 18:54:43 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Agglomerative Nesting (Hierarchical Clustering)] [Hierarchical Clus...] [2007-11-26 04:24:21] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1	20	5
2	60	3
2	75	4
2	75	4
1	15	3
2	40	3
1	40	4
2	50	4
2	30	4
2	30	3
2	30	3
2	20	4
2	90	3
2	25	3
1	60	3
2	30	2
2	60	3
2	150	3
1	30	4
2	40	3
2	50	3
2	20	3
2	45	4
1	45	2
1	30	4
2	30	3
3	75	4
1	60	3
3	60	3
2	120	3
2	35	4
2	70	3
2	50	3
2	25	4
2	45	3
1	20	5
2	45	4
2	45	4
2	55	4
2	45	4
2	35	3
2	60	3
1	40	3
2	45	5
2	55	3
2	40	3
2	40	3
2	20	3
1	20	3
2	50	4
2	20	3

Tables (Output of Computation)





Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of compuational 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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=6572&T=0

[TABLE]
[ROW][C]Summary of compuational 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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=6572&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=6572&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 compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Agglomerative Nesting (Hierarchical Clustering)
Agglomerative Coefficient0.932976124539648

\begin{tabular}{lllllllll}
\hline
Agglomerative Nesting (Hierarchical Clustering) \tabularnewline
Agglomerative Coefficient & 0.932976124539648 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=6572&T=1

[TABLE]
[ROW][C]Agglomerative Nesting (Hierarchical Clustering)[/C][/ROW]
[ROW][C]Agglomerative Coefficient[/C][C]0.932976124539648[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=6572&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=6572&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:

Agglomerative Nesting (Hierarchical Clustering)
Agglomerative Coefficient0.932976124539648


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = euclidean ; par2 = single ; par3 = 1 ; par4 = 0.5 ; par5 = 0.5 ; par6 = 0 ; par7 = -0.5 ;
Parameters (R input):
par1 = euclidean ; par2 = single ; par3 = 1 ; par4 = 0.5 ; par5 = 0.5 ; par6 = 0 ; par7 = -0.5 ;
R code (references can be found in the software module):
par3 <- as.numeric(par3)
par4 <- as.numeric(par4)
par5 <- as.numeric(par5)
par6 <- as.numeric(par6)
par7 <- as.numeric(par7)
library(cluster)
if (par2 == 'flexible')
{
if (par3 == 1) pm <- c(par4)
if (par3 == 3) pm <- c(par4,par5,par6)
if (par3 == 4) pm <- c(par4,par5,par6,par7)
ag <- agnes(t(y),metric=par1,method=par2,par.method=pm)
} else {
ag <- agnes(t(y),metric=par1,method=par2)
}
mysub <- paste('Method: ',par2)
summary(ag)
bitmap(file='test1.png')
plot(ag,which.plots=2,main=main,sub=mysub,xlab=xlab,ylab=ylab)
dev.off()
bitmap(file='test2.png')
plot(ag,which.plots=1,main='Banner',sub=mysub,xlab=ylab,ylab=xlab)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Agglomerative Nesting (Hierarchical Clustering)',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Agglomerative Coefficient',header=TRUE)
a<-table.element(a,ag$ac)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')