Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_hierarchicalclustering.wasp

Title produced by software

Hierarchical Clustering

Date of computation

Mon, 05 Feb 2018 06:13:56 +0100

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2018/Feb/05/t1517807721xelvcm4er8z03aj.htm/, Retrieved Tue, 30 Apr 2024 04:56:52 +0200

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Tue, 30 Apr 2024 04:56:52 +0200

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Dataseries X:

Download CSV

Histogram

Boxplots

AGRA	31
AHMADNAGAR	0
AHMEDABAD	17
AHMEDNAGAR	0
AIROLI	5
AJMER	0
AKHNOOR	6
ALIGARH	0
ALLAHABAD	8
ALWAR	5
AMBALA	5
AMRAVATI	6
AMRITSAR	16
ANAND	0
ANANTNAG	0
ANDHERI	0
ANKLESVAR	0
AURANGABAD	5
B D BARI	0
BADDI	0
BADLAPUR	2
BALLABHGARH	27
BANDA	0
BANGALORE	132
BANGLORE	6
BANIHAL	0
BANUR	32
BARAMATI	0
BARASAT	1
BARBIL	0
BAREILLY	18
BARODA	0
BARSHI	0
BASSI PATHANA	2
BATHINDA	0
BELGAUM	0
BHARUCH	1
BHATINDA	2
BHILAI	2
BHIWADI	3
BHIWANDI	35
BHOPAL	18
BHOR	0
BHUBANESHWAR	1
BHUBANESWAR	17
BHUJ KUTCH	0
BHUNA	0
BHUWANESWAR	1
BHWANI MANDI	0
BID	0
BIJAPUR	0
BIJNOR	1
BILASPUR	1
BOISER	3
BOKARO	1
BOPAL	0
BUDAUN	0
BULANDSHAHAR	2
BULANDSHAHR	0
CHANDAUSI	0
CHANDGANJ	1
CHANDIGARH	14
CHANDPOLE	0
CHANDRAPUR	0
CHENNAI	11
CHHAPRA	0
CHOKIKULAM	0
COIMBATORE	1
CUTTACK	0
DAHANU	0
DAHOD	0
DEHRADUN	18
DELHI	486
DEOGARH	1
DEOGHAR	0
DHANBAD	1
DHAULPUR	0
DWARAKANAGAR	1
FARIDABAD	7
GAJRAULA	0
GANDHINAGAR	1
GANGANAGAR	1
GARHWAL	0
GAYA	0
GEORAI	0
GHANSOLI	2
GHATKOPAR	0
GHAZIABAD	84
GOA	0
GOA VELHA	0
GONDA	0
GORAKHPUR	1
GOREGAON	18
GREATER MUMBAI	37
GULAOTHI	0
GUNTUR	10
GURGAON	146
GUWAHATI	18
GWALIOR	2
HALDWANI	6
HALDWANI-CUM-KATHGODAM	0
HAMIRPUR	0
HANAMKONDA WARANGAL	1
HAPUR	18
HARIDWAR	3
HINGOLI	0
HISAR	5
HISSAR	3
HOOGLY	0
HOSHIARPUR	0
HOSKOTE	0
HOWRAH	6
HUBLI	0
HUBLI-DHARWAD	0
HYDERABAD	86
ICHALKARANJI	1
INDORE	16
JABALPUR	2
JAHANGIRABAD	0
JAIPUR	13
JAJARDEWAL	0
JALANDHAR	27
JALGAON	2
JALNA	0
JAMMU	3
JAMSHEDPUR	1
JAYSINGPUR	0
JHAJJAR	14
JHANSI	3
JHARSUGUDA	0
JIND	1
JODA	0
JODHPUR	1
KADARPUR	0
KAITHAL	1
KAJRAT	1
KALYAN-DOMBIVALI	2
KANDIVALI (E)	7
KANDIVALI (W)	3
KANDLA	0
KANPUR	36
KARAD	2
KARMALA	0
KARNAL	0
KASHIPUR	1
KATHGODAM	0
KATNI	1
KEONJHAR	0
KHADKI	9
KHORDHA	0
KOLHAPUR	6
KOLKATA	16
KOMPALLY	1
KORBA	0
KOTA	2
KOTHUR	2
LATUR	1
LUCKNOW	93
LUDHIANA	56
MAHAD	0
MAHESANA	0
MAINPURI	0
MALAD	2
MANDAL RANGA REDDY	1
MANSAROVAR	0
MANSOROWAR	0
MAPUSA	1
MARGAO	1
MATHURA	1
MEDAK	2
MEDCHAL	11
MEERUT	45
MEWAT	2
MIRA-BHAYANDAR	16
MOGA	1
MOHALI	0
MORADABAD	2
MORENA	0
MULUND	1
MUMBAI	38
MUMUBAI	5
MUZAFFARNAGAR	3
MUZAFFARPUR	0
MUZZAFFARPUR	0
MYSORE	0
NADIAD	0
NAGPUR	4
NAHAN	0
NAINITAL	0
NALANDA	0
NANDED-WAGHALA	0
NANDURBAR	0
NARASARAOPET	0
NASIK	5
NAVI MUMBAI	28
NEEMRANA	6
NELLORE	0
NERUL	2
NEW DELHI	11
NOIDA	44
PALI	0
PANIPAT	33
PANVEL	7
PARBHANI	0
PARWANOO	0
PATAUDI	9
PATHANKOT	1
PATIALA	3
PATNA	17
PEN	0
PHILLAUR	3
PILANI	0
PILIBHIT	0
PIMPRI	0
PIMPRI CHINCHWAD	12
PINJORE	0
PONDA	4
POWAI	7
PULGAON	0
PUNE	112
RAIGARH	0
RAIPUR	17
RAJAHMUNDARY	4
RAJKOT	0
RAMACHANDRAPURAM.MEDAK	4
RAMGARH	1
RANCHI	10
RANGAREDDY	16
RANIA	0
RISHIKESH	0
ROHTAK	0
ROORKEE	1
ROURKELA	1
RUDRAPUR	4
SABOLI	0
SAHARANPUR	1
SAHIBABAD	1
SAHNEWAL	2
SAMANA	1
SAMBALPUR	0
SANGLI-MIRAJ & KUPWAD	3
SATARA	2
SATWARI	0
SECUNDERABAD	5
SHIMLA	1
SHOPIAN	0
SHRI GANGANAGAR	1
SINGANPOR	0
SINGHANA	0
SINNAR	0
SOLAN	0
SOLAPUR	5
SONEPAT	4
SONIPAT	0
SOYAGAON	13
SRINAGAR	0
SUNDARNAGAR	0
SURAJPOLE	0
SURAT	2
TALEGAON	0
TEHRI	0
THANE	53
TUMKUR	0
UCHGAON	0
UDAIPUR	2
UDHAMPUR	0
UJJAIN	1
UNA	0
VADODARA	5
VAISHALI	6
VALSAD	0
VANASTHALIPURAM	0
VAPI	0
VARANASI	8
VASAI	10
VASHI	2
VEJALPUR	0
VIJAYAWADA	14
VIKHROLI	1
VIRAR	4
VISAKHAPATNAM	6
YAMUNA NAGAR	0
ZIRAKPUR	20

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	Big Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&T=0

[TABLE]
[ROW]

Summary of computational transaction[/C][/ROW] [ROW]

Raw Input[/C]

view raw input (R code) [/C][/ROW] [ROW]

Raw Output[/C]

view raw output of R engine [/C][/ROW] [ROW]

Computing time[/C]

0 seconds[/C][/ROW] [ROW]

R Server[/C]

Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=&T=0

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

As an alternative you can also use a QR Code:

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

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	Big Analytics Cloud Computing Center

Parameters (Session):

par1 = centroid ; par2 = 4 ; par3 = FALSE ; par4 = FALSE ;

Parameters (R input):

par1 = centroid ; par2 = 4 ; par3 = FALSE ; par4 = FALSE ;

R code (references can be found in the software module):

par4 <- 'FALSE'
par3 <- 'FALSE'
par2 <- 'ALL'
par1 <- 'centroid'
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')
}

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code