Changes in input checks

Author: chstock

R/fit_beta_1exp.R

@@ -25,11 +25,7 @@ fit_beta_1exp <- function (df) {
   assert_that(is.data.frame(df))
   assert_that(all(names(df) == c("w", "cum_probs")))
   assert_that(is.numeric(df$w))
-  assert_that(all(df$w > 0))
-  assert_that(all(df$w < 1))
   assert_that(is.numeric(df$cum_probs))
-  assert_that(all(df$cum_probs >= 0))
-  assert_that(all(df$cum_probs <= 1))
   # beta fit function
   w <- df$w
   cum_probs <- df$cum_probs

R/get_model_input_1exp.R

@@ -19,7 +19,6 @@
 get_model_input_1exp <- function(cum_probs, w = NULL) {
   # check inputs
   assert_that(is.numeric(cum_probs))
-  assert_that(all(dplyr::between(cum_probs, 0, 1)))
   assert_that(all(cum_probs == cummax(cum_probs)))
   # create dataframe
   w <- 1:length(cum_probs) / length(cum_probs)