मुझे आंकड़ों के लिए एक परिचय लिखने के लिए कहा गया है और मैं संघर्ष कर रहा हूं कि पी-वैल्यू और पावर रिलेट करने के तरीके को रेखांकन कैसे दिखाया जाए। मैं इस ग्राफ के साथ आया हूँ:
मेरा प्रश्न: क्या इसे प्रदर्शित करने का एक बेहतर तरीका है?
यहाँ मेरा R कोड है
x <- seq(-4, 4, length=1000)
hx <- dnorm(x, mean=0, sd=1)
plot(x, hx, type="n", xlim=c(-4, 8), ylim=c(0, 0.5),
ylab = "",
xlab = "",
main= expression(paste("Type II (", beta, ") error")), axes=FALSE)
axis(1, at = c(-qnorm(.025), 0, -4),
labels = expression("p-value", 0, -infinity ))
shift = qnorm(1-0.025, mean=0, sd=1)*1.7
xfit2 <- x + shift
yfit2 <- dnorm(xfit2, mean=shift, sd=1)
# Print null hypothesis area
col_null = "#DDDDDD"
polygon(c(min(x), x,max(x)), c(0,hx,0), col=col_null)
lines(x, hx, lwd=2)
# The alternative hypothesis area
## The red - underpowered area
lb <- min(xfit2)
ub <- round(qnorm(.975),2)
col1 = "#CC2222"
i <- xfit2 >= lb & xfit2 <= ub
polygon(c(lb,xfit2[i],ub), c(0,yfit2[i],0), col=col1)
## The green area where the power is
col2 = "#22CC22"
i <- xfit2 >= ub
polygon(c(ub,xfit2[i],max(xfit2)), c(0,yfit2[i],0), col=col2)
# Outline the alternative hypothesis
lines(xfit2, yfit2, lwd=2)
axis(1, at = (c(ub, max(xfit2))), labels=c("", expression(infinity)),
col=col2, lwd=1, lwd.tick=FALSE)
legend("topright", inset=.05, title="Color",
c("Null hypoteses","Type II error", "True"), fill=c(col_null, col1, col2), horiz=FALSE)
abline(v=ub, lwd=2, col="#000088", lty="dashed")
arrows(ub, 0.45, ub+1, 0.45, lwd=3, col="#008800")
arrows(ub, 0.45, ub-1, 0.45, lwd=3, col="#880000")
अपडेट करें
भयानक जवाब के लिए धन्यवाद। मैंने कुछ कोड बदल दिए हैं:
# Print null hypothesis area
col_null = "#AAAAAA"
polygon(c(min(x), x,max(x)), c(0,hx,0), col=col_null, lwd=2, density=c(10, 40), angle=-45, border=0)
lines(x, hx, lwd=2, lty="dashed", col=col_null)
...
legend("topright", inset=.015, title="Color",
c("Null hypoteses","Type II error", "True"), fill=c(col_null, col1, col2),
angle=-45,
density=c(20, 1000, 1000), horiz=FALSE)
मुझे अशक्त परिकल्पना की धराशायी, थोड़ी अस्पष्ट तस्वीर पसंद है क्योंकि यह संकेत देता है कि यह वास्तव में वहां नहीं है। मैंने पारदर्शिता और अल्फा को जोड़ने के बारे में सोचा है, लेकिन मैं एक तस्वीर में बहुत अधिक जानकारी प्राप्त करने के बारे में चिंता करता हूं और इसलिए नहीं चुना है।
मुद्रित लेखों की सीमाएं मुझे पाठकों को प्रयोग करने की अनुमति नहीं देती हैं। मैंने टीचिंगडेमोस के साथ @Greg स्नो का जवाब चुना है क्योंकि मैं दो त्रुटियों के साथ विचार को ओवरलैप नहीं कर रहा हूं।
