Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- prog <- function()
- {
- while(true)
- {
- dist <- menu(c("Binomial", "Geometric", "Hypergeometric", "Poisson", "Quit"), graphics = TRUE, title = "What distribution?")
- if(dist == 1)
- {
- type <- menu(c("PDF", "CDF"), graphics = TRUE, title = "Which type?")
- if(type == 1)
- {
- }
- else if(type == 2)
- {
- }
- }
- else if(dist == 2)
- {
- type <- menu(c("PDF", "CDF"), graphics = TRUE, title = "Which type?")
- if(type == 1)
- {
- }
- else if(type == 2)
- {
- }
- }
- else if(dist == 3)
- {
- type <- menu(c("PDF", "CDF"), graphics = TRUE, title = "Which type?")
- if(type == 1)
- {
- }
- else if(type == 2)
- {
- }
- }
- else if(dist == 4)
- {
- type <- menu(c("PDF", "CDF"), graphics = TRUE, title = "Which type?")
- if(type == 1)
- {
- }
- else if(type == 2)
- {
- }
- }
- else if(dist == 5)
- {
- break
- }
- }
- }
Add Comment
Please, Sign In to add comment