উত্তর:
অনুমান করা হয় যে এবং পৃথক পৃথক অনুমানটি (বিকল্পটির বিপরীতে যে ) পরীক্ষা করার সমান ।
নিম্নলিখিত বিশ্লেষণ অনুমান আপনার অনুমান করার জন্য যুক্তিযুক্ত যেমন
ভ্যারিয়েন্স সহভেদাংক ম্যাট্রিক্স পরিপ্রেক্ষিতে প্রকাশ করা যেতে পারে এর যেমন
যখন হয় লিস্ট স্কোয়ার সঙ্গে আনুমানিক এক সাধারণত একটি "টি পরীক্ষা;" ব্যবহার অর্থাৎ, টি = ইউ / of এর বিতরণ √
সুনির্দিষ্ট হওয়ার জন্য, টি পরীক্ষার পি-মানটি দেওয়া হয়
যেখানে হল স্টুডেন্ট টি (ক্রমবর্ধমান) বিতরণ ফাংশন। "লেজ এলাকা:" এটা এক অভিব্যক্তি সুযোগ করে একটি স্টুডেন্ট T (পরিবর্তনশীল স্বাধীন ডিগ্রীগুলির) সমান বা পরীক্ষা পরিসংখ্যাত আকার অতিক্রম করে
আরো সাধারণভাবে, সংখ্যার জন্য এবং যদি আপনি কোন হাইপোথিসিস পরীক্ষা করার জন্য ঠিক একই পদ্ধতির ব্যবহার করতে পারেন
Re
কোডটি এখানে।
#
# 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)