http://143.107.246.201:8081/labtrop/ 2026-04-23T11:55:03+00:00 http://143.107.246.201:8081/labtrop/ http://143.107.246.201:8081/labtrop/lib/exe/fetch.php?media=wiki:logo.png text/html 2026-03-27T13:49:18+00:00 Anonymous (anonymous@undisclosed.example.com) http://143.107.246.201:8081/labtrop/doku.php?id=cursos:ecor:05_curso_antigo:r2015:alunos:trabalho_final:elildojr:o_codigo&rev=1774619358&do=diff Código em construção, ainda não é a versão final! # Dados para teste x <- c(0,0,0,1,0,0,NA,NA,1,0,0,1,NA,1,NA,NA,0,NA,NA,0,0,0,0,NA,0,0,0,1,0,NA,1,NA,0,1,0,1,NA,0,NA,0,0,0,1,0,0,0,NA,1,0,NA,0,0,NA,1,0,1,1,0,0,0,1,1,1,0,NA,NA,NA,1,NA,NA,NA,NA,NA,NA,0,0,0,0,NA,0,1,0,0,1,0,0,0,1,1,1,1,1,NA,NA,0,0,0,NA,0,NA,0,1,0,1,0,0,1,0,0,NA,NA,0,1,NA,NA,0,0,1,0,1,1,1,1,1,NA,0,1,NA,0,1,1,0,1,0) y <- c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,… text/html 2026-03-27T13:49:18+00:00 Anonymous (anonymous@undisclosed.example.com) http://143.107.246.201:8081/labtrop/doku.php?id=cursos:ecor:05_curso_antigo:r2015:alunos:trabalho_final:elildojr:start&rev=1774619358&do=diff Elildo Carvalho Jr Analista Ambiental do Centro Nacional de Pesquisa e Conservação de Mamíferos Carnívoros - CENAP/ICMBio, Mestre em Ecologia - INPA, Manaus/AM exercicios TRABALHO FINAL TRABALHO FINAL - código e help text/html 2026-03-27T13:49:17+00:00 Anonymous (anonymous@undisclosed.example.com) http://143.107.246.201:8081/labtrop/doku.php?id=cursos:ecor:05_curso_antigo:r2015:alunos:trabalho_final:elildojr:tecnica_de_respostas_randomizadas&rev=1774619357&do=diff Técnica de respostas randomizadas A técnica de respostas randomizadas (randomized response technique, RRT) é um método desenvolvido pelas ciências sociais para estimar a prevalência de atividades sensitivas ou ilegais, como uso de drogas, sonegação de impostos e aborto. Recentemente, esta técnica passou a ser utilizada por biólogos da conservação para estimar a prevalência da caça ilegal e outras formas de não-conformidade com normas ambientais. A técnica geralmente produz estimativas mais acur… text/html 2026-03-27T13:49:18+00:00 Anonymous (anonymous@undisclosed.example.com) http://143.107.246.201:8081/labtrop/doku.php?id=cursos:ecor:05_curso_antigo:r2015:alunos:trabalho_final:elildojr:trabalho_final_-_codigo_e_help&rev=1774619358&do=diff Código da função prev <- function(x,y, teste="rrt", probs=c(0.25, 0.5833), nsim=1000) # função prev com argumentos: x (dados de respostas randomizadas), y (dados de questionamento direto), teste (tipos de teste desejado: rrt, qd ou ambos), probs (probabilidades de "sim" forçado e "diga a verdade", ver página de ajuda), nsim (número de simulações) { if(teste=="rrt") # se usuário optou pela análise de dados de respostas randomizadas { rrt <- function(x) ((sum(na.omit(x))/length(na.o… text/html 2026-03-27T13:49:18+00:00 Anonymous (anonymous@undisclosed.example.com) http://143.107.246.201:8081/labtrop/doku.php?id=cursos:ecor:05_curso_antigo:r2015:alunos:trabalho_final:elildojr:trabalho_final&rev=1774619358&do=diff Plano A Função para analise de dados de prevalência obtidos por meio da técnica de respostas randomizadas Minha função irá estimar a prevalência de comportamentos sensitivos a partir de dados obtidos por entrevistas. Por prevalência entende-se a proporção da população praticando o comportamento de interesse. O usuário poderá escolher se a estimativa será baseada em dados obtidos pela técnica de questionamento direto ou pela