রিগ্রেশন এফ পরীক্ষার শক্তি কী?


11

মাল্টলাইনারি রিগ্রেশনে ভেরিয়েবলের সাবসেটের জন্য ক্লাসিকাল এফ-টেস্টের যেখানে হল 'হ্রাস' মডেলের অধীনে স্কোয়ার ত্রুটির সমষ্টি, যা 'বিগ' মডেল ভিতরে বাসা বাঁধে , এবং হ'ল স্বাধীনতার ডিগ্রি দুটি মডেল। নাল অনুমানের অধীনে যে 'বড়' মডেলের অতিরিক্ত ভেরিয়েবলগুলির কোনও রৈখিক ব্যাখ্যামূলক শক্তি নেই, পরিসংখ্যানকে এবং স্বাধীনতার ডিগ্রি সহ এফ হিসাবে বিতরণ করা হয় ।SSE(আর)বিআর-বিবি

F=(SSE(R)SSE(B))/(dfRdfB)SSE(B)/dfB,
SSE(R)BdfdfRdfBdfB

বিকল্পের অধীনে বিতরণ কী? আমি ধরে নিলাম এটি একটি অ-কেন্দ্রীয় এফ (আমি আশা করি দ্বিগুণ অ-কেন্দ্রীভূত হবে না) তবে নন-সেন্ট্রালটি প্যারামিটারটি ঠিক কী সে সম্পর্কে আমি কোনও রেফারেন্স পাই না। আমি অনুমান করতে যাচ্ছি এটি সত্যিকারের রিগ্রেশন সহগ এবং সম্ভবত ডিজাইনের ম্যাট্রিক্স উপর নির্ভর করে তবে এর বাইরে আমি এতটা নিশ্চিত নই।এক্সβX

উত্তর:


9

অ-কেন্দ্রিকতা প্যারামিটারটি হ'ল , সীমাবদ্ধ মডেলের প্রজেকশনটি হল , হ'ল সত্য প্যারামিটারের ভেক্টর, হ'ল সীমাহীন (সত্য) মডেলের ডিজাইন ম্যাট্রিক্স,আদর্শ: পি আর β এক্স | | এক্স | |δ2PrβX||x||

δ2=||XβPrXβ||2σ2

আপনি মত এই সূত্র পড়তে পারেন: প্রত্যাশিত মান নকশা ম্যাট্রিক্স উপর শর্তাধীন ভেক্টর হয় এক্স । আপনি আচরণ যদি এক্স β একটি গবেষণামূলক তথ্য বাহক হিসেবে Y , তারপর সীমাবদ্ধ মডেল subspace হয় সম্মুখের তার অভিক্ষেপ পি এক্স β , যা আপনি ভবিষ্যদ্বাণী দেয় Y বলেছেন, "তথ্য" জন্য সীমাবদ্ধ মডেল থেকে। ফলে, এক্স β - পি এক্স β অনুরূপ Y - YE(y|X)=XβXXβyPrXβy^XβPrXβyy^এবং আপনাকে সেই পূর্বাভাসের ত্রুটি দেয়। অতএব ত্রুটিটির স্কোয়ারের যোগফল দেয়। তাহলে সীমাবদ্ধ মডেল সত্য হয় তাহলে এক্স β ইতিমধ্যে subspace দ্বারা সংজ্ঞায়িত মধ্যে এক্স R , এবং পি এক্স β = এক্স β , যেমন যে noncentrality প্যারামিটার 0||XβPrXβ||2XβXrPrXβ=Xβ0

আপনার এটি মার্ডিয়া, কেন্ট এবং বিবিতে পাওয়া উচিত। (1980)। বহুচলকীয় বিশ্লেষণ.


মহান! আদর্শটি কি স্কোয়ার করা উচিত? নাহলে মনে হচ্ছে ইউনিট গুলো কি ব্যাপার? আপনি বলছেন এটি 'স্কোয়ারের যোগফল', তাই আমার মনে হয় এটি সাধারণ বর্গক্ষেত্র ..
শাব্বিচেফ

@ শ্যাববিচেফ অবশ্যই আপনি ঠিক বলেছেন, তা ধরার জন্য ধন্যবাদ!
করাকাল

7

δ2=||Xβ1Xβ2||2σ2,

কি স্বাভাবিক হওয়া উচিত তা অনুভবের সিডিএফ

এখানে আর কোড রয়েছে (স্টাইল ক্ষমা করুন, আমি এখনও শিখছি):

#sum of squares
sum2 <- function(x) { return(sum(x * x)) }
#random integer between n and 2n
rint <- function(n) { return(ceiling(runif(1,min=n,max=2*n))) }
#generate random instance from linear model plus noise.
#n observations of p2 vector
#regress against all variables and against a subset of p1 of them
#compute the F-statistic for the test of the p2-p1 marginal variables
#compute the p-value under the putative non-centrality parameter
gend <- function(n,p1,p2,sig = 1) {
 beta2 <- matrix(rnorm(p2,sd=0.1),nrow=p2)
 beta1 <- matrix(beta2[1:p1],nrow=p1)
 X <- matrix(rnorm(n*p2),nrow=n,ncol=p2)
 yt1 <- X[,1:p1] %*% beta1
 yt2 <- X %*% beta2
 y <- yt2 + matrix(rnorm(n,mean=0,sd=sig),nrow=n)
 ncp <- (sum2(yt2 - yt1)) / (sig ** 2)
 bhat2 <- lm(y ~ X - 1)
 bhat1 <- lm(y ~ X[,1:p1] - 1)
 SSE1 <- sum2(bhat1$residual)
 SSE2 <- sum2(bhat2$residual)
 df1 <- bhat1$df.residual
 df2 <- bhat2$df.residual
 Fstat <- ((SSE1 - SSE2) / (df1 - df2)) / (SSE2 / bhat2$df.residual)
 pval <- pf(Fstat,df=df1-df2,df2=df2,ncp=ncp)
 return(pval)
}
#call the above function, but randomize the problem size (within reason)
genr <- function(n,p1,p2,sig=1) {
 use.p1 <- rint(p1)
 use.p2 <- use.p1 + rint(p2 - p1)
 return(gend(n=rint(n),p1=use.p1,p2=use.p2,sig=sig+runif(1)))
}
ntrial <- 4096
ssize <- 256
z <- replicate(ntrial,genr(ssize,p1=4,p2=10))
plot(ecdf(z))

2
কোড সহ ফলোআপের জন্য +1 সর্বদা এটি দেখতে ভাল।
এমপিক্টাস
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.