Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
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
Names of X columns:
X1 X2
Method
centroid
ward
single
complete
average
mcquitty
median
centroid
# of (top) clusters to display
4
ALL
2
3
4
5
6
7
8
9
10
15
20
Horizontal
FALSE
FALSE
TRUE
Triangle
FALSE
FALSE
TRUE
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
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') }
Compute
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
Click here to blog (archive) this computation