Shrinkage estimator datacamp
source(url("https://github.com/guhjy/guhjy/raw/main/shrinkage.R"))
result <- shrinkage_estimator(b = 0.4, s = 0.3)
cat("收縮估計:", result$betahat, "\n")
cat("收縮估計的標準誤:", result$sigma_hat, "\n")
cat("95% 信賴區間: [", result$confidence_interval[1], ", ", result$confidence_interval[2], "]\n")
留言
張貼留言