File:Filtered R.png

From 太極
Jump to navigation Jump to search

Original file(1,020 × 1,096 pixels, file size: 77 KB, MIME type: image/png)

Summary

theta <- seq(0, .80, .01)
R_BH <- filtered_R(alpha=.10, S2, p2, theta, method="BH")
which.max(R_BH)
# 60%     <---- so theta=0.6 is the optimal filtering threshold
# 61 
max(R_BH)
# [1] 380

plot(theta, R_BH, type="l",
     xlab=expression(theta), ylab="Rejections",
     main="BH cutoff = 0.1")
abline(v=.6, lty=2)

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current21:41, 11 March 2024Thumbnail for version as of 21:41, 11 March 20241,020 × 1,096 (77 KB)Brb (talk | contribs)<syntaxhighlight lang='r'> theta <- seq(0, .80, .01) R_BH <- filtered_R(alpha=.10, S2, p2, theta, method="BH") which.max(R_BH) # 60% <---- so theta=0.6 is the optimal filtering threshold # 61 max(R_BH) # [1] 380 plot(theta, R_BH, type="l", xlab=expression(theta), ylab="Rejections", main="BH cutoff = 0.1") abline(v=.6, lty=2) </syntaxhighlight>

The following page uses this file: