Nothing
integrand_obj <- function(x, y, lambda, d, n.ints, c.alpha, s.spl){
# This function evaluates
# ( s(x) - c_alpha ) * (lambda + phi(x))
# for a vector x.
#
# Inputs:
# x: vector at which cp integrand is to be evaluated
# y: contains knots values of the b and s functions
# lambda: used in specifying the objective function
# d: the b and s functions are optimized in the interval (0, d]
# n.ints: number of intervals in (0, d]
# c.alpha = quantile of the standard normal distribution
#
# Output:
# A vector of values of the function with the same dimension
# as x.
#
# Written by P.Kabaila in June 2008.
# Rewritten in R by R Mainzer, March 2017
# c.alpha <- stats::qnorm(1 - alpha/2)
tmp1 <- s.spl(x) - c.alpha
tmp2 <- lambda + stats::dnorm(x, 0, 1)
res <- tmp1 * tmp2
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.