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 On Wed, 21 Dec 2011, Mauro Sznelwar wrote:
Estava rodando o código, e veja o que deu nesta linha! Como o vosso deu certo? 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)
Juliana, confira abaixo se é isso.
require(doBy)
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"
table(dados$cod) #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)
table(dados$new_cod) #11114 11115 11117 11118 69150 69151 69152 # 78 78 78 78 78 78 78
[ ]'s
Jônatan.