R/psp.weight.R

"psp.weight" <-
function(svals, ips = 1, xk = 1.06){
  n <- length(svals)
  fvals <- double(n)
  storage.mode(svals) <- "double"
  f.res <- .Fortran("srpspamm",
    n = as.integer(n),
    svals = svals,
    fvals = fvals,
    as.integer(ips),
    as.double(xk))
  f.res$fvals}

Try the RobustAFT package in your browser

Any scripts or data that you put into this service are public.

RobustAFT documentation built on Aug. 21, 2023, 5:13 p.m.