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 Próxima revisão Ambos lados da revisão seguinte | ||
ridiculas [2011/08/13 07:31] jcfaria Inicial |
ridiculas [2011/08/13 08:03] jcfaria [.Rprofile no linux] |
||
---|---|---|---|
Linha 11: | Linha 11: | ||
<code R> | <code R> | ||
#------------------------------------------------------------------------------------------ | #------------------------------------------------------------------------------------------ | ||
- | # por JCFaria | + | # por JCFaria |
#------------------------------------------------------------------------------------------ | #------------------------------------------------------------------------------------------ | ||
- | + | </code> | |
- | Olá pessoal, | + | |
Esse post tem a finalidade de compartilhar algumas coisas que considero importantes na inicialização do R no Linux! | Esse post tem a finalidade de compartilhar algumas coisas que considero importantes na inicialização do R no Linux! | ||
Linha 38: | Linha 37: | ||
funções (o R foi projetado para isso!). | funções (o R foi projetado para isso!). | ||
- | Ai vem o problema de TER QUE SEMPRE CARREGAR A FUNÇÃO quando for USAR, o que pode se tornar uma CHATISSE. | + | <fc #000080>Ai vem o problema: ter que sempre carregar a função quando for usar, o que pode se tornar uma chatisse!</fc> |
Pior ainda, ao limpar o workspace do usuário (.GlobalEnv) elas são removidas e precisam ser recarregadas. | Pior ainda, ao limpar o workspace do usuário (.GlobalEnv) elas são removidas e precisam ser recarregadas. | ||
- | Tem como contornar? | + | **Tem como contornar? Sim! De várias formas:** |
- | Sim! De várias formas: | + | |
- | 1. Opção muito pouco prática: | + | **//1. Opção muito pouco prática://** |
+ | <code R> | ||
oldp <- getwd() | oldp <- getwd() | ||
setwd('/home/jcfaria/dados/r/funcoes/') | setwd('/home/jcfaria/dados/r/funcoes/') | ||
source('cv.r') | source('cv.r') | ||
setwd(oldp) | setwd(oldp) | ||
+ | </code> | ||
A função "cv" ficará disponível no seu workspace mas será removida com a instrução: | A função "cv" ficará disponível no seu workspace mas será removida com a instrução: | ||
Linha 59: | Linha 59: | ||
- | 2. Opção "mais" prática: | + | **//2. Opção "mais" prática://** |
A mesma que a anterior, contudo, a função não deverá se chamar "cv", mas sim ".cv". | A mesma que a anterior, contudo, a função não deverá se chamar "cv", mas sim ".cv". | ||
Nesse caso ela permanecerá como um objeto oculto no seu workspace e não será removida com a intrução: | Nesse caso ela permanecerá como um objeto oculto no seu workspace e não será removida com a intrução: | ||
Linha 74: | Linha 74: | ||
- | 3. Colocando suas funções em algum ambiente (environment) do R (optei pelo base) | + | **//3. Colocando suas funções em algum ambiente (environment) do R (optei pelo base)://** |
<code R> | <code R> | ||
oldp <- getwd() | oldp <- getwd() | ||
Linha 86: | Linha 86: | ||
- | 4. Criando seu próprio ambiente (acho a solução mais elegante): | + | **//4. Criando seu próprio ambiente (acho a solução mais elegante)://** |
<code R> | <code R> | ||
oldp <- getwd() | oldp <- getwd() | ||
Linha 95: | Linha 95: | ||
</code> | </code> | ||
- | Nesse último caso (4): | + | Nesse último caso [**//4//**]: |
- | - O objeto ".jcf" ficará oculto no meu workspace evitando ser deletado com rm(list=ls()) | + | * O objeto ".jcf" ficará oculto no meu workspace evitando ser deletado com <code R>rm(list=ls())<\code> |
- | - Parar acessar a função "cv" será necessário | + | * Parar acessar a função "cv" será necessário: |
<code R> | <code R> | ||
> .env$cv | > .env$cv | ||
Linha 127: | Linha 126: | ||
</code> | </code> | ||
- | que ela fica disponível no pacote base. Não testei na versão em desenvolvimento (instável) que uso no linux, | + | que ela ficava disponível no pacote base. Não testei na versão em desenvolvimento (instável) que uso no linux, |
mas deve ainda funcionar. | mas deve ainda funcionar. | ||
Linha 1522: | Linha 1521: | ||
hx <- seq(media+2*stder, media+3*stder, .01) | hx <- seq(media+2*stder, media+3*stder, .01) | ||
hy <- dnorm(hx, media, stder) | hy <- dnorm(hx, media, stder) | ||
- | n <- length(hy) | + | n <- |
+ | length(hy) | ||
polygon(c(hx, rev(hx)), c(hy, rep(0, n)), col=2) | polygon(c(hx, rev(hx)), c(hy, rep(0, n)), col=2) | ||
</code> | </code> | ||