Displaying 2 results from an estimated 2 matches for "penss".
Did you mean:
enss
2013 Apr 28
0
Positive Smoothing in fda package
....1512258,
>7.9301281, 62.3876109, 54.1168247, 67.8769904, 91.0670615, 20.0682440)
>basis <- create.bspline.basis(c(-100, 100), 7, 5)
>MDA.fdPar <- fdPar(basis, 2, 0.01)
>MDA.fda.joint <- smooth.pos(argvals=seq(from=-100, to=100, length=11),
>y=X, WfdParobj=MDA.fdPar)
Iter. PENSSE Grad Length
0 1780.78 -1780.78
1 1753.525 14.318
2 1749.296 15.0611
3 1747.625 15.3031
4 1739.389 16.6266
5 1737.713 16.8989
6 1729.524 18.3147
7 1727.862 18.5791
8 1719.89 19.9475
9...
2010 Jan 12
1
Strange behavior when trying to piggyback off of "fitdistr"
...lt;- c(f[c(1, m)], f[-c(1, m)])
denss <- function (parm, x, ...) densfun (x, parm, ...)
if ((l <- length(nm)) > 1L)
body(denss) <- parse(text = paste("densfun(x,", paste("parm[",1L:l,"]", collapse = ", "), ", ...)"))
penss <- function (parm, x, ...) distfun (x, parm, ...)
if ((l <- length(nm)) > 1L)
body(penss) <- parse(text = paste("distfun(x,", paste("parm[",1L:l,"]", collapse = ", "), ", ...)"))
spacing <- function(parm, ...) {...