R_manual_tests/test_gld_3points.R

In daviddoret/GRCRToolkit: GRC Toolkit

fg4 <- NULL
fg4 <- factor_estimate_gld_3points$new(
  estimated_range_min_value = 100000,
  estimated_mode_value = 200000,
  estimated_range_max_value = 300000,
  estimated_range_min_proba = .05,
  estimated_range_max_proba = .95,
  fit_distribution = FALSE,
  simulate = FALSE
  )
fg4$fit_distribution(verbosity = 0)

fg4$limit_max_value <- 1000000
fg4$limit_min_value <- 50000

fg4$simulate()
fg4$get_simulation_sample_head(5)
fg4$get_simulation_sample_tail(5)
fg4$get_random(5)
#fg4$plot_all(x_start = -150, x_end = +150)
#fg4$check_state_consistency(output_format = "boolean")
#fg4$check_state_consistency(output_format = "report")
#fg4$estimated_mode_value > fg4$estimated_range_max_value
#fg4$estimated_mode_value <- -5000
#fg4$lambda3 <- 45


fg4$plot_density()
fg4
fg4$get_simulation_sample_random(n=10)

t <- factor_estimate_gld_3points$new()
t
t$distribution_name