prompt1<-menu(c("PDF","CDF"), graphics = TRUE, title = "CDF or PDF?")
# Distribution TYPE
disType<-menu(c("Binomial","Geometric", "Hypergeometric","Poisson"), graphics = TRUE, title = "Which
distribution?")

IF(prompt1==1&disType==4){
    lam<-winDialogString("Average"," ")
    lam<-AS.numeric(lam)

    Exact<-winDialogString("amount?", " ")
    Exact<-AS.numeric(Exact)
    pPoisson<- round(dpois(Exact,lam),2)
    PRINT(pPoisson)

}ELSE IF(prompt1==2&disType==4){

    lam<-winDialogString("Average"," ")
    lam<-AS.numeric(lam)

    Max<-winDialogString("Amount?", " ")
    Max<-AS.numeric(Max)

    pPoisson<-round(ppois(Max,lam),2)
    PRINT(pPoisson)

}ELSE{
lower<-winDialogString("lower?", " ") #enters a STRING value FOR "p"
lower<-AS.numeric(lower)

higher<-winDialogString("higher?", " ") #enters a STRING value FOR "p"
higher<-AS.numeric(higher)



range <- lower:higher

# PDF
IF(prompt1==1){
    IF(disType==1){ #binomial
        p<-winDialogString("Probability of success?", " ") #enters a STRING value FOR "p"
        p<-AS.numeric(p)
        n<-winDialogString("Number of trials?", " ") #enters a STRING value FOR "p"
        n<-AS.numeric(n)

        pbinomial<-round(dbinom(range, n, p),2)
        PRINT(pbinomial)
    }
    ELSE IF(disType==2) { #geometric
        p<-winDialogString("Probability of success?", " ") #enters a STRING value FOR "p"
        p<-AS.numeric(p)
        pGeometric<-round(dgeom(range,p),2)
        PRINT(pGeometric)
        # Graph
        plot(range+1, pGeometric, xlab = "X = Number of Trials", ylab = "P(X=x)",
        TYPE = "h", main = "First Ready Terminal, p = 0.95")
    }
    ELSE IF(disType==3) { #Hypergeometric
        fav<-winDialogString("No. of favourable outcomes?", " ") #enters a STRING value FOR "p"
        fav<-AS.numeric(fav)

        nonFav<-winDialogString("No. of non-favourable outcomes?", " ") #enters a STRING value FOR "p"
        nonFav<-AS.numeric(nonFav)

        chosen<-winDialogString("No. of chosen?", " ") #enters a STRING value FOR "p"
        chosen<-AS.numeric(chosen)

        phyp<-round(dhyper(range,fav,nonFav,chosen),2)
        PRINT(phyp)
        # Graph
        plot(range+1, phyp, xlab = "X = Number of Trials", ylab = "P(X=x)",
        TYPE = "s", main = "First Ready Terminal, p = 0.95")
    }

# CDF
} ELSE {
    IF(disType==1){ #binomial
        p<-winDialogString("Probability of success?", " ") #enters a STRING value FOR "p"
        p<-AS.numeric(p)
        n<-winDialogString("Number of trials?", " ") #enters a STRING value FOR "p"
        n<-AS.numeric(n)

        cbinomial<-round(pbinom(range, n, p),2)
        PRINT(cbinomial)
    }
    ELSE IF(disType==2) { #geometric
        p<-winDialogString("Probability of success?", " ") #enters a STRING value FOR "p"
        p<-AS.numeric(p)
        cGeometric<-round(pgeom(range,p),2)
        PRINT(cGeometric)
        # Graph
        plot(range+1, cGeometric, xlab = "X = Number of Trials", ylab = "P(X=x)",
        TYPE = "s", main = "First Ready Terminal, p = 0.95")
    }
    ELSE IF(disType==3) { #Hypergeometric
        fav<-winDialogString("No. of favourable outcomes?", " ") #enters a STRING value FOR "p"
        fav<-AS.numeric(fav)

        nonFav<-winDialogString("No. of non-favourable outcomes?", " ") #enters a STRING value FOR "p"
        nonFav<-AS.numeric(nonFav)

        chosen<-winDialogString("No. of chosen?", " ") #enters a STRING value FOR "p"
        chosen<-AS.numeric(chosen)

        chyp<-round(phyper(range,fav,nonFav,chosen),2)
        PRINT(chyp)
        # Graph
        plot(range+1, chyp, xlab = "X = Number of Trials", ylab = "P(X=x)",
        TYPE = "s", main = "First Ready Terminal, p = 0.95")
    }
}}