dgmb (version 1.1)

ViewParameters: A dialog box to display parameters

Description

A function to display a dialog box with simulation parameters.

Usage

ViewParameters(tkl, tkr)

Arguments

tkl

An instance of tkcombobox

tkr

An instance of tkradiobutton

References

Dalgaard's Peter (2002) Rnews: The Newsletter of the R Project, Vol. 3.

Examples

ViewParameters <- function(tkl,tkr){

 rb<- tclvalue(tkr)
 ll<- as.numeric(tclvalue(tcl(tkl,"getvalue")))
 msg<-paste("")
 
 if  (rb == 1) #all outer weights equal
 {
 if (as.integer(ll)==0)
   {
          msg<-paste(msg,"path.coef <- c(0.5,0.4,0.3,0,0.3,0,0.3,0,0)
")
          msg<-paste(msg,"wei.ex <- matrix (c(0.63,0.63,
tt    
                                    0.63,0.63,
tt
                                    0.63,0.63),3,2,byrow=TRUE)
")
          msg<-paste(msg,"wei.en <- matrix(c(0.63,0.63),1,2,byrow=TRUE),3,2,byrow=TRUE)")
   }
  if (as.integer(ll)==1)
   {
          msg<-paste(msg,"path. coef <- c(0.5,0.4,0.3,0,0.3,0,0.3,0,0)
")
          msg<-paste(msg,"wei.ex <- matrix (c(0.42,0.42,0.42,0.42,
tt
                                    0.42,0.42,0.42,0.42,
tt
                                    0.42,0.42,0.42,0.42),3,4,byrow=TRUE)
")
          msg<-paste(msg,"wei.en <- matrix(c(0.42,0.42,0.42,0.42),1,4,byrow=TRUE)
")
   }
  if (as.integer(ll)==2)
   {
          msg<-paste(msg,"path. coef <- c(0.5,0.4,0.3,0,0.3,0,0.3,0,0)
")
          msg<-paste(msg,"wei.ex <- matrix (c(0.35,0.35,0.35,0.35,0.35,0.35,
tt
                                    0.35,0.35,0.35,0.35,0.35,0.35,
tt
                                    0.35,0.35,0.35,0.35,0.35,0.35),
                                    3,6,byrow=TRUE),3,2,byrow=TRUE)
")
          msg<-paste(msg,"wei.en <- matrix(c(0.35,0.35,0.35,0.35,0.35,0.35),
                                    1,6,byrow=TRUE)")
   }
  if (as.integer(ll)==3)
   {
          msg<-paste(msg,"path. coef <- c(0.5,0.4,0.3,0,0.3,0,0.3,0,0)
")
          msg<-paste(msg,"wei.ex <- matrix (c(0.3,0.3,0.3,0.3,0.3,0.3,0.3,0.3,
tt
                                    0.3,0.3,0.3,0.3,0.3,0.3,0.3,0.3,
tt
                                    0.3,0.3,0.3,0.3,0.3,0.3,0.3,0.3),
                                    3,8,byrow=TRUE)
")
          msg<-paste(msg,"wei.en <- matrix(c(0.3,0.3,0.3,0.3,0.3,0.3,0.3,0.3),
                                    1,8,byrow=TRUE)")
   }
 }else{#all outer weights different
    if (as.integer(ll)==0)
    {
          msg<-paste(msg,"path.coef <- c(0.5,0.4,0.3,0,0.3,0,0.3,0,0)
")
          msg<-paste(msg,"wei.ex <- matrix(c(0.8,0.4,
tt
                                    0.4,0.8,
tt0.1,0.9),3,2,byrow=TRUE)
")
          msg<-paste(msg,"wei.en <- matrix(c(0.4,0.8),1,2,byrow=TRUE)")
    }
    if (as.integer(ll)==1)
    {
          msg<-paste(msg,"path. coef <- c(0.5,0.4,0.3,0,0.3,0,0.3,0,0)
")
          msg<-paste(msg,"wei.ex <- matrix(c(0.2,0.3,0.5,0.7
tt
                                    0.2,0.4,0.6,0.5
tt
                                    0.3,0.5,0.7,0.2),3,4,byrow=TRUE)
")
          msg<-paste(msg,"wei.en <- matrix(c(0.2,0.3,0.5,0.5),1,4,byrow=TRUE)
")
     }
    if (as.integer(ll)==2)
     {
          msg<-paste(msg,"path. coef <- c(0.5,0.4,0.3,0,0.3,0,0.3,0,0)
")
          msg<-paste(msg,"wei.ex <- matrix(c(0.5,0.3,0.4,0.3,0.5,0.1,
tt
                                    0.2,0.4,0.6,0.4,0.2,0.3,
tt
                                    0.3,0.6,0.2,0.3,0.4,0.2),3,6,byrow=TRUE)
")
          msg<-paste(msg,"wei.en <- matrix(c(0.5,0.3,0.4,0.3,0.5,0.1),1,6,byrow=TRUE)")
     }
  if (as.integer(ll)==3)  {

          msg<-paste(msg,"path. coef <- c(0.5,0.4,0.3,0,0.3,0,0.3,0,0)
")
          msg<-paste(msg,"wei.ex <- matrix(c(0.3,0.3,0.4,0.3,0.4,0.3,0.2,0.3,
tt
                                    0.3,0.3,0.4,0.3,0.2,0.3,0.4,0.2,
tt
                                    0.4,0.5,0.4,0.3,0.2,0.1,0.3,0.2),
                                    3,8,byrow=TRUE)
")
          msg<-paste(msg,"wei.en <- matrix(c(0.3,0.3,0.4,0.3,0.4,0.3,0.2,0.3),
                                    1,8,byrow=TRUE)")
    }
  }
  tkmessageBox(title="Fixed Parameters", message=paste(msg, "Distribution = Normal"), 
               icon="info", type="ok")

}#End ViewParameters