Prezados,

       Também tentei rodar a rotina e o objeto a não foi encontrado, sedo o erro

Erro em NROW(data) : objeto 'a' não encontrado

--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
e-mails:alexandresantosbr@yahoo.com.br
        alexandre.santos@cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================

Em 22/09/2015 05:19, Elias Teixeira Krainski escreveu:

vc pode fazer assim:

SMR2 <- function(a,w=1)
    sum(w*a$Hosp_Death)/sum(w*a$SAPS3Pro2)

SMR2(a) ### SMR observada nos dados

require(boot)

plot(boo <- boot(a,SMR2,999,stype='i'))
boot.ci(boo)

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e fornea cdigo mnimo reproduzvel.

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e fornea cdigo mnimo reproduzvel.