Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
519 127 392 517 123 394 510 118 392 509 114 396 501 108 392 507 111 396 569 151 419 580 159 421 578 158 420 565 148 418 547 138 410 555 137 418 562 136 426 561 133 428 555 126 430 544 120 424 537 114 423 543 116 427 594 153 441 611 162 449 613 161 452 611 149 462 594 139 455 595 135 461 591 130 461 589 127 463 584 122 462 573 117 456 567 112 455 569 113 456 621 149 472 629 157 472 628 157 471 612 147 465 595 137 459 597 132 465 593 125 468 590 123 467 580 117 463 574 114 460 573 111 462 573 112 461 620 144 476 626 150 476 620 149 471 588 134 453 566 123 443 557 116 442 561 117 444 549 111 438 532 105 427 526 102 424 511 95 416 499 93 406 555 124 431 565 130 434 542 124 418 527 115 412 510 106 404 514 105 409 517 105 412 508 101 406 493 95 398 490 93 397 469 84 385 478 87 390 528 116 413 534 120 413 518 117 401 506 109 397
Names of X columns:
totale_werkloosheid werkloosheid_jonger_dan_25_jaar werkloosheid_vanaf_25_jaar
Method
50
ward
single
complete
average
mcquitty
median
centroid
# of (top) clusters to display
50
ALL
2
3
4
5
6
7
8
9
10
15
20
Horizontal
0
FALSE
TRUE
Triangle
0
FALSE
TRUE
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation