Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1846.5 1530.9 2225.4 1163.9 2796.3 2220.6 2713.9 1467.9 2895.6 2161.5 2923.3 1433.7 2472.2 1863.6 2707 1362.2 2584.4 1955.1 2473.9 1299 2630.4 1907.4 2521 1291.5 2663.1 1889.4 2531.8 1452.7 3176.2 2246.3 3068.8 1555.4 2856.7 2213 2826.9 1402.5 2551.4 1965 2674.2 1242.9 3088.7 2285.6 2966.6 1514.6 2628.3 1983.8 2798.8 1308.6 2226.2 1872.4 2629.6 1239.3 3023.6 2371.4 3124.6 1519.9 3077.9 2287 3115.7 1659.4 3084.1 2198.2 3083 1597.6 2990.3 2330.4 2863.9 1340.6 2949.6 2014.4 2728.7 1427.2 3014.7 2066.1 2789.4 1438.1 3517.7 2355.8 3225.7 1616.2 3121.2 2232.5 3148.2 1392.8 3067.4 2091.7 2836.5 1318.7 3174.6 2376.5 3153.5 1420.9 2676.3 1931.9 2656.9 1221 2424 2025.7 2834.7 1310 3195.1 2404.9 3172.5 1466.7 3146.6 2316.1 2998.8 1299.3 3506.7 2368.1 3103.1 1640 3528.5 2282.5 2735.6 1506.3 3365.1 2158.6 2818.1 1530.2 3153 2174.8 2874.4 1661.9 3843.3 2594.1 3438.5 1880.3 3123.2 2281.4 2949.1 1230.8 3361.1 2547.9 3306.8 1406.5 3481.9 2606.3 3530 1523.5 2970.5 2190.8 3003.8 1323.2 2537 2262.3 3206.4 1319.2 3257.6 2423.8 3514.6 1500.7 3301.3 2520.4 3522.6 1483 3391.6 2482.9 3525.5 1497 2933.6 2215.9 2996.2 1219.8 3283.2 2441.9 3231.1 1472.9 3139.7 2333.8 3030 1423.9 3486.4 2670.2 3541.7 1629.6 3202.2 2431 3113.2 1353.4 3294.4 2559.3 3390.8 1366.8 3550.3 2661.4 3424.2 1527.1 3279.3 2404.6 3079.8 1487.6 2678.6 2378.3 3123.4 1478.6 3451.4 2489.2 3317.1 1536.7 3977.1 2959 3611.6 1682.1 3814.8 2713.5 3341.1 1576.5 3310.5 2341.3 2684.9 1280.5 3971.8 2833.2 3747.8 1756.5 4051.9 2849.7 3677.8 1698.8 4057.6 2871.7 3787.8 1709.3 4391.4 3058.3 4171.2 1741 3628.9 2855.1 3774 1493 4092.2 3083.6 4053.7 1577.5 3822.5 2828.3 4000.9 1609.3
Names of X columns:
Frankrijk Nederland Duitsland UK
Method
ward
ward
single
complete
average
mcquitty
median
centroid
# of (top) clusters to display
ALL
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
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