Nothing
acv <-
function (penalty, yy, B, quantile, DD, nb, constmat)
{
aa <- asyregpen.lsfit(yy, B, quantile, abs(penalty), DD,
nb, constmat)
score = aa$weight * (yy - B %*% aa$a)^2/(1 - aa$diag.hat.ma)^2
mean(score[which(is.finite(score))], na.rm = TRUE)
}
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.