<html><head><style data-externalstyle="true">
p.MsoListParagraph, li.MsoListParagraph, div.MsoListParagraph {
margin-top:0in;
margin-right:0in;
margin-bottom:0in;
margin-left:.5in;
margin-bottom:.0001pt;
}
p.MsoListParagraphCxSpFirst, li.MsoListParagraphCxSpFirst, div.MsoListParagraphCxSpFirst, p.MsoListParagraphCxSpMiddle, li.MsoListParagraphCxSpMiddle, div.MsoListParagraphCxSpMiddle, p.MsoListParagraphCxSpLast, li.MsoListParagraphCxSpLast, div.MsoListParagraphCxSpLast {
margin-top:0in;
margin-right:0in;
margin-bottom:0in;
margin-left:.5in;
margin-bottom:.0001pt;
line-height:115%;
}
</style></head><body><div data-externalstyle="false" style="font-family:Calibri,'Segoe UI',Meiryo,'Microsoft YaHei UI','Microsoft JhengHei UI','Malgun Gothic','Khmer UI','Nirmala UI',Tunga,'Lao UI',Ebrima,sans-serif;font-size:16px;"><div> </div><div data-signatureblock="true"><div>Bom dia Pessoal</div><div> </div><div data-focusfrompointer="true">estou tentando calcular o percentual de predição de erro via boot, porem o resultado final não me parece o que quero (percentual de predição de erro ) alguém poderia me ajudar?</div><div> </div><div>train.pos.setbsh data set com ~27000 linhas (<a tabindex="-1" href="https://www.dropbox.com/s/9flxc9tpttq1mru/train.pos.setbsh.csv">https://www.dropbox.com/s/9flxc9tpttq1mru/train.pos.setbsh.csv</a>)</div><div>test.setbsh data set com ~1433 linhas (<a tabindex="-1" href="https://www.dropbox.com/s/61fbts7bbizb7cr/test.setbsh.csv">https://www.dropbox.com/s/61fbts7bbizb7cr/test.setbsh.csv</a>)</div><div> </div><div> </div><div>bt <- function(formula, data, indices) {<br> d <- data[indices,] <br> fit <- glm(formula,family=gaussian,data=d)<br> pred<-predict(fit,test.setbsh,type="response")<br>error<- (test.setbsh$lgcpue-pred)/test.setbsh$lgcpue </div><div>return(error)<br>}</div><div> </div><div># bootstrapping with 300 replications<br>results <- boot(data=train.pos.setbsh, statistic=bt,<br> R=300, formula=lgcpue~Y+S+Q+A)</div><div> </div><div>boxplot(as.vector(results$t))<br>abline(0,0)</div><div> </div><div> </div><div> </div><div>desde já agradeço</div><div> </div><div>Humberto</div><div> </div><div> </div><div> </div><div>Enviado do Email do Windows</div><div> </div></div></div></body></html>