****RANGE****

> HDR <- function(){
+ x <- winDialogString("Enter start of range: ", " ")
+ y <- winDialogString("Enter end of range: ", " ")
+ x <- as.numeric(x)
+ y <- as.numeric(y)
+ x <- seq(x,y)
+ return(x)
+ }


****SUCCESS****

> Success <- function(){
+ x <- winDialogString("Enter success possible: ", " ")
+ x <- as.numeric(x)
+ return(x)
+ }

****FAILURE****

> Failure <- function(){
+ x <- winDialogString("Enter failures possible: ", " ")
+ x <- as.numeric(x)
+ return(x)
+ }


****AMOUNT CHOSEN****

> Amount <- function(){
+ x <- winDialogString("Enter amount: ", " ")
+ x <- as.numeric(x)
+ return(x)
+ }