Eu havia rodado tudo, eu
apenas coloquei as linhas finais para perguntar o motivo. Veja
agora:
>
require(doBy)
Carregando pacotes exigidos: doBy
Carregando pacotes
exigidos: survival
Carregando pacotes exigidos: splines
Carregando pacotes
exigidos: R2HTML
Carregando pacotes exigidos: multcomp
Carregando pacotes
exigidos: mvtnorm
Carregando pacotes exigidos: lme4
Failed with
error: ‘package ‘lme4’ could not be loaded’
Além disso: Mensagens de
aviso perdidas:
In library(pkg, character.only = TRUE, logical.return = TRUE,
lib.loc = lib.loc) :
there is no package called ‘lme4’
>
> dados <-
read.table("dadosvrf_met_2011090100.txt")
>
names(dados) <- c("data", "mrun", "frange", "mtype", "cod", "ylat", "xlon",
"V10", "dirVT", "hOD",
+ "hMR", "hVG",
"dirMO", "dirPO", "dirMM", "dirPM", "perMO", "perPO", "perPM")
>
> unique(dados$cod)
[1] 69151
69150 69152 SBLB SBMM SBEC PRAT
Levels: 69150 69151 69152
PRAT SBEC SBLB SBMM
> #[1] "69151"
"69150" "69152" "SBLB" "SBMM" "SBEC" "PRAT"
>
> table(dados$cod)
69150 69151 69152 PRAT SBEC
SBLB SBMM
78 78
78 78 78
78 78
> #69150
69151 69152 PRAT SBEC SBLB SBMM
> # 78
78 78 78 78 78 78
>
>
>
## selecionando somente variaveis de
interesse
> oldVals <-
as.list(unique(dados$cod)[4:7])
> ##
vetor com novos valores para as variaveis de
interesse
> newVals <-
as.list(unique(c(11114, 11115, 11117, 11118)))
>
> dados$new_cod<- recodeVar(x =
dados$cod, oldVals, newVals)
Erro: não foi possível encontrar a função
"recodeVar"
>
>
table(dados$new_cod)
character(0)
>
#11114 11115 11117 11118 69150 69151
69152
> # 78 78 78 78 78 78 78
>
Mauro
voce preciusa prestar mais atenção nesta coisa de rodar os
codigos
que enviam
Esta mensagem (nao encontrou a função)
é típica
de algum pacote não carregado.
Voce nao rodou o
require(doBy)
que
está na mensagem
Procure prestar mais atenção e refletir um pouco sobre
as mensagens antes
de postar aqui