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 | Revisão anterior Última revisão Ambos lados da revisão seguinte | ||
ridiculas [2011/08/13 10:08] jcfaria [.Rprofile no Linux] |
ridiculas [2012/09/13 16:52] walmes [section 12] |
||
---|---|---|---|
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 ==== | ||
Linha 175: | Linha 212: | ||
source('rs.r', local=.jcf) | source('rs.r', local=.jcf) | ||
source('sourcedir.r', local=.jcf) | source('sourcedir.r', local=.jcf) | ||
+ | #attach(.jcf) | ||
##¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬ | ##¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬ | ||
Linha 189: | Linha 227: | ||
#library(reshape) | #library(reshape) | ||
#library(debug) | #library(debug) | ||
- | attach(.jcf) | ||
</code> | </code> | ||
Linha 225: | Linha 262: | ||
# http://www.youtube.com/watch?v=E4uR5I1uLFM | # http://www.youtube.com/watch?v=E4uR5I1uLFM | ||
+ | #------------------------------------------------------------------------------------------ | ||
+ | |||
+ | mergeAll <- function(..., by="date", all=TRUE){ | ||
+ | dotArgs <- list(...) | ||
+ | Reduce( | ||
+ | function(x, y){ | ||
+ | merge(x, y, by = by, all = all, suffixes=paste(".", names(dotArgs), sep = "")) | ||
+ | }, | ||
+ | dotArgs) | ||
+ | } | ||
+ | |||
+ | mergeAll(a = a1, b = a2, c = a3, by="id") | ||
+ | |||
+ | str(.Last.value) | ||
+ | |||
+ | You also might be able to set it up to capture names without you having to put "a = a" etc. using substitute. | ||
+ | |||
+ | # http://r.789695.n4.nabble.com/merge-multiple-data-frames-td4331089.html | ||
+ | # ver reshape::merge_all() | ||
#------------------------------------------------------------------------------------------ | #------------------------------------------------------------------------------------------ | ||
</code> | </code> | ||
Linha 687: | Linha 743: | ||
---- | ---- | ||
- | ==== Desdobramento de interação usando a multcomp::ghlt() ==== | + | ==== Desdobramento de interação usando a multcomp::glht() ==== |
Temporariamente sem descrição.\\ | Temporariamente sem descrição.\\ |