উত্তর:
অনুমান করা হয় যে এবং পৃথক পৃথক অনুমানটি (বিকল্পটির বিপরীতে যে ) পরীক্ষা করার সমান ।
নিম্নলিখিত বিশ্লেষণ অনুমান আপনার অনুমান করার জন্য যুক্তিযুক্ত যেমন
ভ্যারিয়েন্স সহভেদাংক ম্যাট্রিক্স পরিপ্রেক্ষিতে প্রকাশ করা যেতে পারে এর যেমন
যখন হয় লিস্ট স্কোয়ার সঙ্গে আনুমানিক এক সাধারণত একটি "টি পরীক্ষা;" ব্যবহার অর্থাৎ, টি = ইউ / of এর বিতরণ √
সুনির্দিষ্ট হওয়ার জন্য, টি পরীক্ষার পি-মানটি দেওয়া হয়
যেখানে হল স্টুডেন্ট টি (ক্রমবর্ধমান) বিতরণ ফাংশন। "লেজ এলাকা:" এটা এক অভিব্যক্তি সুযোগ করে একটি স্টুডেন্ট T (পরিবর্তনশীল স্বাধীন ডিগ্রীগুলির) সমান বা পরীক্ষা পরিসংখ্যাত আকার অতিক্রম করে
আরো সাধারণভাবে, সংখ্যার জন্য এবং যদি আপনি কোন হাইপোথিসিস পরীক্ষা করার জন্য ঠিক একই পদ্ধতির ব্যবহার করতে পারেন
R
e
কোডটি এখানে।
#
# Specify the true parameters.
#
set.seed(17)
a <- -1/2
b <- -1/2
sigma <- 0.25 # Variance of the errors
n <- 5 # Sample size
n.sim <- 500 # Simulation size
#
# Specify the hypothesis.
#
H.0 <- c(1, -1) # Coefficients of `a` and `b`.
mu <- 0
#
# Provide x and z values in terms of their logarithms.
#
log.x <- log(rexp(n))
log.z <- log(rexp(n))
#
# Compute y without error.
#
y.0 <- exp(a * log.x + b * log.z)
#
# Conduct a simulation to estimate the sampling distribution of the t statistic.
#
sim <- replicate(n.sim, {
#
# Add the errors.
#
e <- rnorm(n, 0, sigma)
df <- data.frame(log.x=log.x, log.z=log.z, y.0, y=y.0 + e)
#
# Guess the solution.
#
fit.ols <- lm(log(y) ~ log.x + log.z - 1, subset(df, y > 0))
start <- coefficients(fit.ols) # Initial values of (a.hat, b.hat)
#
# Polish it using nonlinear least squares.
#
fit <- nls(y ~ exp(a * log.x + b * log.z), df, list(a=start[1], b=start[2]))
#
# Test a hypothesis.
#
cc <- vcov(fit)
s <- sqrt((H.0 %*% cc %*% H.0))
(crossprod(H.0, coef(fit)) - mu) / s
})
#
# Display the simulation results.
#
summary(lm(sort(sim) ~ 0 + ppoints(length(sim))))
qqplot(qt(ppoints(length(sim)), df=n-2), sim,
pch=21, bg="#00000010", col="#00000040",
xlab="Student t reference value",
ylab="Test statistic")
abline(0:1, col="Red", lwd=2)