Я ищу рабочее решение точно такой же проблемы. Лучшее, что я нашел - это Null Unrestricted Bootstrap, представленный Foulkes Andrea в его книге « Прикладная статистическая генетика с R» (2009) . В отличие от всех других статей и книг, он рассматривает именно регрессии. Помимо других методов он советует использовать Null Unrestricted Bootstrap, который подходит там, где нельзя легко вычислить невязки (как в моем случае, когда я моделирую много независимых регрессий (в основном простых корреляций), каждая из которых имеет одну и ту же переменную отклика и разные фрагменты). Я обнаружил, что этот метод также называется методом 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
+ }
+ }
Как только у нас есть вся TestStatBoot
матрица (в строках у нас есть репликации начальной загрузки, а в столбцах мы загрузилиT⃗ *^ статистика) находим для чего Tкрит. мы точно наблюдаем α = 0,05 процентов более значительных T⃗ *^ статистика (более значительная означает, что с большим абсолютным значением, чем Tкрит.).
Мы сообщаем я-модельный компонент модели значим, если его T⃗ я^> Ткрит.
Последний шаг может быть выполнен с помощью этого кода
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.