atualiza.grafico {ArvoRe} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
atualiza.grafico(...)
... |
~~Describe ... here~~ |
~~ If necessary, more details than the description above ~~
~Describe the value returned If it is a LIST, use
comp1 |
Description of 'comp1' |
comp2 |
Description of 'comp2' |
...
....
~~further notes~~
~Make other sections like Warning with section{Warning }{....} ~
~~who you are~~
~put references to the literature/web site here ~
~~objects to See Also as help
, ~~~
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function(...) { .Filename <- paste(tempdir(),"\", "arvore.png", sep="") if (!file.exists(.Filename)) file.remove(.Filename) png(file=.Filename, width = imgWidth, height = imgHeight, bg = "white", restoreConsole = FALSE) plot.tree(TheTree, line.type = .treeangle, show.probability = .probabilityconf, show.payoffs = .payoffsconf, show.notes = .notesconf, node.name.font.size = .node.name.font.size, payoffs.font.size = .payoffs.font.size, notes.font.size = .notes.font.size) dev.off() image1 <- tclVar() tcl("image","create","photo",image1,file=.Filename) tkcreate(Canvas, "image", imgWidth/2, imgHeight/2, image = image1, anchor = "center") tkconfigure(Canvas, scrollregion = c(0,0,imgWidth,imgHeight)) file.remove(.Filename) tkwm.deiconify(tt) }