R/sizeparam_normal_distn.R

In meko222/SyScSelection: Systemic Scenario Selection for Stress Testing

#' Calculates the size paramater for a d-dimensional hyperellipsoid conforming to a normal (i.e., Gaussian) distribution.
#'
#' @param prob The target probability threshold
#' @param d Number of dimensions in the multivariate distribution
#' @return The appropriate (scalar) size parameter
#' @import stats

sizeparam_normal_distn <- function(prob,d){
  return(qchisq(prob,d))
}