Nothing
alspath <- function(x, y, nlam, flmin, ulam, isd, intr, eps, dfmax, pmax, jd,
pf, pf2, maxit, lam2, tau, nobs, nvars, vnames) {
##=======================================================================##
## DATA SETUP
storage.mode(y) <- "double"
storage.mode(x) <- "double"
if (tau <= 0 || tau >= 1) stop("tau must be in (0,1)")
tau <- as.double(tau)
##=======================================================================##
## CALL FORTRAN CORE
fit <- .Fortran("alslassoNET", tau, lam2, nobs, nvars, x, y, jd, pf, pf2,
dfmax, pmax, nlam, flmin, ulam, eps, isd, intr, maxit,
nalam = integer(1), b0 = double(nlam),
beta = double(pmax * nlam), ibeta = integer(pmax),
nbeta = integer(nlam), alam = double(nlam),
npass = integer(1), jerr = integer(1), PACKAGE = "SALES")
##=======================================================================##
## OUTPUT
outlist <- getoutput(fit, maxit, pmax, nvars, vnames)
outlist <- c(outlist, list(npasses = fit$npass, jerr = fit$jerr))
class(outlist) <- c("alspath")
outlist
}
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.