if (FALSE) {
hermite_est <- hermite_estimator(N = 10, standardize = TRUE,
est_type="univariate", observations = rnorm(30))
cdf_est <- cum_prob(hermite_est, c(0, 0.5, 1))
hermite_est <- hermite_estimator(N = 10, standardize = TRUE,
est_type="bivariate", observations = matrix(rnorm(60),
nrow=30, ncol=2,byrow=TRUE))
cdf_est <- cum_prob(hermite_est, matrix(c(0,0,0.5,0.5,1,1),nrow=3,
ncol=2,byrow=TRUE))
}
Run the code above in your browser using DataLab