정확히 같은 문제에 대한 해결책을 찾고 있습니다. 내가 찾은 최고는 Foulkes Andrea가 그의 책 Applied Statistical Genetics with R (2009) 에서 소개 한 Null Unrestricted Bootstrap 입니다. 다른 모든 기사와 서적과 달리 그는 특히 회귀를 고려합니다. 다른 방법 외에도 그는 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
티⃗ ※^티치명타.α = 0.05티⃗ ※^티치명타.
보고합니다.나는티⃗ 나는^> 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.