R/shrink.r
In pbreheny/breheny: Miscellaneous Functions
Defines functions
shrink
## James-Stein shrinkage
shrink <- function(x, n) {
p <- length(x)
lam <- (p-3)/(n*p-p)
xbar <- mean(x)
xbar + (x-xbar)/(1+lam)
}
pbreheny/breheny documentation built on Sept. 5, 2024, 6:45 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions shrink
## James-Stein shrinkage
shrink <- function(x, n) {
p <- length(x)
lam <- (p-3)/(n*p-p)
xbar <- mean(x)
xbar + (x-xbar)/(1+lam)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.