Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
Schinus johnstonii F.A. Barkley 0 0 1 0 Asparagus officinalis L. var. altilis L. 0 1 0 1 Anthemis cotula L. 0 1 0 0 Baccharis darwinii Hook. & Arn. 0 1 0 0 Baccharis juncea (Cass.) Desf. ssp. juncea 0 1 0 0 Baccharis spartioides (Hook. & Arn. ex DC.) J. Remy 0 1 0 1 Centaurea calcitrapa L. 1 1 0 0 Cichorium intybus L. 1 1 1 1 Cirsium vulgare (Savi) Ten. 0 1 1 0 Conyza bonariensis (L.) Cronquist var. angustifolia (Cabrera) Cabrera 1 1 0 1 Conyza bonariensis (L.) Cronquist var. bonariensis 1 1 1 1 Conyza sumatrensis (Retz.) E. Walker var. leiotheca (S.F. Blake) Pruski & G. Sancho 1 1 1 0 Flaveria bidentis (L.) Kuntze 1 0 0 0 Galinsoga parviflora Cav. 1 0 0 0 Gamochaeta americana (Mill.) Wedd. 0 0 1 0 Helminthotheca echioides (L.) Holub 1 1 0 0 Hypochaeris chondrilloides (A. Gray) Cabrera 1 1 0 0 Lactuca serriola L. 0 1 1 0 Pseudognaphalium leucopeplum (Cabrera) Anderb. 0 0 1 0 Rhaponticum repens (L.) Hidalgo 0 1 0 0 Senecio vulgaris L. 0 1 0 0 Sonchus oleraceus L. 1 1 1 0 Taraxacum officinale F.H. Wigg. 1 1 1 1 Tessaria absinthioides (Hook. & Arn.) DC. 1 1 1 1 Heliotropium curassavicum L. var. curassavicum 1 0 1 0 Eruca vesicaria (L.) Cav. ssp. sativa (Mill.) Thell. 0 1 0 0 Lepidium draba L. 0 1 1 0 Lepidium myrianthum Phil. 1 1 0 0 Rapistrum rugosum (L.) All. 0 1 0 0 Sisymbrium irio L. 0 1 0 0 Spergula platensis (Cambess.) Shinners var. platensis 1 0 0 0 Spergula salina (J. Presl & C. Presl) D. Dietr. 1 1 0 0 Atriplex heterosperma Bunge 1 1 1 0 Atriplex prostrata Boucher ex DC. 1 1 1 1 Atriplex semibaccata R. Br. 0 1 0 0 Atriplex suberecta I. Verd. 0 1 0 0 Bassia hyssopifolia (Pall.) Kuntze 1 0 1 1 Bassia scoparia (L.) A.J. Scott 1 1 1 1 Chenopodiastrum murale (L.) S. Fuentes. Uotila & Borsch 1 1 1 0 Chenopodium album L. 0 1 0 1 Chenopodium hircinum Schrad. ssp. hircinum 0 0 1 0 Sarcocornia neei (Lag.) M.A. Alonso & M.B. Crespo 1 0 0 0 Suaeda altissima (L.) Pall. 1 1 1 1 Suaeda densiflora A. Soriano ex Giusti 0 1 1 0 Convolvulus arvensis L. 1 1 1 0 Cressa truxillensis Kunth 1 1 0 0 Euphorbia serpens Kunth var. microphylla Müll. Arg. 0 1 1 0 Glycyrrhiza astragalina Gillies ex Hook. & Arn. 0 0 0 1 Hoffmannseggia glauca (Ortega) Eifert 1 1 0 1 Medicago sativa L. 1 1 1 0 Melilotus albus Desr. 1 1 1 1 Melilotus indicus (L.) All. 0 1 0 0 Prosopis strombulifera (Lam.) Benth. var. strombulifera 1 1 1 1 Trifolium repens L. 0 1 1 0 Vicia sativa L. ssp. sativa 0 0 0 1 Frankenia pulverulenta L. 1 1 0 0 Centaurium pulchellum (Sw.) Druce 0 1 0 1 Erodium cicutarium (L.) L'Hér. ex Aiton 0 1 0 0 Lamium amplexicaule L. 0 1 0 0 Lythrum hyssopifolium L. 0 1 0 0 Anoda cristata (L.) Schltdl. 0 1 1 0 Hibiscus trionum L. 1 0 0 0 Malva parviflora L. 0 1 0 1 Malvella leprosa (Ortega) Krapov. 1 1 1 1 Oenothera curtiflora W.L. Wagner & Hoch 0 1 0 0 Plantago lanceolata L. 1 1 1 1 Plantago major L. 0 0 0 1 Plantago myosuros Lam. 1 0 0 0 Veronica polita Fr. 0 1 0 0 Limonium brasiliense (Boiss.) Kuntze 0 0 1 0 Amelichloa caudata (Trin.) Arriaga & Barkworth 0 1 0 0 Avena byzantina K. Koch 0 1 0 0 Bromus catharticus Vahl var. catharticus 0 1 0 0 Bromus catharticus Vahl var. rupestris (Speg.) Planchuelo & P.M. Peterson 0 1 0 0 Cynodon dactylon (L.) Pers. var. dactylon 1 1 1 1 Distichlis scoparia (Kunth) Arechav. var. scoparia 1 1 0 1 Distichlis spicata (L.) Greene var. spicata 1 1 1 1 Echinochloa crus-galli (L.) P. Beauv. var. crus-galli 1 1 1 1 Eragrostis lugens Nees 0 1 1 0 Eragrostis pilosa (L.) P. Beauv. 1 0 0 0 Festuca arundinacea Schreb. 1 1 1 0 Hordeum euclaston Steud. 0 1 1 0 Hordeum lechleri (Steud.) Schenck 0 1 0 0 Hordeum murinum L. ssp. murinum 0 1 0 0 Hordeum stenostachys Godr. 1 1 1 0 Leptochloa fusca (L.) Kunth ssp. fusca 1 1 1 0 Lolium perenne L. 1 1 0 0 Lolium temulentum L. 1 0 0 0 Muhlenbergia asperifolia (Nees & Meyen ex Trin.) Parodi 0 1 1 1 Panicum capillare L. 1 0 0 1 Parapholis incurva (L.) C.E. Hubb. 0 1 0 0 Polypogon exasperatus (Trin.) Renvoize var. kuntzei (Mez) Finot 0 1 0 0 Polypogon imberbis (Phil.) Johow 1 1 0 0 Polypogon monspeliensis (L.) Desf. 0 1 0 0 Polypogon viridis (Gouan) Breistr. 0 1 0 0 Puccinellia glaucescens (Phil.) Parodi 1 1 0 1 Schismus arabicus Nees 0 1 0 0 Setaria parviflora (Poir.) Kerguélen var. parviflora 1 1 1 0 Setaria pumila (Poir.) Roem. & Schult. 1 1 1 0 Sorghum halepense (L.) Pers. 0 1 1 0 Thinopyrum ponticum (Podp.) Barkworth & D.R.Dewey 1 1 1 0 Polygonum aviculare L. 1 1 1 0 Polygonum persicaria L. 0 1 0 0 Rumex crispus L. 1 1 0 0 Portulaca oleracea L. 1 1 1 0 Galium aparine L. 1 0 0 0 Calibrachoa parviflora (Juss.) D'Arcy 1 0 1 1 Lycium chilense Miers ex Bertero var. filifolium (Gillies ex Miers) Bernardello 0 1 0 0 Solanum elaeagnifolium Cav. 0 1 0 0 Tamarix ramosissima Ledeb. 0 0 1 0 Tribulus terrestris L. 0 1 0 0
Names of X columns:
Nombre B MB MC C
Method
average
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