Bonjour,
je suis entrain de réaliser une interface graphique sous R
j'ai maintenant un petit programme qui permet de simuler une base.
voilà la partie du programme concernée :
require(tcltk)
tt <- tktoplevel()
topMenu <- tkmenu(tt)
tkconfigure(tt,menu=topMenu)
fileMenu <- tkmenu(topMenu,tearoff=FALSE)
openRecentMenu <- tkmenu(topMenu,tearoff=FALSE)
tkadd(openRecentMenu,"command",label="simulate genomic data base",
command=function() {
require(tcltk)
require(GeneNet)
tt3 <- tktoplevel()
tkwm.title(tt3," Simulation de la base");
scr <- tkscrollbar(tt3, repeatinterval=5,command=function(...)tkyview(tl,...))
tl<-tklistbox(tt3,height=4,selectmode="single",yscrollcommand=function(...)tkset(scr,...),background="white")
heading <- tklabel(tt3, text=" Les paramétres de la simulation de la base")
num.nodes <- tklabel(tt3, text=" les nombres de noeuds")
etaA <- tklabel(tt3, text="la pourcentage d'adgécence")
e.num.nodes <- tkentry(tt3, width=6)
e.etaA <- tkentry(tt3, width=6)
tkgrid(heading, columnspan=2)
tkgrid(num.nodes , e.num.nodes)
tkgrid(etaA , e.etaA)
tkgrid.configure(num.nodes, etaA , sticky="e")
tkgrid.configure( e.num.nodes, e.etaA, sticky="e")
OnOK3 <- function(){
require(GeneNet)
k<<- ggm.simulate.pcor(num.nodes,etaA)
donn <<- ggm.simulate.data(num.nodes,k)
fix(donn)
}
OK.but <- tkbutton(tt3,text="OK",command=OnOK3)
tkgrid(OK.but)
tkfocus(tt3)
}
)
tkadd(fileMenu,"cascade",label="Create",menu=openRecentMenu)
tkadd(topMenu,"cascade",label="File",menu=fileMenu)
le problème est que la base simuler n'est pas afficher et j'ai un msg d'erreur :
Error in num.nodes - 1 : argument non numérique pour un opérateur binaire