atualiza.grafico {ArvoRe}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

atualiza.grafico(...)

Arguments

... ~~Describe ... here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- 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)
  }

[Package ArvoRe version 0.1.6 Index]