Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças

Diferenças

Aqui você vê as diferenças entre duas revisões dessa página.

Link para esta página de comparações

Ambos lados da revisão anterior Revisão anterior
Próxima revisão
Revisão anterior
Próxima revisão Ambos lados da revisão seguinte
pessoais:eder [2011/06/05 19:33]
eder [Codigos]
pessoais:eder [2011/06/05 19:46]
eder [Códigos]
Linha 16: Linha 16:
    * [[http://​www.leg.ufpr.br/​ragronomia|Estatística Experimental com Software R]]    * [[http://​www.leg.ufpr.br/​ragronomia|Estatística Experimental com Software R]]
    * [[http://​www.leg.ufpr.br/​doku.php/​pessoais:​eder:​exptempo| Análise de Experimentos de longa duração]]    * [[http://​www.leg.ufpr.br/​doku.php/​pessoais:​eder:​exptempo| Análise de Experimentos de longa duração]]
-===== Codigos ​===== +===== Códigos ​===== 
 <code R> <code R>
 ###buf ###buf
Linha 72: Linha 72:
 MCcirculo(1,​seq(5,​5000,​by=1000),​plotS=FALSE) MCcirculo(1,​seq(5,​5000,​by=1000),​plotS=FALSE)
 ### inversão de p ### inversão de p
 +### Inversão de Probabilidade
 +NS <- 10000
 +U <- runif(NS)
 +X <- - log(U)
 +Y <- rexp(NS)
 +par(mfrow=c(1,​3))
 +hist(U,​freq=FALSE,​main='​Uniforme',​col='​lightblue'​)
 +lines(density(U),​col='​red',​lwd=2)
 +hist(X,​freq=FALSE,​main='​Expoencial via uniforme',​col='​lightblue'​)
 +lines(density(X),​col='​red',​lwd=2)
 +lines(curve(dexp(x,​1),​min(X),​max(X),​add=TRUE),​col='​blue',​lwd=2)
 +hist(Y,​freq=FALSE,​main='​Expoencial do R',​col='​lightblue'​)
 +lines(density(Y),​col='​red',​lwd=2)
 +lines(curve(dexp(x,​1),​min(Y),​max(Y),​add=TRUE),​col='​blue',​lwd=2)
 ################################################################################​ ################################################################################​
 ###​----------------------------------------------------------###​ ###​----------------------------------------------------------###​

QR Code
QR Code pessoais:eder (generated for current page)