powered by
Draws n i.i.d. N(0, I_m) latent factors, applies g component-wise, and checks whether E[exp(g(x))] remains below an empirical cut-off. This is a quick proxy for finite sub-Gaussian norm.
verify_subgaussian(g_fun, m = 5, n = 1000, cut = exp(2))
logical TRUE if E[exp(g)] < cut on all coords
vectorised map g: R -> R
latent dimension
Monte-Carlo sample size
empirical threshold (default exp(2) & 7.389)
tmp <- g_fun("strong_nonlinear") verify_subgaussian(tmp$g_fun, m = 5)
Run the code above in your browser using DataLab