Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
Ambos lados da revisão anterior Revisão anterior | Próxima revisão Ambos lados da revisão seguinte | ||
ridiculas [2011/08/13 10:09] jcfaria [.Rprofile no Linux] |
ridiculas [2011/11/30 15:39] walmes [section 2] |
||
---|---|---|---|
Linha 7: | Linha 7: | ||
---- | ---- | ||
+ | |||
+ | ==== Controlando gráficamente parâmetros de distribuições de probabilidade ==== | ||
+ | |||
+ | Temporariamente sem descrição.\\ | ||
+ | palavras-chave: #rpanel. | ||
+ | |||
+ | <code R> | ||
+ | #------------------------------------------------------------------------------------------ | ||
+ | # por Walmes | ||
+ | #------------------------------------------------------------------------------------------ | ||
+ | |||
+ | require(rpanel) | ||
+ | |||
+ | norm.panel <- function(panel){ | ||
+ | ##------------------------------------------------------------------ | ||
+ | ## panel$interval: vetor com domínio de plotagem da função | ||
+ | ## penel$...: serão parâmetros da distribuição de probabilidades | ||
+ | curve(dnorm(x, mean=panel$mean, sd=panel$sd), | ||
+ | from=panel$interval[1], to=panel$interval[2]) | ||
+ | panel | ||
+ | ##------------------------------------------------------------------ | ||
+ | } | ||
+ | |||
+ | # passar os argumentos que serão fixos, abre a janelinha | ||
+ | panel <- rp.control(interval=c(-4,4)) | ||
+ | |||
+ | # controla a média | ||
+ | rp.slider(panel, mean, -4, 4, initval=0, showvalue=TRUE, action=norm.panel) | ||
+ | |||
+ | # controla o desvio-padrão | ||
+ | rp.slider(panel, sd, 0.001, 10, initval=1, showvalue=TRUE, action=norm.panel) | ||
+ | |||
+ | #------------------------------------------------------------------------------------------ | ||
+ | </code> | ||
+ | |||
+ | ---- | ||
+ | |||
==== .Rprofile no Linux ==== | ==== .Rprofile no Linux ==== |