Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
Acanthus ebracteatus Vahl >50 Cordia globifera W.W. Sm. 2.85 ± 0.86 Eupatorium capillifolium (Lam.) Small ex Porter & Britton 22.56 ±1.22 Hydnophytum formicarum Jack >50 Levisticum officinale W.D.J. Koch 25.54 ± 2.60 Orthosiphon aristatus (Blume) Mig. 31.95± 1.31 Polyalthia cerasoides (Roxb.) >50 Rhinacanthus nasutus (L.) Kurz >50 Salacia chinensis L. >50 Smilax corbularia Kunth >50 Smilax glabra Roxb. >50 Dioscorea membranacea Pierre ex Prain & Burkill 7.65 ± 0.39 Andrographis paniculata (Burm.f.) Wall. Ex Nees 38.65± 0.55 Bauhinia strychnifolia Craib. >50 Betula alnoides Buch. Ham. >50 Caesalpinia sappan Linn. 13.68± 2.20 Coptosapelta flavescens Korth. >50 Coscinium fenestratum (Gaertn.) Colebr. 10.32± 1.53 Ficus foveolata Wall. >50 Litsea cubeba (Lour). >50 Ochna integerrima (Lour.) Merr. >50 Suregada multiflorum (A.Juss) Baill >50 Baliospermum montanum Muell-Arg. 4.49 ± 2.59 Cassia garrettiana (Craib) Irwin & Barneby 8.76 ± 0.31 Croton oblongifolius Roxb. 3.65 ± 0.20 Harrisonia perforata (Blanco) Merr. 30.81± 1.45 Maytenus marcanii >50 Phyllanthus amarus Schum & Thonn. 22.89± 1.10 Phyllanthus reticulatus Poir. >50 Tiliacora triandra (Colebr.) Diels 33.18± 2.02 Tinospora baenzigeri Forman >50 Tinospora crispa (L.) Hook. f.. & Thomson >50 Piper interruptum Opiz. 26.06± 1.71 Piper retrofractum Vahl. 10.24± 2.23 Piper sarmentosum Roxb. 9.51 ± 0.57 Plumbago indica L. 21.50± 0.79 Zingiber officinale Roscoe. 15.14 ± 1.26
Names of X columns:
cytotoxicity of medicinal plant against NSP carcinoma
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