Hi, i have a dataframe, dat, with 2 variables, one and two.
I want to print in R the mean of the selected variable of the dataframe. You
can select it with a tklistbox, but when you click OK button, the mean is
not displayed, just NA
########
one<-c(5,5,6,9,5,8)
two<-c(12,13,14,12,14,12)
dat<-data.frame(uno,dos)
require(tcltk)
tt<-tktoplevel()
tl<-tklistbox(tt,height=4,selectmode="single")
tkgrid(tklabel(tt,text="Selecciona la variable para calcular media"))
tkgrid(tl)
for (i in (1:4))
{
tkinsert(tl,"end",colnames(dat[i]))
}
OnOK <- function()
{
selecvar <- dat[as.numeric(tkcurselection(tl))+1]
print(mean(selecvar))
}
OK.but <-tkbutton(tt,text=" OK ",command=OnOK)
tkgrid(OK.but)
tkfocus(tt)
#################
Can someone please help me?? Thanks!!!
--
View this message in context:
http://r.789695.n4.nabble.com/R-GUI-tklistbox-get-value-tp4710064.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
