<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<META content="MSHTML 6.00.2900.3429" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2><FONT color=#0000ff size=3><STRONG>Estava rodando o
código, e veja o que deu nesta linha! Como o vosso deu
certo?</STRONG> </FONT> </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>dados$new_cod<- recodeVar(x = dados$cod,
oldVals, newVals)<BR>Erro: não foi possível encontrar a função
"recodeVar"<BR> <BR>
table(dados$new_cod)<BR>character(0)<BR></FONT><BR></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">Juliana,
confira abaixo se é isso.<BR><BR>require(doBy)<BR><BR>dados <-
read.table("dadosvrf_met_2011090100.txt")<BR>names(dados) <- c("data",
"mrun", "frange", "mtype", "cod", "ylat", "xlon", "V10", "dirVT", "hOD",
"hMR", "hVG", "dirMO", "dirPO", "dirMM", "dirPM", "perMO", "perPO",
"perPM")<BR><BR>unique(dados$cod)<BR>#[1] "69151" "69150" "69152" "SBLB"
"SBMM" "SBEC" "PRAT"<BR><BR>table(dados$cod)<BR>#69150 69151
69152 PRAT SBEC SBLB SBMM <BR>#
78 78 78
78 78 78
78<BR><BR><BR>## selecionando somente variaveis de interesse <BR>oldVals <-
as.list(unique(dados$cod)[4:7])<BR>## vetor com novos valores para as
variaveis de interesse<BR>newVals <- as.list(unique(c(11114, 11115, 11117,
11118)))<BR><BR>dados$new_cod<- recodeVar(x = dados$cod, oldVals,
newVals)<BR><BR>table(dados$new_cod)<BR>#11114 11115 11117 11118 69150 69151
69152 <BR># 78 78
78 78 78
78 78<BR><BR><BR>[
]'s<BR><BR>Jônatan.<BR><BR><BR></BLOCKQUOTE></BODY></HTML>