Saya mencari solusi untuk masalah yang sama persis. Yang terbaik yang saya temukan adalah Null Unrestricted Bootstrap yang diperkenalkan oleh Foulkes Andrea dalam bukunya Applied Statistics Genetics with R (2009) . Bertolak belakang dengan semua artikel dan buku lain yang dia anggap secara khusus regresi. Selain metode lain ia menyarankan Null Unrestricted Bootstrap, yang cocok di mana orang tidak dapat dengan mudah menghitung residu (seperti dalam kasus saya, di mana saya memodelkan banyak regresi independen (pada dasarnya korelasi sederhana), masing-masing dengan variabel respon yang sama dan snip berbeda). Saya menemukan metode ini juga disebut metode maxT .
> attach(fms)
> Actn3Bin <- > data.frame(actn3_r577x!="TT",actn3_rs540874!="AA",actn3_rs1815739!="TT",actn3_1671064!="GG")
> Mod <- summary(lm(NDRM.CH~.,data=Actn3Bin))
> CoefObs <- as.vector(Mod$coefficients[-1,1])
> B <-1000
> TestStatBoot <- matrix(nrow=B,ncol=NSnps)
> for (i in 1:B){
+ SampID <- sample(1:Nobs,size=Nobs, replace=T)
+ Ynew <- NDRM.CH[!MissDat][SampID]
+ Xnew <- Actn3BinC[SampID,]
+ CoefBoot <- summary(lm(Ynew~.,data=Xnew))$coefficients[-1,1]
+ SEBoot <- summary(lm(Ynew~.,data=Xnew))$coefficients[-1,2]
+ if (length(CoefBoot)==length(CoefObs)){
+ TestStatBoot[i,] <- (CoefBoot-CoefObs)/SEBoot
+ }
+ }
Setelah kita memiliki semua TestStatBoot
matriks (dalam baris kita memiliki replikasi bootstrap, dan dalam kolom kita telah bootstrapT⃗ ∗^ statistik) kami temukan untuk yang mana Tkritik. kami mengamati dengan tepat α = 0,05 persen lebih signifikan T⃗ ∗^ statistik (lebih signifikan berarti bahwa dengan nilai absolut lebih besar dari Tkritik.).
Kami melaporkan saya-komponen model yang signifikan, jika T⃗ saya^> Tkritik.
Langkah terakhir dapat dilakukan dengan kode ini
p.value<-0.05 # The target alpha threshold
digits<-1000000
library(gtools) # for binsearch
pValueFun<-function(cj)
{
mean(apply(abs(TestStatBoot)>cj/digits,1,sum)>=1,na.rm=T)
}
ans<-binsearch(pValueFun,c(0.5*digits,100*digits),target=p.value)
p.level<-(1-pnorm(q=ans$where[[1]]/digits))*2 #two-sided.