Displaying 1 result from an estimated 1 matches for "minep_50k".
2012 Apr 30
3
95% confidence interval of the coefficients from a bootstrap analysis
...)
stor.inter = rep(0,B)
stor.Ind5 = rep(0,B)
stor.LNPRI25 = rep(0,B)
stor.NPRI10 = rep(0,B)
stor.Mine = rep(0,B)
for (i in 1:B){
idx = sample(1:N, replace=T)
newdata = data_Pb[idx,]
L_NPRI_25k <- log(newdata$NPRI_25k+1)
data_Pb.boot = lm(newdata$Log_Level ~
newdata$Ind_5k + newdata$MineP_50k +
newdata$NPRI_10k + L_NPRI_25k )
stor.r2[i] = summary(data_Pb.boot)$r.squared
stor.inter[i] = summary(data_Pb.boot)$coefficients[1,1]
stor.Ind5[i] = summary(data_Pb.boot)$coefficients[2,1]
stor.LNPRI25 [i] = summary(data_Pb.boot)$coefficients[3,1]
stor.NPRI10[i] = summary(data_Pb.boot)$coeffic...