<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Eu acabei conseguindo fazer com o comando "factor"...<br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: sznelwar@uol.com.br<br>To: r-br@listas.c3sl.ufpr.br<br>Date: Fri, 23 Dec 2011 04:41:06 -0200<br>Subject: Re: [R-br] Transformação de variáveis.<br><br>
<meta http-equiv="Content-Type" content="text/html; charset=unicode">
<meta name="Generator" content="Microsoft SafeHTML">
<style>
</style>
<div><font face="Arial" size="2"><font size="3" color="#0000ff">Eu havia rodado tudo, eu
apenas coloquei as linhas finais para perguntar o motivo. Veja
agora:</font><br>>
require(doBy)<br>Carregando pacotes exigidos: doBy<br>Carregando pacotes
exigidos: survival<br>Carregando pacotes exigidos: splines<br>Carregando pacotes
exigidos: R2HTML<br>Carregando pacotes exigidos: multcomp<br>Carregando pacotes
exigidos: mvtnorm<br>Carregando pacotes exigidos: lme4<br>Failed with
error: ‘package ‘lme4’ could not be loaded’<br>Além disso: Mensagens de
aviso perdidas:<br>In library(pkg, character.only = TRUE, logical.return = TRUE,
lib.loc = lib.loc) :<br> there is no package called ‘lme4’<br>>
<br>> dados <-
read.table("dadosvrf_met_2011090100.txt")<br>>
names(dados) <- c("data", "mrun", "frange", "mtype", "cod", "ylat", "xlon",
"V10", "dirVT", "hOD",<br>+ "hMR", "hVG",
"dirMO", "dirPO", "dirMM", "dirPM", "perMO", "perPO", "perPM")<br>>
<br>> unique(dados$cod)<br>[1] 69151
69150 69152 SBLB SBMM SBEC PRAT <br>Levels: 69150 69151 69152
PRAT SBEC SBLB SBMM<br>> #[1] "69151"
"69150" "69152" "SBLB" "SBMM" "SBEC" "PRAT"<br>>
<br>> table(dados$cod)</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">69150 69151 69152 PRAT SBEC
SBLB SBMM <br> 78 78
78 78 78
78 78 <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>Erro: não foi possível encontrar a função
"recodeVar"<br>> <br>>
table(dados$new_cod)<br>character(0)<br>>
#11114 11115 11117 11118 69150 69151
69152<br>> # 78 78 78 78 78 78 78<br>>
<br></font></div>
<div><font face="Arial"><br><font size="2"></font></font></div><font face="Arial" size="2">Mauro<br><br>voce preciusa prestar mais atenção nesta coisa de rodar os
codigos<br>que enviam<br><br>Esta mensagem (nao encontrou a função)<br>é típica
de algum pacote não carregado.<br><br>Voce nao rodou o<br>require(doBy)<br>que
está na mensagem<br><br>Procure prestar mais atenção e refletir um pouco sobre
as mensagens antes <br>de postar aqui<br><br><br></font>
<br>_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.</div> </div></body>
</html>