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:35] jcfaria [section 2] |
ridiculas [2011/08/13 07:57] jcfaria [.Rprofile no linux] |
||
|---|---|---|---|
| Linha 11: | Linha 11: | ||
| <code R> | <code R> | ||
| #------------------------------------------------------------------------------------------ | #------------------------------------------------------------------------------------------ | ||
| - | # por JCFaria | + | # por JCFaria |
| #------------------------------------------------------------------------------------------ | #------------------------------------------------------------------------------------------ | ||
| </code> | </code> | ||
| Linha 37: | 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 58: | 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 73: | 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 85: | 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 94: | 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 rm(list=ls()) | ||
| - Parar acessar a função "cv" será necessário | - Parar acessar a função "cv" será necessário | ||
| Linha 126: | Linha 127: | ||
| </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 1521: | Linha 1522: | ||
| 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> | ||
