R/switch.condition.menu.R

In gehara/codes: Building and Simulating Coalescent models.

switch.condition.menu<-function(){
  switch(letter, 
         
         s = {place.size.condition()
           sys.call(which = -1)
           condition.menu()},
         
         m = {place.mig.condition()
           sys.call(which = -1)
           condition.menu()},
         
         t = {place.time.condition()
           sys.call(which = -1)
           condition.menu()},
              
         
         "1" = {print(.e$size.matrix)
                print("-----------------")
                sys.call(which = -1)
                condition.menu()},
         
         "2" = {print(.e$mig.matrix)
                print("-----------------")
                sys.call(which = -1)
                condition.menu()},
         
         "3" = {print(.e$time.matrix)
                print("-----------------")
                sys.call(which = -1)
                condition.menu()},
         
         B = {sys.call(which = -1)
           main.menu()}    
         
         )}