https://estatistica.c3sl.ufpr.br/ 2026-04-04T21:48:49+00:00 https://estatistica.c3sl.ufpr.br/ https://estatistica.c3sl.ufpr.br/lib/exe/fetch.php/wiki:dokuwiki.svg text/html 2013-06-21T14:54:42+00:00 Anonymous (anonymous@undisclosed.example.com) https://estatistica.c3sl.ufpr.br/doku.php/disciplinas:tea753-2013-02:codigosprob?rev=1371826482&do=diff Códigos do Curso Problema dos aniversários "aniv" <- function(n, p){ if(missing(n) && missing(p)) error("um dos argumentos, n ou p deve ser fornecido") if(!missing(n) && !missing(p)) error("apenas um dos argumentos, n ou p deve ser fornecido") Prob <- function(n) 1 - exp(sum(log(365:(365-n+1))) - n*log(365)) VecProb <- Vectorize(Prob, "n") if(missing(n)) res <- sapply(p, function(y) which((VecProb(1:366) - y) > 0)[1]) if(missing(p)) res <- VecProb(n) return(res) …