<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>fernandohrosa.com.br</title>
	<atom:link href="http://www.fernandohrosa.com.br/br/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.fernandohrosa.com.br/br</link>
	<description>Página pessoal</description>
	<lastBuildDate>Sun, 24 Feb 2013 22:02:58 +0000</lastBuildDate>
	<language>pt-BR</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.5.1</generator>
		<item>
		<title>Vale a pena comprar um ar-condicionado portátil?</title>
		<link>http://www.fernandohrosa.com.br/br/P/vale-a-pena-comprar-um-ar-condicionado-portatil/?utm_source=rss&#038;utm_medium=rss&#038;utm_campaign=vale-a-pena-comprar-um-ar-condicionado-portatil</link>
		<comments>http://www.fernandohrosa.com.br/br/P/vale-a-pena-comprar-um-ar-condicionado-portatil/#comments</comments>
		<pubDate>Sun, 24 Feb 2013 21:58:42 +0000</pubDate>
		<dc:creator>Fernando H Rosa</dc:creator>
				<category><![CDATA[Cotidiano]]></category>
		<category><![CDATA[Destaque]]></category>
		<category><![CDATA[ar-condicionado]]></category>
		<category><![CDATA[verão]]></category>

		<guid isPermaLink="false">http://www.fernandohrosa.com.br/br/?p=655</guid>
		<description><![CDATA[Dando seqüência a série de posts Forno Verão Alegre (veja: Quão atípicos foram o verão 2013 e inverno 2012 em Porto Alegre? e Visualizando o clima de Curitiba e Porto Alegre no R) vou relatar minha experiência com a aquisição de um ar-condicionado portátil. Conteúdo 1. Introdução 2. Modelos de aparelhos Portáteis 3. Forma de [...]]]></description>
				<content:encoded><![CDATA[<p>Dando seqüência a série de posts Forno Verão Alegre (veja: <a href="http://www.fernandohrosa.com.br/br/P/quao-atipicos-foram-o-verao-2013-e-inverno-2012-em-porto-alegre/">Quão atípicos foram o verão 2013 e inverno 2012 em Porto Alegre?</a> e <a href="http://www.fernandohrosa.com.br/br/P/visualizando-o-clima-de-curitiba-e-porto-alegre-no-r/">Visualizando o clima de Curitiba e Porto Alegre no R</a>) vou relatar minha experiência com a aquisição de um ar-condicionado portátil.</p>
<h2>Conteúdo</h2>
<ul>
<li><a href="#introd">1. Introdução</a></li>
<li><a href="#tipos">2. Modelos de aparelhos Portáteis</a></li>
<li><a href="#pgto">3. Forma de Pagamento</a></li>
<li><a href="#instal">4. Instalação</a></li>
<li><a href="#uso">5. Avaliação do Uso</a></li>
<li><a href="#conclusao">6. Conclusão</a></li>
</ul>
<p><a name="introd"></a></p>
<h2>1. Introdução</h2>
<p>Enquanto há um certo consenso que os aparelhos do tipo split costumam ser os preferidos atualmente tanto para residências quanto escritórios, há bastante polêmica sobre ar-condicionados portáteis (veja por exemplo <a href="http://www.htforum.com/vb/archive/index.php/t-12567.html">htforum &#8211; ar condicionado portátil</a>). Depois de estudar bastante as opções e chegar um dia onde o calor não dava mais para tolerar, resolvi comprar um portátil e relatar minhas experiências aqui.</p>
<p>Em primeiro lugar, vale a pena dar uma olhada em como funciona o princípio de funcionamento do ar-condicionado. Esses três vídeos no Youtube explicam o conceito muito bem e recomendo se você quiser entender o processo em detalhes:</p>
<ul>
<li><a href="http://www.youtube.com/watch?v=2wZb6HgIDE0">How Air Conditioning Works Animation&#8211;Part 1 of 3</a></li>
<li><a href="http://www.youtube.com/watch?v=j1nYipLAv0U">How Air Conditioning Works Animation&#8211;Part 2 of 3 (heating, chillers, and the economizer cycle)</a></li>
<li><a href="http://www.youtube.com/watch?v=NyNeh7wPQQk">How Air Conditioning Works Animation&#8211;Part 3 of 3 (Heat pump and geothermal)</a></li>
</ul>
<p><div id="attachment_657" class="wp-caption aligncenter" style="width: 573px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/airconditioner.png"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/airconditioner.png" alt="Diagrama de funcionamento de um sistema de condicionamento de ar" width="563" height="363" class="size-full wp-image-657" /></a><p class="wp-caption-text">Diagrama de funcionamento de um sistema de condicionamento de ar</p></div></p>
<p>Tomando como base a figura explicativa do primeiro vídeo, temos que um sistema de condicionamento de ar funciona basicamente com dois componentes: um evaporador e um condensador. O evaporador absorve calor com a passagem do gás refrigerante, resfriando o ar, e o condensador libera calor para o exterior.</p>
<p>Usualmente neste processo haverá captura de umidade do ar, então este processo de arrefecimento não só diminui a temperatura do ar como também reduz sua umidade.</p>
<p><a name="tipos"></a></p>
<h2>2. Modelos de aparelhos Portáteis</h2>
<p>A principal vantagem dos aparelhos portáteis é exigir pouco trabalho na instalação. O fator decisivo que me fez optar por um é  que morando em um apartamento alugado, parecia muito arriscado investir na instalação de um split e depois pagar esse mesmo custo 2 ou 3 vezes novamente depois para tirar do lugar atual e instalar no novo no caso de uma mudança. Outra vantagem é que com um único aparelho você pode movê-lo para vários cômodos da casa e resfriá-los conforme a necessidade. Durante o dia você pode deixar no escritório, e a noite no quarto para dormir por exemplo.</p>
<p>Existem diversos modelos disponíveis no mercado, porém há que se ter alguns cuidados. Pelo que li nos fórums de reclamações online, alguns modelos mais simples não tem um sistema de evaporação adequado da umidade extraída do ambiente, fazendo com que o reservatório interno encha de água durante a noite e o aparelho pare de funcionar.</p>
<p>Também há vários relatos, principalmente nos modelos mais simples da Midea, que o aparelho não consegue vencer o calor do ambiente e é bem menos eficiente do que os sistemas tradicionais. Também vi alguns desses modelos em funcionamento, e alguns não me convenceram muito pela qualidade do material externo ou da temperatura do ar saindo do aparelho.</p>
<p>Ao final das minhas buscas, cheguei a dois modelos que me pareceram valer a pena:</p>
<ul>
<li>Komeco Ambient 12.000 BTUs Quente/Frio ABP12 &#8211; <a href="http://www.americanas.com.br/produto/7151458/condicionador-de-ar-ambient-12.000-btus-quente-frio-branco-abp12-komeco">Americanas</a>  </li>
<li>Olimpia Splendid PÍU 12.000 BTU&#8217;S &#8211; <a href="http://www.americanas.com.br/produto/7256244/ar-condicionado-piu-12.000-btu-s-portatil-olimpia-splendid">Americanas</a></li>
</ul>
<p>Acabei optando pelo Olimpia por ser o único que achei a pronta-entrega na loja que fui comprar, mas ambos pareceram ser equivalentes e entre as melhores opções para ar-condicionado portátil. Notem que eles são mais caros que muitos dos modelos de entrada que você encontra, mas como vamos ver adiante, se mesmo eles já não conseguem ter a mesma eficiência de um split ou de janela, eu não arriscaria comprar um modelo inferior para continuar com calor depois.</p>
<p><a name="pgto"></a></p>
<h2>3. Forma de Pagamento</h2>
<p>Se você é correntista do Banco do Brasil, é provável que você já tenha uma linha pré-aprovada de crediário automático, com taxas de juros bem atrativas, veja <a href="http://www.bb.com.br/portalbb/page100,116,2102,1,1,1,1.bb?codigoNoticia=540&#038;codigoMenu=172&#038;codigoRet=535&#038;bread=3_5">BB Crediário</a>. Similar ao Construshop do Itaú, mas mais flexível em termos de lojas onde pode ser utilizado e também menos burocrático para contratação, é um tipo de linha de crédito não muito conhecida. Por isso resolvi apontar aqui para quem estiver considerando comprar este tipo de coisa: é uma excelente opção, permitindo a diluição dos gastos em até 54 meses. Para utilizar a linha de crédito do BB Crediário basta utilizar o cartão de múltiplo ou de débito e solicitar na hora de passar no caixa para fazer o pagamento por esta linha de crédito. Simples, desburocratizado e eficiente. A única desvantagem é que até hoje não consegui utilizar esta linha de crédito pela internet, então a compra tem que ser presencial.</p>
<p><a name="instal"></a></p>
<h2>4. Instalação</h2>
<p>A instalação é bem simples, pelo menos no meu caso onde as janelas são de correr. O aparelho vem com um gabarito/régua ajustável e oito parafusos. Você só precisa ajustar para a medida da sua janela e afixar no tamanho correto para ligar o duto que vai expulsar o ar-quente para fora:</p>
<p><div id="attachment_658" class="wp-caption aligncenter" style="width: 293px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/duto-ar.png"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/duto-ar.png" alt="Gabarito/régua e duto para expulsar o ar quente do ambiente" width="283" height="624" class="size-full wp-image-658" /></a><p class="wp-caption-text">Gabarito/régua e duto para expulsar o ar quente do ambiente</p></div></p>
<p><div id="attachment_659" class="wp-caption aligncenter" style="width: 323px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/aparelho.png"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/aparelho.png" alt="Aparelho Olimpia Splendid PÍU 12. Note o duto de ar ao fundo." width="313" height="572" class="size-full wp-image-659" /></a><p class="wp-caption-text">Aparelho Olimpia Splendid PÍU 12. Note o duto de ar ao fundo.</p></div></p>
<p><div id="attachment_661" class="wp-caption aligncenter" style="width: 476px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/transformador.jpg"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/transformador.jpg" alt="Transformador 220-&gt;110V e  carrinho improvisado" width="466" height="262" class="size-full wp-image-661" /></a><p class="wp-caption-text">Transformador 220->110V e  carrinho improvisado</p></div></p>
<p>A única etapa mais trabalhosa foi que tive que comprar um transformador para ligar o ar-condicionado pois estranhamente a maioria dos modelos você só consegue encontrar com facilidade em 220V. Como o transformador é bem pesado isso estava deixando o ar-condicionado ainda menos portátil, assim improvisei um carrinho para transportá-lo, conforme a foto acima.</p>
<p><a name="uso"></a></p>
<h2>5. Avaliação do Uso</h2>
<p>Após instalado a utilização é bem simples, conforme outros tipos de ar-condicionado. Ele tem 4 modos de operação:</p>
<ul>
<li>1. Modo ventilação: funciona como um ventilador normal, sem condicionar o ar</li>
<li>2. Modo arrefecimento (frio): esfria e desumidifica o ar ambiente</li>
<li>3. Modo desumidificação: somente desumidifica o ar ambiente</li>
<li>4. Modo aquecimento: aquece o ambiente. &#8211; Neste modo se faz necessário usar a mangueira para escoamento de água.</li>
</ul>
<p>No modo de arrefecimento (frio) ele apresentou desempenho satisfatório, mas posso confirmar que a temperatura do ar não chega a ficar tão baixa quanto em um ambiente com um split ou ar de parede de mesma quantidade de BTUs. Colocando no modo turbo frio 16 graus e deixando funcionar a noite toda, a temperatura costuma reduzir de em torno de 38/39 graus para em torno de 25/24 graus. Não é o suficiente para simular a temperatura de Curitiba mas já dá para dormir e trabalhar confortavelmente.</p>
<p>Caso seja essencial baixar a temperatura para baixo dos 24 graus pode ser impossível fazê-lo com uma unidade portátil. Com relação ao reservatório de água e a drenagem: não tive nenhum problema com isso até hoje, mesmo tendo utilizado o aparelho por várias noites seguidas. Há de se considerar que a umidade em Porto Alegre não é tão alta, mas minha impressão é que os modelos melhores de ar-condicionado portátil, como este Olimpia Splendid e o Komeco acima, evaporam a água do reservatório automaticamente junto com a saída de ar quente que é expelida pra fora, atenuando a reclamação de algumas pessoas que eu li online que tiveram problemas com o escoamento.</p>
<p>Imagino que no modo inverno, deve-se haver um acumulo maior de água que justifique drenagem, mas como a principal função para o qual eu comprei ele foi escapar do calor, me atende bem.</p>
<p><a name="uso"></a></p>
<h2>6. Conclusão</h2>
<p>Para fechar a avaliação: considero que o ar-condicionado portátil vale a pena em algumas condições, principalmente para uso no calor, desde que 24/25 graus seja uma temperatura agradável para você trabalhar/dormir, em ambientes potencialmente não muito umidos (como Porto Alegre). Para uso em climas mais umidos, ou no inverno como aquecedor, a questão do acúmulo de água deve incomodar mais e pode valer a pena optar por um modelo fixo.</p>
]]></content:encoded>
			<wfw:commentRss>http://www.fernandohrosa.com.br/br/P/vale-a-pena-comprar-um-ar-condicionado-portatil/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Aquecimento Global ou Quão atípicos foram o Verão 2013 e Inverno 2012 em Porto Alegre ?</title>
		<link>http://www.fernandohrosa.com.br/br/P/quao-atipicos-foram-o-verao-2013-e-inverno-2012-em-porto-alegre/?utm_source=rss&#038;utm_medium=rss&#038;utm_campaign=quao-atipicos-foram-o-verao-2013-e-inverno-2012-em-porto-alegre</link>
		<comments>http://www.fernandohrosa.com.br/br/P/quao-atipicos-foram-o-verao-2013-e-inverno-2012-em-porto-alegre/#comments</comments>
		<pubDate>Sun, 17 Feb 2013 23:44:04 +0000</pubDate>
		<dc:creator>Fernando H Rosa</dc:creator>
				<category><![CDATA[Cotidiano]]></category>
		<category><![CDATA[calor]]></category>
		<category><![CDATA[inverno]]></category>
		<category><![CDATA[verão]]></category>

		<guid isPermaLink="false">http://www.fernandohrosa.com.br/br/?p=647</guid>
		<description><![CDATA[Este pequeno post surge como um follow-up natural do Visualizando o clima de Curitiba e Porto Alegre no R. Apesar de ter considerado dados dos últimos 32 anos para construir as análises, fica a dúvida de quanto em particular o inverno de 2012 e o verão de 2013 foram extremos em relação ao passado. Para [...]]]></description>
				<content:encoded><![CDATA[<p>Este pequeno post surge como um follow-up natural do <a href="http://www.fernandohrosa.com.br/br/P/visualizando-o-clima-de-curitiba-e-porto-alegre-no-r/">Visualizando o clima de Curitiba e Porto Alegre no R</a>. Apesar de ter considerado dados dos últimos 32 anos para construir as análises, fica a dúvida de quanto em particular o inverno de 2012 e o verão de 2013 foram extremos em relação ao passado.</p>
<p>Para responder a esta questão, dois gráficos vão ser úteis. Primeiro vamos considerar o período de 10 de outubro até 05 de fevereiro. No gráfico temos um boxplot da Temperata Máxima para cada dia neste intervalo, construído baseado nos últimos 32 anos. Por fim, plotei a Temperatura Máxima deste verão, com um ponto vermelho para cada dia. Se os pontos vermelhos estiveram sempre pra cima da mediana, isso quer dizer que o verão foi atipicamente quente, se estiverem abaixo, que foi menos quente, e se estiverem flutuando ao redor, que não houve algum padrão notável.</p>

<div class="wp_codebox_msgheader"><span class="right"></span><span class="left"><a href="javascript:;" onclick="javascript:showCodeTxt('p647code2'); return false;">Ver código</a> RSPLUS</span><div class="codebox_clear"></div></div><div class="wp_codebox"><table><tr id="p6472"><td class="line_numbers"><pre>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
</pre></td><td class="code" id="p647code2"><pre class="rsplus" style="font-family:monospace;"><span style="color: #228B22;"># 2012-10-10</span>
<span style="color: #228B22;"># 2013-02-05</span>
<span style="color: #228B22;"># Base original neste período:</span>
hr12 <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>inmet,Hora <span style="color: #080;">==</span> <span style="color: #ff0000;">0</span><span style="color: #080;">&#41;</span>
hr12$mesdia <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">factor</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">format</span><span style="color: #080;">&#40;</span>hr12$datas,<span style="color: #ff0000;">&quot;%m%d&quot;</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>
hr12 <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>hr12,Cidade <span style="color: #080;">==</span> <span style="color: #ff0000;">&quot;POA&quot;</span><span style="color: #080;">&#41;</span>
hr12 <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>hr12,mesdia <span style="color: #080;">%</span>in<span style="color: #080;">%</span> <span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;10&quot;</span>,<span style="color: #0000FF; font-weight: bold;">sprintf</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%02d&quot;</span>,<span style="color: #ff0000;">10</span><span style="color: #080;">:</span><span style="color: #ff0000;">31</span><span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">''</span><span style="color: #080;">&#41;</span>,
<span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;11&quot;</span>,<span style="color: #0000FF; font-weight: bold;">sprintf</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%02d&quot;</span>,<span style="color: #ff0000;">1</span><span style="color: #080;">:</span><span style="color: #ff0000;">30</span><span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">''</span><span style="color: #080;">&#41;</span>,
<span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;12&quot;</span>,<span style="color: #0000FF; font-weight: bold;">sprintf</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%02d&quot;</span>,<span style="color: #ff0000;">1</span><span style="color: #080;">:</span><span style="color: #ff0000;">31</span><span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">''</span><span style="color: #080;">&#41;</span>,
<span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;01&quot;</span>,<span style="color: #0000FF; font-weight: bold;">sprintf</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%02d&quot;</span>,<span style="color: #ff0000;">1</span><span style="color: #080;">:</span><span style="color: #ff0000;">31</span><span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">''</span><span style="color: #080;">&#41;</span>,
<span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;02&quot;</span>,<span style="color: #0000FF; font-weight: bold;">sprintf</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%02d&quot;</span>,<span style="color: #ff0000;">1</span><span style="color: #080;">:</span><span style="color: #ff0000;">5</span><span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">''</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>
hr12$mesdia <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">factor</span><span style="color: #080;">&#40;</span>hr12$mesdia<span style="color: #080;">&#41;</span>
hr12$Cidade <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">factor</span><span style="color: #080;">&#40;</span>hr12$Cidade<span style="color: #080;">&#41;</span>
hr12 <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>hr12, <span style="color: #080;">!</span><span style="color: #0000FF; font-weight: bold;">is.<span style="">na</span></span><span style="color: #080;">&#40;</span>TempMaxima<span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>
hr12$mesdia <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">factor</span><span style="color: #080;">&#40;</span>hr12$mesdia,<span style="color: #0000FF; font-weight: bold;">levels</span><span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;10&quot;</span>,<span style="color: #0000FF; font-weight: bold;">sprintf</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%02d&quot;</span>,<span style="color: #ff0000;">10</span><span style="color: #080;">:</span><span style="color: #ff0000;">31</span><span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">''</span><span style="color: #080;">&#41;</span>,
<span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;11&quot;</span>,<span style="color: #0000FF; font-weight: bold;">sprintf</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%02d&quot;</span>,<span style="color: #ff0000;">1</span><span style="color: #080;">:</span><span style="color: #ff0000;">30</span><span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">''</span><span style="color: #080;">&#41;</span>,
<span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;12&quot;</span>,<span style="color: #0000FF; font-weight: bold;">sprintf</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%02d&quot;</span>,<span style="color: #ff0000;">1</span><span style="color: #080;">:</span><span style="color: #ff0000;">31</span><span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">''</span><span style="color: #080;">&#41;</span>,
<span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;01&quot;</span>,<span style="color: #0000FF; font-weight: bold;">sprintf</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%02d&quot;</span>,<span style="color: #ff0000;">1</span><span style="color: #080;">:</span><span style="color: #ff0000;">31</span><span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">''</span><span style="color: #080;">&#41;</span>,
<span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;02&quot;</span>,<span style="color: #0000FF; font-weight: bold;">sprintf</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%02d&quot;</span>,<span style="color: #ff0000;">1</span><span style="color: #080;">:</span><span style="color: #ff0000;">5</span><span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">''</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>,<span style="color: #0000FF; font-weight: bold;">ordered</span><span style="color: #080;">=</span>TRUE<span style="color: #080;">&#41;</span>
&nbsp;
verao12 <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>inverao,Hora <span style="color: #080;">==</span> <span style="color: #ff0000;">0</span><span style="color: #080;">&#41;</span>
verao12$mesdia <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">factor</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">format</span><span style="color: #080;">&#40;</span>verao12$datas,<span style="color: #ff0000;">&quot;%m%d&quot;</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>
&nbsp;
<span style="color: #0000FF; font-weight: bold;">boxplot</span><span style="color: #080;">&#40;</span>TempMaxima ~ mesdia,<span style="color: #0000FF; font-weight: bold;">data</span><span style="color: #080;">=</span>hr12,<span style="color: #0000FF; font-weight: bold;">col</span><span style="color: #080;">=</span><span style="color: #ff0000;">'wheat'</span>,ylab<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;Temperatura Maxima - 1980-2013&quot;</span>,xlab<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;Mês-Dia&quot;</span><span style="color: #080;">&#41;</span>
<span style="color: #0000FF; font-weight: bold;">points</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">1</span><span style="color: #080;">:</span><span style="color: #ff0000;">118</span>,verao12$TempMaxima,pch<span style="color: #080;">=</span><span style="color: #ff0000;">16</span>,<span style="color: #0000FF; font-weight: bold;">col</span><span style="color: #080;">=</span><span style="color: #ff0000;">'red'</span><span style="color: #080;">&#41;</span></pre></td></tr></table></div>

<p><div id="attachment_648" class="wp-caption aligncenter" style="width: 550px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/tempmax.png"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/tempmax.png" alt="Temperaturas Máximas ao longo dos últimos 32 anos comparadas ao Verão 2013" width="540" height="200" class="size-medium wp-image-648" /></a><p class="wp-caption-text">Temperaturas Máximas ao longo dos últimos 32 anos comparadas ao Verão 2013</p></div></p>
<p>A temperatura máxima neste verão foi superior a mediana em 86 dias, ou 72% dos casos. Aparentemente então este verão foi em geral mais quente que o padrão histórico. Uma análise mais detalhada se faz necessária para tirar conclusões mais genéricas, mas o que se observa é que parece que os últimos verões de fato tem estado cada vez mais quentes. Talvez algum indício do aquecimento global, ou fenômeno local de Porto Alegre?</p>
<p>Em particular, a semana do natal foi a que teve o maior pico até o momento e inclusive ficou para fora dos limites de outlier dos boxplots para o período. Isso conversa bem com a minha experiência aqui até agora: o calor mais absurdo que passei aqui foi justamente neste período do Natal. Felizmente os dados dos últimos 32 anos mostram que esse comportamento é atípico, embora esteja ficando mais comum. Conclusão: não tem como escapar de comprar um ar-condicionado, já que a tendência é piorar.</p>
<p>Fazendo o mesmo para os mêses do inverno de 2012, obtemos um gráfico análogo, porém os pontos azuis agora denotam a Mínima do inverno de 2012:</p>
<p><div id="attachment_650" class="wp-caption aligncenter" style="width: 550px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/tempmin.png"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2013/02/tempmin-300x111.png" alt="Temperaturas Mínimas ao longo dos últimos 32 anos comparadas ao Inverno de 2012" width="540" height="200" class="size-medium wp-image-650" /></a><p class="wp-caption-text">Temperaturas Mínimas ao longo dos últimos 32 anos comparadas ao Inverno de 2012</p></div></p>
<p>No caso do inverno, cerca de 50% dos pontos ficaram pra cima da mediana e 50% abaixo, o que parece nos sugerir que o inverno por outro lado foi bem típico em relação aos dados históricos.</p>
]]></content:encoded>
			<wfw:commentRss>http://www.fernandohrosa.com.br/br/P/quao-atipicos-foram-o-verao-2013-e-inverno-2012-em-porto-alegre/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Visualizando o clima de Curitiba e Porto Alegre no R</title>
		<link>http://www.fernandohrosa.com.br/br/P/visualizando-o-clima-de-curitiba-e-porto-alegre-no-r/?utm_source=rss&#038;utm_medium=rss&#038;utm_campaign=visualizando-o-clima-de-curitiba-e-porto-alegre-no-r</link>
		<comments>http://www.fernandohrosa.com.br/br/P/visualizando-o-clima-de-curitiba-e-porto-alegre-no-r/#comments</comments>
		<pubDate>Mon, 12 Nov 2012 00:10:46 +0000</pubDate>
		<dc:creator>Fernando H Rosa</dc:creator>
				<category><![CDATA[Cotidiano]]></category>
		<category><![CDATA[Estatística]]></category>
		<category><![CDATA[R]]></category>
		<category><![CDATA[clima]]></category>
		<category><![CDATA[temperatura]]></category>

		<guid isPermaLink="false">http://www.fernandohrosa.com.br/br/?p=634</guid>
		<description><![CDATA[Conteúdo 1. Introdução 2. Fontes de Dados 3. Leitura e Verificação de Consistências 4. Comparando o Frio 5. Comparando o Calor 6. Umidade Relativa do Ar 7. Conclusões Referências 1. Introdução Após algumas noites mal dormidas por conta do calor, resolvi usar a estatística para saber o que me espera no verão de Porto Alegre. [...]]]></description>
				<content:encoded><![CDATA[<h2>Conteúdo</h2>
<ul>
<li><a href="#introd">1. Introdução</a></li>
<li><a href="#datasources">2. Fontes de Dados</a></li>
<li><a href="#leitura">3. Leitura e Verificação de Consistências</a></li>
<li><a href="#frio">4. Comparando o Frio</a></li>
<li><a href="#calor">5. Comparando o Calor</a></li>
<li><a href="#umidade">6. Umidade Relativa do Ar</a></li>
<li><a href="#conclusoes">7. Conclusões</a></li>
<li><a href="#refs">Referências</a></li>
</ul>
<p><a name="introd"></a></p>
<h2>1. Introdução</h2>
<p>Após algumas noites mal dormidas por conta do calor, resolvi usar a estatística para saber o que me espera no verão de Porto Alegre. Este post foi inspirado por uma apresentação sobre visualização da <a href="http://fernandaviegas.com/">Fernanda Viegas</a>, que assisti faz alguns anos no IME-USP (&lt; 2005, provavelmente, pois não encontrei-a no site dela).</p>
<p>O exemplo que ela utilizou na apresentação ficou comigo até hoje. Ela mostrou algumas figuras de ambientes urbanos, e pedia para que julgássemos se era um lugar perigoso ou seguro, hospitaleiro ou inóspito. Sem precisar parar para pensar, a maioria das pessoas que já viveram em grandes centros urbanos consegue <em>visualizar</em> estes atributos de maneira intuitiva.</p>
<p>O grande desafio da ciência/arte de visualização de dados é conseguir construir representações visuais que proporcionem a quem está interpretando a possibilidade de tirar a maior quantidade de informações possíveis da maneira mais intuitiva possível. No limite, o processo deveria ser tão simples quanto o exemplo que ela mostrou. Quanto mais legendas e explicações são necessárias para interpretar um gráfico, mais longe estamos do objetivo.</p>
<p>Se antigamente esta era uma área de nicho bem pequena, hoje em dia com &#8216;big data&#8217; virando a buzz-word do momento, tem uma multitude de coisas interessantes sendo feitas nessa área. Para quem se interessa por essa área, coloquei algumas referências no final do post. </p>
<p>Encontrei o site <a href="http://www.weather.com/outlook/travel/vacationplanner/compare">Vacation Planner: Climate Comparison</a> do Weather.com, que permite comparar duas cidades no mundo de maneira bem fácil. Segue o exemplo para Curitiba e Porto Alegre:</p>
<p><div id="attachment_636" class="wp-caption aligncenter" style="width: 461px"><a href="http://www.weather.com/outlook/travel/vacationplanner/compare/results?from=vac_compare&amp;clocid1=BRXX0079&amp;clocid2=BRXX0186"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/11/poacwbweathercom.png" alt="" title="Curitiba vs Porto Alegre Average Lows" width="441" height="415" class="size-full wp-image-636" /></a><p class="wp-caption-text">Comparação da média da temperatura mínima por mês entre Curitiba e Porto Alegre. Clique <a href="http://www.weather.com/outlook/travel/vacationplanner/compare">aqui</a> para ir ao Vacation Planner: Climate Comparison e comparar quaisquer duas cidades.</p></div></p>
<p>O problema é que eles não fornecem os dados brutos e você fica bem limitado no tipo de comparação que pode ser feita. A ideia desse post é aplicar alguns dos princípios de visualização de dados e mostrar como fazer uma comparação mais detalhada do clima das duas cidades usando o R.</p>
<p><a name="datasources"></a></p>
<h2>2. Fontes de Dados</h2>
<p>O Instituto Nacional de Meterologia &#8211; <a href="http://www.inmet.gov.br/">www.inmet.gov.br</a> disponibiliza dados de centenas de estações metereológicas no país, com dados disponíveis desde o começo do século passado. O processo é bem simples, basta acessar o link do <a href="http://www.inmet.gov.br/projetos/rede/pesquisa/">BDMEP &#8211; Banco de Dados Meteorólogicos para Ensino e Pesquisa</a>, criar uma conta e obter os dados desejados. No nosso caso solicitei os dados para a estação 83842 &#8211; Curitiba e 83967 &#8211; Porto Alegre, com dados dos últimos 32 anos (desde 01/01/1980 até 09/10/2012).</p>
<p>Os dados saem em formato CSV, então basta copiar e colar em um arquivo texto para conseguir ler no R. Como o ponto decimal estava em formato americano, somente tive que substituir todos os pontos por virgulas para ler com o read.csv2() no R.</p>
<p><a name="leitura"></a></p>
<h2>3. Leitura e verificação de consistência</h2>
<p>Com o código abaixo lemos os dados, armazenamos a data em formato Date e criamos uma variável para indicar a cidade.</p>

<div class="wp_codebox_msgheader"><span class="right"></span><span class="left"><a href="javascript:;" onclick="javascript:showCodeTxt('p634code12'); return false;">Ver código</a> RSPLUS</span><div class="codebox_clear"></div></div><div class="wp_codebox"><table><tr id="p63412"><td class="line_numbers"><pre>1
2
3
4
5
6
7
</pre></td><td class="code" id="p634code12"><pre class="rsplus" style="font-family:monospace;">inmet <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">read.<span style="">csv2</span></span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;combined1980.csv&quot;</span><span style="color: #080;">&#41;</span>
datas2 <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">as.<span style="">Date</span></span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">strptime</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">as.<span style="">character</span></span><span style="color: #080;">&#40;</span>inmet$Data<span style="color: #080;">&#41;</span>, <span style="color: #ff0000;">&quot;%d/%m/%Y&quot;</span>,tz<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;GMT&quot;</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>
inmet$datas <span style="color: #080;">&lt;-</span> datas2
inmet$DirecaoVento <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">factor</span><span style="color: #080;">&#40;</span>inmet$DirecaoVento<span style="color: #080;">&#41;</span> 
<span style="color: #0000FF; font-weight: bold;">str</span><span style="color: #080;">&#40;</span>inmet<span style="color: #080;">&#41;</span>
<span style="color: #0000FF; font-weight: bold;">summary</span><span style="color: #080;">&#40;</span>inmet$datas<span style="color: #080;">&#41;</span>
inmet$Cidade <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">factor</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">ifelse</span><span style="color: #080;">&#40;</span>inmet$Estacao <span style="color: #080;">==</span> <span style="color: #ff0000;">83842</span>,<span style="color: #ff0000;">&quot;CWB&quot;</span>,<span style="color: #ff0000;">&quot;POA&quot;</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span></pre></td></tr></table></div>

<p>Uma coisa que chama a atenção é que o número de dados não é o mesmo para as duas estações, o que sugere que há datas onde não há informação. Para verificar se não há &#8216;buracos&#8217; desiguais em termos de datas que possam influenciar nossa análise, o comando abaixo permite listar as datas faltantes para cada estação:</p>

<div class="wp_codebox_msgheader"><span class="right"></span><span class="left"><a href="javascript:;" onclick="javascript:showCodeTxt('p634code13'); return false;">Ver código</a> RSPLUS</span><div class="codebox_clear"></div></div><div class="wp_codebox"><table><tr id="p63413"><td class="line_numbers"><pre>1
2
3
4
5
6
7
8
9
10
11
12
13
</pre></td><td class="code" id="p634code13"><pre class="rsplus" style="font-family:monospace;">datascwb <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>inmet, Cidade <span style="color: #080;">==</span> <span style="color: #ff0000;">&quot;CWB&quot;</span><span style="color: #080;">&#41;</span>$datas
dataspoa <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>inmet, Cidade <span style="color: #080;">==</span> <span style="color: #ff0000;">&quot;POA&quot;</span><span style="color: #080;">&#41;</span>$datas
&nbsp;
<span style="color: #0000FF; font-weight: bold;">summary</span><span style="color: #080;">&#40;</span>datascwb<span style="color: #080;">&#41;</span>
<span style="color: #0000FF; font-weight: bold;">summary</span><span style="color: #080;">&#40;</span>dataspoa<span style="color: #080;">&#41;</span>
&nbsp;
completo <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">seq</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">as.<span style="">Date</span></span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;1980/1/1&quot;</span><span style="color: #080;">&#41;</span>,<span style="color: #0000FF; font-weight: bold;">as.<span style="">Date</span></span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;2012/10/9&quot;</span><span style="color: #080;">&#41;</span>,<span style="color: #0000FF; font-weight: bold;">by</span><span style="color: #080;">=</span><span style="color: #ff0000;">1</span><span style="color: #080;">&#41;</span>
&nbsp;
faltantes <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">which</span><span style="color: #080;">&#40;</span>completo <span style="color: #080;">%</span>in<span style="color: #080;">%</span> datascwb <span style="color: #080;">!=</span> TRUE<span style="color: #080;">&#41;</span>
completo<span style="color: #080;">&#91;</span>faltantes<span style="color: #080;">&#93;</span>
&nbsp;
faltantes <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">which</span><span style="color: #080;">&#40;</span>completo <span style="color: #080;">%</span>in<span style="color: #080;">%</span> dataspoa <span style="color: #080;">!=</span> TRUE<span style="color: #080;">&#41;</span>
completo<span style="color: #080;">&#91;</span>faltantes<span style="color: #080;">&#93;</span></pre></td></tr></table></div>

<p>Vemos que há cerca de 500 datas faltantes para Curitiba e 1500 para Porto Alegre, o que dá cerca de 5% de faltantes para POA e 2% para Curitiba. Como a proporção é baixa e as datas faltantes não parecem particularmente concentradas em períodos diferentes para as duas cidades vamos ignorar isto por hora e prosseguir com a análise.</p>
<p><a name="frio"></a><br />
<h2>4. Comparando o Frio</h2>
<p>Minha primeira surpresa foi notar que o inverno em Porto Alegre não era tão rigoroso quanto em Curitiba. Intuitivamente por conta da localização mais ao Sul, a impressão é que o clima seria mais frio no inverno. Entretanto a altitude compensa bastante neste caso: Porto Alegre está praticamente no nível do mar, enquanto Curitiba está a quase 1.000 metros. </p>
<p>Vamos ver se os dados corroboram esta impressão. Vamos começar olhando os dados de Temperatura Mínima conforme medido nas estações. Esta informação está registrada somente nas linhas com Hora == 1200, portanto o filtro linha 1. Depois calculamos a média diária ao longo dos últimos 32 anos para cada dia do ano para ambas as cidades. Para ter uma idéia da magnitude da variação, calculamos o desvio-padrão também.</p>

<div class="wp_codebox_msgheader"><span class="right"></span><span class="left"><a href="javascript:;" onclick="javascript:showCodeTxt('p634code14'); return false;">Ver código</a> RSPLUS</span><div class="codebox_clear"></div></div><div class="wp_codebox"><table><tr id="p63414"><td class="line_numbers"><pre>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
</pre></td><td class="code" id="p634code14"><pre class="rsplus" style="font-family:monospace;">hr12 <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>inmet,Hora <span style="color: #080;">==</span> <span style="color: #ff0000;">1200</span><span style="color: #080;">&#41;</span>
hr12$mesdia <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">factor</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">format</span><span style="color: #080;">&#40;</span>hr12$datas,<span style="color: #ff0000;">&quot;%m%d&quot;</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>
hr12poa <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>hr12,Cidade <span style="color: #080;">==</span> <span style="color: #ff0000;">&quot;POA&quot;</span><span style="color: #080;">&#41;</span>
hr12cwb <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>hr12,Cidade <span style="color: #080;">==</span> <span style="color: #ff0000;">&quot;CWB&quot;</span><span style="color: #080;">&#41;</span>
tm.<span style="">medspoa</span> <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">tapply</span><span style="color: #080;">&#40;</span>hr12poa$TempMinima,hr12poa$mesdia,<span style="color: #0000FF; font-weight: bold;">mean</span>,na.<span style="">rm</span><span style="color: #080;">=</span>TRUE<span style="color: #080;">&#41;</span>
tm.<span style="">medscwb</span> <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">tapply</span><span style="color: #080;">&#40;</span>hr12cwb$TempMinima,hr12cwb$mesdia,<span style="color: #0000FF; font-weight: bold;">mean</span>,na.<span style="">rm</span><span style="color: #080;">=</span>TRUE<span style="color: #080;">&#41;</span>
tm.<span style="">sdspoa</span> <span style="color: #080;">&lt;-</span>  <span style="color: #0000FF; font-weight: bold;">tapply</span><span style="color: #080;">&#40;</span>hr12poa$TempMinima,hr12poa$mesdia,<span style="color: #0000FF; font-weight: bold;">sd</span>,na.<span style="">rm</span><span style="color: #080;">=</span>TRUE<span style="color: #080;">&#41;</span>
tm.<span style="">sdscwb</span> <span style="color: #080;">&lt;-</span>  <span style="color: #0000FF; font-weight: bold;">tapply</span><span style="color: #080;">&#40;</span>hr12cwb$TempMinima,hr12cwb$mesdia,<span style="color: #0000FF; font-weight: bold;">sd</span>,na.<span style="">rm</span><span style="color: #080;">=</span>TRUE<span style="color: #080;">&#41;</span>
&nbsp;
shortdata <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">as.<span style="">Date</span></span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;2012&quot;</span>,<span style="color: #0000FF; font-weight: bold;">levels</span><span style="color: #080;">&#40;</span>hr12poa$mesdia<span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;&quot;</span><span style="color: #080;">&#41;</span>,<span style="color: #0000FF; font-weight: bold;">format</span><span style="color: #080;">=</span><span style="color: #ff0000;">&quot;%Y%m%d&quot;</span><span style="color: #080;">&#41;</span>
longdata <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">as.<span style="">POSIXct</span></span><span style="color: #080;">&#40;</span>shortdata,tz<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;BRST&quot;</span><span style="color: #080;">&#41;</span>
&nbsp;
comp <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">data.<span style="">frame</span></span><span style="color: #080;">&#40;</span>shortdata,datas<span style="color: #080;">=</span>longdata,Cidade<span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">rep</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;CWB&quot;</span>,<span style="color: #ff0000;">366</span><span style="color: #080;">&#41;</span>,<span style="color: #0000FF; font-weight: bold;">rep</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;POA&quot;</span>,<span style="color: #ff0000;">366</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>,
	   tm.<span style="">meds</span><span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">as.<span style="">numeric</span></span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span>tm.<span style="">medscwb</span>,tm.<span style="">medspoa</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>,
	   tm.<span style="">sds</span><span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">as.<span style="">numeric</span></span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span>tm.<span style="">sdscwb</span>,tm.<span style="">sdspoa</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>
	    <span style="color: #080;">&#41;</span></pre></td></tr></table></div>

<p>Por fim carregamos os pacotes scales e ggplot2 para fazer o gráfico e utilizandos as funções especiais scale_x_datetime e scale_y_continuous para dar os retoques finais:</p>

<div class="wp_codebox_msgheader"><span class="right"></span><span class="left"><a href="javascript:;" onclick="javascript:showCodeTxt('p634code15'); return false;">Ver código</a> RSPLUS</span><div class="codebox_clear"></div></div><div class="wp_codebox"><table><tr id="p63415"><td class="line_numbers"><pre>1
2
3
4
5
</pre></td><td class="code" id="p634code15"><pre class="rsplus" style="font-family:monospace;"><span style="color: #0000FF; font-weight: bold;">require</span><span style="color: #080;">&#40;</span>ggplot2<span style="color: #080;">&#41;</span>
<span style="color: #0000FF; font-weight: bold;">require</span><span style="color: #080;">&#40;</span>scales<span style="color: #080;">&#41;</span>
&nbsp;
qplot<span style="color: #080;">&#40;</span>datas,tm.<span style="">meds</span>,<span style="color: #0000FF; font-weight: bold;">data</span><span style="color: #080;">=</span>comp,geom<span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;point&quot;</span>,<span style="color: #ff0000;">&quot;smooth&quot;</span><span style="color: #080;">&#41;</span>,color<span style="color: #080;">=</span>Cidade,method<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;loess&quot;</span>,ylab<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;TempMinima oC&quot;</span>,xlab<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;Dia do mês&quot;</span><span style="color: #080;">&#41;</span>
last_plot<span style="color: #080;">&#40;</span><span style="color: #080;">&#41;</span> <span style="color: #080;">+</span> scale_x_datetime<span style="color: #080;">&#40;</span>breaks<span style="color: #080;">=</span>date_breaks<span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;30 days&quot;</span><span style="color: #080;">&#41;</span>,minor_breaks<span style="color: #080;">=</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;15 days&quot;</span><span style="color: #080;">&#41;</span>,<span style="color: #0000FF; font-weight: bold;">labels</span><span style="color: #080;">=</span>date_format<span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%b&quot;</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span> <span style="color: #080;">+</span> scale_y_continuous<span style="color: #080;">&#40;</span>breaks<span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">seq</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">5</span>,<span style="color: #ff0000;">25</span>,<span style="color: #0000FF; font-weight: bold;">by</span><span style="color: #080;">=</span><span style="color: #ff0000;">5</span><span style="color: #080;">&#41;</span>,minor_breaks<span style="color: #080;">=</span><span style="color: #ff0000;">1</span><span style="color: #080;">:</span><span style="color: #ff0000;">25</span><span style="color: #080;">&#41;</span></pre></td></tr></table></div>

<p><div id="attachment_637" class="wp-caption aligncenter" style="width: 550px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/11/medstempmin.png"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/11/medstempmin.png" alt="" title="Medias Temp Minima" width="540" height="297" class="size-medium wp-image-637" /></a><p class="wp-caption-text">Médias ao longo dos últimos 32 anos (1980-2012) para a temperatura mínima para as duas cidades para cada dia do ano</p></div></p>
<p>Clique na imagem para visualizar a versão em tamanho completo. Com este gráfico conseguimos resumir o comportamento da temperatura mínima para as duas cidades e várias conclusões interessantes podem ser tiradas. Cada ponto no gráfico representa a média de até 32 anos por cidade. As linhas tracejadas representam um ajuste não paramétrico de smoothing por loess, que captura as tendências ao longo do tempo. A banda cinza ao redor da linha de ajuste representa uma margem de confiança de aproximadamente 95%. Como as margens não se cruzam em nenhum ponto podemos concluir que a temperatura mínima em Curitiba é estatisticamente diferente em relação a Porto Alegre. Pela posição das curvas, vemos que a temperatura mínima é quase sempre menor em Curitiba. O maior gap está curiosamente nos meses de verão, onde chega a quase 5 graus a menos. No inverno a temperatura está em média 2 graus a menos, com as temperaturas mais baixas no final de julho em Curitiba.</p>
<p>Outro ponto curioso é a queda abrupta na temperatura de março para abril. Em ambas as cidades, mas mais marcadamente para Porto Alegre, se nota este padrão de queda bem íngreme, tanto que o alisamento por loess suaviza até um pouco de mais essa queda. </p>
<p>O gráfico acima nos dá bastante informação sobre as médias mas não nos informa nada sobre a variabilidade da temperatura ao longo dos anos para cada dia. Com um pequeno ajuste fazemos o mesmo gráfico mas para os desvios:</p>

<div class="wp_codebox_msgheader"><span class="right"></span><span class="left"><a href="javascript:;" onclick="javascript:showCodeTxt('p634code16'); return false;">Ver código</a> RSPLUS</span><div class="codebox_clear"></div></div><div class="wp_codebox"><table><tr id="p63416"><td class="line_numbers"><pre>1
2
</pre></td><td class="code" id="p634code16"><pre class="rsplus" style="font-family:monospace;">qplot<span style="color: #080;">&#40;</span>datas,tm.<span style="">sds</span>,<span style="color: #0000FF; font-weight: bold;">data</span><span style="color: #080;">=</span>comp,geom<span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;point&quot;</span>,<span style="color: #ff0000;">&quot;smooth&quot;</span><span style="color: #080;">&#41;</span>,color<span style="color: #080;">=</span>Cidade,method<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;loess&quot;</span>,ylab<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;TempMinima oC&quot;</span>,xlab<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;Dia do mês<span style="color: #000099; font-weight: bold;">\n</span> Desvios&quot;</span><span style="color: #080;">&#41;</span>
last_plot<span style="color: #080;">&#40;</span><span style="color: #080;">&#41;</span> <span style="color: #080;">+</span> scale_x_datetime<span style="color: #080;">&#40;</span>breaks<span style="color: #080;">=</span>date_breaks<span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;30 days&quot;</span><span style="color: #080;">&#41;</span>,minor_breaks<span style="color: #080;">=</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;15 days&quot;</span><span style="color: #080;">&#41;</span>,<span style="color: #0000FF; font-weight: bold;">labels</span><span style="color: #080;">=</span>date_format<span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%b&quot;</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span></pre></td></tr></table></div>

<p><div id="attachment_638" class="wp-caption aligncenter" style="width: 550px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/11/desvstempmin.png"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/11/desvstempmin.png" alt="" title="desvstempmin" width="540" height="280" class="size-medium wp-image-638" /></a><p class="wp-caption-text">Desvio-padrão por dia por cidade (1980-2012, dados INMET)</p></div></p>
<p>Curiosamente, no gráfico de desvios o padrão se inverte, com Porto Alegre quase sempre acima de Curitiba. Outro ponto curioso é que a variabilidade é maior nos meses de menor temperatura. Isso indica que Curitiba esteve uniformemente mais fria que Porto Alegre nos últimos 32 anos, embora nos meses de inverno haja uma instabilidade maior.</p>
<p>Outra informação interessante é considerar que o efeito da temperatura no inverno acaba sendo nivelado por baixo, os dias mais frios acabam sendo talvez mais impactantes do que vários dias com temperaturas mais amenas. Com os comandos abaixo listamos todas as vezes que ocorreram temperaturas abaixo de 0 registradas pelas estações metereológicas em questão nos últimos 32 anos:</p>

<div class="wp_codebox_msgheader"><span class="right"></span><span class="left"><a href="javascript:;" onclick="javascript:showCodeTxt('p634code17'); return false;">Ver código</a> RSPLUS</span><div class="codebox_clear"></div></div><div class="wp_codebox"><table><tr id="p63417"><td class="line_numbers"><pre>1
2
3
4
</pre></td><td class="code" id="p634code17"><pre class="rsplus" style="font-family:monospace;"><span style="color: #0000FF; font-weight: bold;">table</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>inmet,TempMinima <span style="color: #080;">&lt;</span> <span style="color: #ff0000;">0</span><span style="color: #080;">&#41;</span>$Cidade<span style="color: #080;">&#41;</span>
<span style="color: #080;">&gt;</span> CWB POA 
<span style="color: #080;">&gt;</span>  <span style="color: #ff0000;">39</span>   <span style="color: #ff0000;">1</span> 
qplot<span style="color: #080;">&#40;</span>datas,TempMinima,<span style="color: #0000FF; font-weight: bold;">data</span><span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>inmet,TempMinima <span style="color: #080;">&lt;</span> <span style="color: #ff0000;">0</span><span style="color: #080;">&#41;</span>,color<span style="color: #080;">=</span>Cidade<span style="color: #080;">&#41;</span></pre></td></tr></table></div>

<p>Onde vemos que houveram somente 40 dias com temperatura mínima registrando valores abaixo de 0oC no período, das quais 39 em Curitiba e 1 em Porto Alegre. A pior até agora foi no inverno de 2000, onde a estação chegou a marcar quase -4oC em Curitiba. Lembro-me bem deste inverno! Sai com 5 blusas na rua e ainda estava com frio. De maneira geral a análise corrobora a impressão que eu tinha, embora a diferença não seja tão grande em termos absolutos.</p>
<p><div id="attachment_639" class="wp-caption aligncenter" style="width: 550px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/11/top40low.png"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/11/top40low-300x156.png" alt="" title="40 temperaturas mais baixas de 1980 a 2012" width="540" height="280" class="size-medium wp-image-639" /></a><p class="wp-caption-text">40 temperaturas mais baixas de 1980 a 2012</p></div></p>
<p><a name="calor"></a><br />
<h2>5. Comparando o Calor</h2>
<p>Agora vem a análise que me motivou a coletar os dados (e dimensionar quantos ventiladores vou precisar pra conseguir dormir no verão!). Com código análogo ao anterior, computamos os valores necessários para fazer os gráficos das Temperaturas Máximas:</p>

<div class="wp_codebox_msgheader"><span class="right"></span><span class="left"><a href="javascript:;" onclick="javascript:showCodeTxt('p634code18'); return false;">Ver código</a> RSPLUS</span><div class="codebox_clear"></div></div><div class="wp_codebox"><table><tr id="p63418"><td class="line_numbers"><pre>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
</pre></td><td class="code" id="p634code18"><pre class="rsplus" style="font-family:monospace;"><span style="color: #228B22;"># max</span>
hr12 <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>inmet,Hora <span style="color: #080;">==</span> <span style="color: #ff0000;">0</span><span style="color: #080;">&#41;</span>
hr12$mesdia <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">factor</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">format</span><span style="color: #080;">&#40;</span>hr12$datas,<span style="color: #ff0000;">&quot;%m%d&quot;</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>
hr12poa <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>hr12,Cidade <span style="color: #080;">==</span> <span style="color: #ff0000;">&quot;POA&quot;</span><span style="color: #080;">&#41;</span>
hr12cwb <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">subset</span><span style="color: #080;">&#40;</span>hr12,Cidade <span style="color: #080;">==</span> <span style="color: #ff0000;">&quot;CWB&quot;</span><span style="color: #080;">&#41;</span>
tm.<span style="">medspoa</span> <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">tapply</span><span style="color: #080;">&#40;</span>hr12poa$TempMaxima,hr12poa$mesdia,<span style="color: #0000FF; font-weight: bold;">mean</span>,na.<span style="">rm</span><span style="color: #080;">=</span>TRUE<span style="color: #080;">&#41;</span>
tm.<span style="">medscwb</span> <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">tapply</span><span style="color: #080;">&#40;</span>hr12cwb$TempMaxima,hr12cwb$mesdia,<span style="color: #0000FF; font-weight: bold;">mean</span>,na.<span style="">rm</span><span style="color: #080;">=</span>TRUE<span style="color: #080;">&#41;</span>
tm.<span style="">sdspoa</span> <span style="color: #080;">&lt;-</span>  <span style="color: #0000FF; font-weight: bold;">tapply</span><span style="color: #080;">&#40;</span>hr12poa$TempMaxima,hr12poa$mesdia,<span style="color: #0000FF; font-weight: bold;">sd</span>,na.<span style="">rm</span><span style="color: #080;">=</span>TRUE<span style="color: #080;">&#41;</span>
tm.<span style="">sdscwb</span> <span style="color: #080;">&lt;-</span>  <span style="color: #0000FF; font-weight: bold;">tapply</span><span style="color: #080;">&#40;</span>hr12cwb$TempMaxima,hr12cwb$mesdia,<span style="color: #0000FF; font-weight: bold;">sd</span>,na.<span style="">rm</span><span style="color: #080;">=</span>TRUE<span style="color: #080;">&#41;</span>
&nbsp;
shortdata <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">as.<span style="">Date</span></span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">paste</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;2012&quot;</span>,<span style="color: #0000FF; font-weight: bold;">levels</span><span style="color: #080;">&#40;</span>hr12poa$mesdia<span style="color: #080;">&#41;</span>,sep<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;&quot;</span><span style="color: #080;">&#41;</span>,<span style="color: #0000FF; font-weight: bold;">format</span><span style="color: #080;">=</span><span style="color: #ff0000;">&quot;%Y%m%d&quot;</span><span style="color: #080;">&#41;</span>
longdata <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">as.<span style="">POSIXct</span></span><span style="color: #080;">&#40;</span>shortdata,tz<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;BRST&quot;</span><span style="color: #080;">&#41;</span>
&nbsp;
comp <span style="color: #080;">&lt;-</span> <span style="color: #0000FF; font-weight: bold;">data.<span style="">frame</span></span><span style="color: #080;">&#40;</span>shortdata,datas<span style="color: #080;">=</span>longdata,Cidade<span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">rep</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;CWB&quot;</span>,<span style="color: #ff0000;">366</span><span style="color: #080;">&#41;</span>,<span style="color: #0000FF; font-weight: bold;">rep</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;POA&quot;</span>,<span style="color: #ff0000;">366</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>,
	   tm.<span style="">meds</span><span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">as.<span style="">numeric</span></span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span>tm.<span style="">medscwb</span>,tm.<span style="">medspoa</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>,
	   tm.<span style="">sds</span><span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">as.<span style="">numeric</span></span><span style="color: #080;">&#40;</span><span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span>tm.<span style="">sdscwb</span>,tm.<span style="">sdspoa</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span>
	    <span style="color: #080;">&#41;</span></pre></td></tr></table></div>

<p>Da mesma maneira, obtemos os gráficos:</p>

<div class="wp_codebox_msgheader"><span class="right"></span><span class="left"><a href="javascript:;" onclick="javascript:showCodeTxt('p634code19'); return false;">Ver código</a> RSPLUS</span><div class="codebox_clear"></div></div><div class="wp_codebox"><table><tr id="p63419"><td class="line_numbers"><pre>1
2
3
4
5
</pre></td><td class="code" id="p634code19"><pre class="rsplus" style="font-family:monospace;"><span style="color: #0000FF; font-weight: bold;">require</span><span style="color: #080;">&#40;</span>ggplot2<span style="color: #080;">&#41;</span>
<span style="color: #0000FF; font-weight: bold;">require</span><span style="color: #080;">&#40;</span>scales<span style="color: #080;">&#41;</span>
&nbsp;
qplot<span style="color: #080;">&#40;</span>datas,tm.<span style="">meds</span>,<span style="color: #0000FF; font-weight: bold;">data</span><span style="color: #080;">=</span>comp,geom<span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;point&quot;</span>,<span style="color: #ff0000;">&quot;smooth&quot;</span><span style="color: #080;">&#41;</span>,color<span style="color: #080;">=</span>Cidade,method<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;loess&quot;</span>,ylab<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;TempMaxima oC&quot;</span>,xlab<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;Dia do mês <span style="color: #000099; font-weight: bold;">\n</span>Médias&quot;</span><span style="color: #080;">&#41;</span>
last_plot<span style="color: #080;">&#40;</span><span style="color: #080;">&#41;</span> <span style="color: #080;">+</span> scale_x_datetime<span style="color: #080;">&#40;</span>breaks<span style="color: #080;">=</span>date_breaks<span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;30 days&quot;</span><span style="color: #080;">&#41;</span>,minor_breaks<span style="color: #080;">=</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;15 days&quot;</span><span style="color: #080;">&#41;</span>,<span style="color: #0000FF; font-weight: bold;">labels</span><span style="color: #080;">=</span>date_format<span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%b&quot;</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span></pre></td></tr></table></div>

<p><div id="attachment_640" class="wp-caption aligncenter" style="width: 550px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/11/medstempmax.png"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/11/medstempmax-300x158.png" alt="" title="medstempmax" width="540" height="284" class="size-medium wp-image-640" /></a><p class="wp-caption-text">Médias temperaturas máximas 1980-2012</p></div></p>
<p>Os resultados são bem preocupantes. Seguindo o padrão histórico, começo de novembro em Porto Alegre ainda está substancialmente abaixo do que se obteve historicamente de janeiro a março. Conclusão [ pausa para ir ao SamsClub buscar um novo ventilador ] &#8211; ainda vai esquentar bastante &#8211; e vai ficar no novo patamar por quase 3 meses seguidos, com baixa variabilidade. Agora entendi porque 110%  de Porto Alegre foge para a praia no verão.</p>
<p>O código em R não está muito elegante nem otimizado da melhor maneira possível mas queria deixar como referência para quem precisar trabalhar com dados parecidos. Se tiverem sugestões deixem nos comentários. Prometo que se não estiver derretendo no verão atualizo as análises com mais variáveis depois (umidade relativa do ar, índices pluviométricos, velocidade do vento&#8230;).</p>
<p><a name="umidade"></a><br />
<h2>6. Umidade Relativa do Ar</h2>
<p>Conforme prometido &#8211; e milagrosamente termos sobrevivido ao verão Forno Alegre 2013 sem ar-condicionado até o dia 02 de Fevereiro (veja [em breve] o post &#8211; Vale a pena comprar um ar-condicionado portátil?) seguem os dados de umidade, que nos ajudam a responder o comentário do Ângelo Goethe:</p>

<div class="wp_codebox_msgheader"><span class="right"></span><span class="left"><a href="javascript:;" onclick="javascript:showCodeTxt('p634code20'); return false;">Ver código</a> RSPLUS</span><div class="codebox_clear"></div></div><div class="wp_codebox"><table><tr id="p63420"><td class="line_numbers"><pre>1
2
</pre></td><td class="code" id="p634code20"><pre class="rsplus" style="font-family:monospace;">qplot<span style="color: #080;">&#40;</span>datas,ur.<span style="">meds</span>,<span style="color: #0000FF; font-weight: bold;">data</span><span style="color: #080;">=</span>comp,geom<span style="color: #080;">=</span><span style="color: #0000FF; font-weight: bold;">c</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;point&quot;</span>,<span style="color: #ff0000;">&quot;smooth&quot;</span><span style="color: #080;">&#41;</span>,color<span style="color: #080;">=</span>Cidade,method<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;loess&quot;</span>,ylab<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;UmidadeRelativa (%)&quot;</span>,xlab<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;Dia do mês&quot;</span>,main<span style="color: #080;">=</span><span style="color: #ff0000;">&quot;Media&quot;</span><span style="color: #080;">&#41;</span>
last_plot<span style="color: #080;">&#40;</span><span style="color: #080;">&#41;</span> <span style="color: #080;">+</span> scale_x_datetime<span style="color: #080;">&#40;</span>breaks<span style="color: #080;">=</span>date_breaks<span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;30 days&quot;</span><span style="color: #080;">&#41;</span>,minor_breaks<span style="color: #080;">=</span><span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;15 days&quot;</span><span style="color: #080;">&#41;</span>,<span style="color: #0000FF; font-weight: bold;">labels</span><span style="color: #080;">=</span>date_format<span style="color: #080;">&#40;</span><span style="color: #ff0000;">&quot;%b&quot;</span><span style="color: #080;">&#41;</span><span style="color: #080;">&#41;</span></pre></td></tr></table></div>

<p><div id="attachment_646" class="wp-caption aligncenter" style="width: 550px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/11/umidrelat-poa-cwb.png"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/11/umidrelat-poa-cwb.png" alt="Médias de Umidade Relativa do Ar  dos últimos 32 anos (1980-2012)" width="540" height="342" class="size-medium wp-image-646" /></a><p class="wp-caption-text">Médias de Umidade Relativa do Ar  dos últimos 32 anos (1980-2012)</p></div></p>
<p>O que corrobora a impressão do Ângelo com relação à umidade: de fato Porto Alegre é mais úmida que Curitiba nos meses de inverno. O curioso é que o ano todo Curitiba tende a ser bem mais úmida que Porto Alegre, o que qualquer pessoa que já morou em Curitiba pode confirmar: a dificuldade de secar as roupas sem secadora ou as roupas e sapatos criando mofo incrivelmente rápido são unânimes por lá. </p>
<p><a name="conclusoes"></a><br />
<h2>7. Conclusões</h2>
<p>Tomando como base todas as informações aqui disponíveis e os gráficos construídos, a conclusão é que de fato Curitiba é mais fria que Porto Alegre, embora no inverno, com a umidade relativa menor (em torno de 50 a 55%), temperaturas mais baixas podem dar uma sensação térmica menos fria que em Porto Alegre. Veja também <a href="http://www.fernandohrosa.com.br/br/P/quao-atipicos-foram-o-verao-2013-e-inverno-2012-em-porto-alegre/">Quão atípicos foram o Verão 2013 e Inverno 2012 em Porto Alegre?</a>.</p>
<p>Com relação ao verão, Porto Alegre apresenta umidade relativa menor que Curitiba e temperaturas bem maiores. Do ponto de vista de alguém aqui há já um ano, eu não fazia ideia que era possível passar tanto calor na vida. De maneira geral, as diferenças no inverno pareceram de menor importância: as temperaturas em Curitiba são menores mas uma umidade menor talvez compense um pouco na sensação e acaba equivalendo à sensação em Porto Alegre. Quanto ao verão, sem sombra de dúvidas não existe nada sequer parecido em Curitiba e em muitas outras cidades do país. </p>
<p>Recomendação final para quem chegou até o fim: se algum dia tiver que morar em Porto Alegre, coloque o item ar-condicionado como item essencial em todos os seus cálculos (seja moradia, carro, escritório). É possível sobreviver sem, principalmente se você já mora hoje em um lugar muito quente (Belém, Cuiabá?) mas para quem está acostumado com climas mais amenos, é bem complicado.</p>
<p><a name="refs"></a></p>
<h2>Referências</h2>
<ol>
<li>Dados da Rede do INMET &#8211; Instituto Nacional de Metrologia &#8211; <a href="http://www.inmet.gov.br/projetos/rede/pesquisa/">Banco de Dados Meterológico para Ensino e Pesquisa</a></li>
<li>The Information Visualization Community Platform: <a href="http://www.infovis-wiki.net/">www.infovis-wiki.net</a></li>
<li><a href="http://www.feferraz.net/br/Livros/Cleveland_-_Elements_of_graphing_data">Cleveland, W. S. (1994). The elements of graphing data.</a> Hobart Press.</li>
<li><a href="http://www.feferraz.net/br/Livros/Cleveland_-_Visualizando_dados">Cleveland, W. S. (1993). Visualizing data.</a> Hobart Press.</li>
<li>Tufte, Edward (2001). The Visual Display of Quantitative Information</li>
</ol>
]]></content:encoded>
			<wfw:commentRss>http://www.fernandohrosa.com.br/br/P/visualizando-o-clima-de-curitiba-e-porto-alegre-no-r/feed/</wfw:commentRss>
		<slash:comments>3</slash:comments>
		</item>
		<item>
		<title>Minha experiência voando com a Azul</title>
		<link>http://www.fernandohrosa.com.br/br/P/minha-experiencia-voando-com-a-azul/?utm_source=rss&#038;utm_medium=rss&#038;utm_campaign=minha-experiencia-voando-com-a-azul</link>
		<comments>http://www.fernandohrosa.com.br/br/P/minha-experiencia-voando-com-a-azul/#comments</comments>
		<pubDate>Wed, 17 Oct 2012 00:30:25 +0000</pubDate>
		<dc:creator>Fernando H Rosa</dc:creator>
				<category><![CDATA[Viagem]]></category>
		<category><![CDATA[frugalidade]]></category>

		<guid isPermaLink="false">http://www.fernandohrosa.com.br/br/?p=628</guid>
		<description><![CDATA[Cumprindo a promessa do post que fiz sobre a Webjet, relato aqui as minhas experiências voando com a Azul. 1. Tarifas e compra Quando a Azul estreou no mercado brasileiro os preços eram bem competitivos, e inclusive meu primeiro vôo com eles foi aproveitando uma dessas promoções de estréia (CWB-VCP-CWB por R$ 59,00 a perna, [...]]]></description>
				<content:encoded><![CDATA[<p>Cumprindo a promessa do post que fiz sobre a Webjet, relato aqui as minhas experiências voando com a Azul.</p>
<h2>1. Tarifas e compra</h2>
<p>Quando a Azul estreou no mercado brasileiro os preços eram bem competitivos, e inclusive meu primeiro vôo com eles foi aproveitando uma dessas promoções de estréia (CWB-VCP-CWB por R$ 59,00 a perna, em 2009). Hoje em dia entretanto, salvo algumas exceções os preços da Azul costumam ficar acima da Tam/Gol/Webjet na maioria das rotas que eu tento emitir. </p>
<p>Como gosto muito da experiência de voar Azul, como vou relatar aqui, sempre que vou emitir alguma passagem para mim mesmo ou outra pessoa, consulto os preços na Azul se a rota está disponível com eles, mas via de regra acaba ficando de 60% a 70% mais caro. O meu vôo mais recente com eles foi CWB-POA-CWB, onde consegui a tarifa de R$ 109,00 por perna. Para conseguir este preço entretanto a ida foi às 7:02 da manhã na sexta-feira, e volta às 7:02 da manhã no sábado.</p>
<p> As classes tarifárias na Azul são bem simplificadas, só havendo dois tipos de tarifa: PROMO e Azul FLEX. A tarifa FLEX dá direito ao espaço Azul nas primeiras poltronas da aeronave com mais espaço para as pernas, e não cobra tarifa de alteração, cancelamento ou no-show. A tarifa PROMO cobra R$ 75,00 para alteração e cancelamento, R$ 100,00 por no SHOW mas não há taxa para conversão do valor em crédito. Este último ponto me deixou um pouco confuso, pois ao converter em crédito uma passagem que havia comprado na tarifa PROMO, me cobraram os R$ 75,00. Em contato com a central me explicaram que a <strong>conversão em crédito</strong> em si não é tarifada, porém o processo de desmarcação da passagem é considerado como uma alteração, então incidem os R$ 75,00 mesmo assim. </p>
<p>Como as tarifas PROMO e Azul FLEX nem sempre são muito diferentes, se houver uma chance de que você precise mudar ou remarcar seu bilhete, vale a pena comprar a Tarifa FLEX, caso contrário o prejuízo no bolso pode ser salgado.</p>
<h2>2. Atendimento pós-venda</h2>
<p>Quando fiz o check-in online no dia do vôo antes de sair de casa, notei que apareceram dois cartões de embarque, um para bebê de colo e um para adulto. Na hora de emitir a passagem devo ter marcado por engano o campo e resultou no check-in em duplicidade. Liguei para a Central Azul, onde fui atendido em menos de 2 minutos e refizeram meu bilhete, removendo o bebê de colo. Ponto positivo neste aspecto.</p>
<h2>3. Check-in e embarque</h2>
<p>Tudo tranquilo neste aspecto. Como a Azul opera menos vôos que a Tam e Gol, a fila para check-in e despacho de malas no Afonso Pena sempre é bem curta. Embarque em Curitiba via finger também sem surpresas no Afonso Pena. Em Porto Alegre a Azul opera no terminal 2 do Salgado Filho, junto com a Webjet, e embora o embarque seja sempre sem finger, também foi bem tranquilo.</p>
<h2>4. Vôos</h2>
<p>Ambos o vôo de ida e de volta foram muito bons. Amplo espaço para as pernas, poltronas de couro novas, sistema de entretenimento funcionando e lanche no sistema de snacks e bebidas gratuitos. Atendimento de bordo cordial e destaque para o piloto na volta. O embarque atrasou um pouco em Porto Alegre, e tivemos que ficar esperando no saguão de embarque. Ao embarcar, o piloto explicou que o atraso havia se dado porque como o aeroporto não tem espaço hábil para estacionar todas as aeronaves, eles tiveram que deixar a aeronave que faria nosso vôo na área de cargas, e como só tem uma máquina para fazer o reboque dos aviões pelo aeroporto, estavam aguardando ele liberar para poder trazer o avião para decolar.  Ilustra a precariedade da infraestrutura dos aeroportos brasileiros, mas ao mesmo tempo ilustra um ponto muito positivo da Azul: enquanto em outras companhias o vôo atrasa e você nunca sabe o porquê, na Azul eles te informam o motivo e pedem desculpas. Excelente atendimento.</p>
<h2>5. Bagagem</h2>
<p>Despacho e coleta da bagagem sem problemas na ida e na volta. Favorece o fato da Azul operar no Terminal 2 de Porto Alegre, bem menos movimentado que o Terminal 1.</p>
<h2>6. Avaliação final</h2>
<p>De maneira geral a experiência com a Azul foi muito positiva. Dentre os principais pontos positivos destacam-se:</p>
<ol>
<li>Cordialidade e eficiência no atendimento: anos luz à frente da Gol e Tam. Dos atendentes de solo aos pilotos, você é sempre tratado com cordialidade e eles realmente parecem se preocupar com a satisfação dos clientes. Quem dá preferência a Tam por achar que o atendimento deles é bom, deveria voar de Azul para entender o que é um atendimento de alta qualidade.</li>
<li>Aeronaves: frota nova, com maior conforto dentre todas as cias aéreas nacionais. Configuração de poltronas que elimina a poltrona do meio, somente 2&#215;2, também é uma vantagem. O Espaço Azul então oferece ainda mais conforto e espaço para as pernas. Excelente opção inclusive para vôos mais longos.</li>
</ol>
<p>Dentre os principais pontos negativos, temos:</p>
<ol>
<li>Preços: a não ser que você consiga aproveitar alguma promoção, via de regra tem sido difícil conseguir preços bons na Azul quando comparado com Gol e Tam, o que é uma pena. Essa é o principal motivo para eu voar muito menos de Azul do que gostaria. Quem sabe com a compra da Trip isso não possa melhorar um pouco, mas me parece que o posicionamento da Azul está indo cada vez mais para um serviço mais Premium, onde você tem um serviço de excelente de qualidade, mas também paga a mais por isso.</li>
<li>Programa de fidelidade: o programa Tudo Azul é bem diferente de todos os outros programas que estamos acostumados. Ao invés de gerar pontos/milhas por trecho voado, eles pontuam baseado em um percentual da tarifa paga na passagem. Cada vez que isso soma R$ 50,00 em desconto você pode emitir um Voucher e usar como desconto em uma próxima viagem. Eu e a maioria dos milheiros que conheço não gosta muito desse sistema. Além de restringir o uso dos seus pontos (já que sempre tem que acumular ao menos R$ 50,00), o prazo de expiração é muito curto: duram somente 12 meses, fazendo com que a expiração de créditos  de vôo seja constante, diluindo o valor deles. Também já tive problema com créditos de vôos não sendo creditados, tendo que acionar a central de atendimento várias vezes para corrigir o problema.  Não é tão ruim quanto o inFidelidade da Tam, mas está bem pra trás do Smiles.</li>
</ol>
<p>De maneira geral a Azul é uma excelente opção para vôos mais longos ou vôos curtos desde que o preço não seja um problema. É bom ter uma opção Premium para voar e saber que você sempre terá um atendimento de boa qualidade. </p>
]]></content:encoded>
			<wfw:commentRss>http://www.fernandohrosa.com.br/br/P/minha-experiencia-voando-com-a-azul/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Como entender quanto você gasta e reduzir sua conta de luz</title>
		<link>http://www.fernandohrosa.com.br/br/P/como-entender-quanto-voce-gasta-e-reduzir-sua-conta-de-luz/?utm_source=rss&#038;utm_medium=rss&#038;utm_campaign=como-entender-quanto-voce-gasta-e-reduzir-sua-conta-de-luz</link>
		<comments>http://www.fernandohrosa.com.br/br/P/como-entender-quanto-voce-gasta-e-reduzir-sua-conta-de-luz/#comments</comments>
		<pubDate>Mon, 13 Feb 2012 00:40:37 +0000</pubDate>
		<dc:creator>Fernando H Rosa</dc:creator>
				<category><![CDATA[Cotidiano]]></category>
		<category><![CDATA[conta de luz]]></category>
		<category><![CDATA[economia]]></category>
		<category><![CDATA[frugalidade]]></category>

		<guid isPermaLink="false">http://www.fernandohrosa.com.br/br/?p=620</guid>
		<description><![CDATA[A conta de luz é um dos maiores gastos fixos no orçamento doméstico, entretanto é um dos mais difíceis de se controlar já que não é simples medir diretamente quanto cada equipamento na nossa casa consome. Com este post compartilho minha experiência e espero ajudá-los a economizar também! 1. Introdução Já faz algum tempo que [...]]]></description>
				<content:encoded><![CDATA[<p>A conta de luz é um dos maiores gastos fixos no orçamento doméstico, entretanto é um dos mais difíceis de se controlar já que não é simples medir diretamente quanto cada equipamento na nossa casa consome. Com este post compartilho minha experiência e espero ajudá-los a economizar também!</p>
<h2>1. Introdução</h2>
<p>Já faz algum tempo que eu gostaria de abordar este tema, mas os posts (<sup class='footnote'><a href='#fn-620-1' id='fnref-620-1'>1</a></sup>) e (<sup class='footnote'><a href='#fn-620-2' id='fnref-620-2'>2</a></sup>) do <a href="www.valoresreais.com">ValoresReais.com</a> me inspirou a tomar o tempo para escrevê-lo hoje.</p>
<p>Primeiro temos que entender a maneira que a luz é cobrada pelas concessionárias. Se você pegar sua última conta de luz, vai ver que a unidade utilizada é o kilowatt-hora (kWh). Aqui no Paraná, com impostos, o kWh está em torno de R$ 0,51. Isso significa que se você utilizar um equipamento com potência de 1000 Watts, por um período de 1 hora, irá pagar R$ 0,51. Esse é o primeiro dado que você irá precisar, consulte sua conta de luz e anote o valor cobrado pelo kWh. Note que nem sempre o valor da conta será exatamente o valor final que você paga. No Paraná pelo menos incide além dos R$ 0,479889 contratuais pelo kWh, uma tarifa de conta de iluminação pública do município.  Foi por isso que estimei para o meu caso R$ 0,51.</p>
<h2>2. Estimando o custo de utilização de um equipamento utilizando a potência nominal</h2>
<p>A maioria dos equipamentos eletrônicos tem uma etiqueta explicitando sua potência nominal, tensão e freqüência de operação. Enquanto a tensão e a freqüência não costumam variar muito, é a potência nominal que deve ser o principal número para estimar o consumo de um dado equipamento. Tomemos por exemplo a figura abaixo:</p>
<p><div id="attachment_622" class="wp-caption aligncenter" style="width: 478px"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/02/potencia-ventilador.png" alt="" title="Potência de um ventilador de mesa" width="468" height="290" class="size-full wp-image-622" /><p class="wp-caption-text">Potência de um ventilador de mesa</p></div> </p>
<p>Foi tirada de um ventilador de mesa. Vemos que a sua potência nominal é de 45 Watts. Vamos supor que você o utilize 12 horas por dia (todo dia a noite, quando chega em casa, e depois para dormir). Em um mês você irá ter consumido 12 horas x 45 Watts x 30 dias = 16200 Watts*hora. Como a unidade de medição é em kilowatt, você deve dividir este número por 1000: 16200/1000 = 16,20 kWh. Agora basta multiplicar este valor pelo valor do seu kWh, no meu caso: 16,20 x R$ 0,51 = R$ 8,26</p>
<p>Ou seja, no final do mês, você pagará aproximadamente R$ 8,00 para utilizar este ventilador todos os dias 12 horas por dia. Utilizando a mesma mecânica acima, você pode estimar o gasto da maioria dos seus equipamentos domésticos.</p>
<p>Quer se assustar? Faça as contas para o seu chuveiro (se tiver chuveiro elétrico) ou para o ferro de passar. Um chuveiro elétrico de 4000 Watts, em uma família com 5 membros, onde cada um toma um banho de 15 minutos todo dia, gera um gasto de: 4000 x 5 x 15/60 x 30 / 1000 = 300kWh x R$ 0,51 = R$ 153,00.</p>
<h2>3. Estimando a potência real de um aparelho</h2>
<p>O maior desafio em ter dados mais precisos para estimar sua conta de luz, é saber quanto de fato seu aparelho respeita o consumo nominal que ele diz ter. A primeira questão a se considerar é que o consumo de energia pode variar de acordo com o modo com o aparelho estiver funcionando. Um ventilador de mesa costuma ter várias posições (do mais fraco ao mais forte): cada uma delas consumirá uma potência diferente, quanto mais forte mais alta a potência. O mesmo vale para o seu chuveiro: ele deve ter vários ajustes de temperatura. Quanto mais quente a água, mais energia você vai consumir. E mesmo equipamentos que não tenham ajuste explícito, como um computador, vão ter consumos variáveis, dependendo de quanto você está usando ele.</p>
<p>Aí entra o Kill A Watt:</p>
<p><div id="attachment_621" class="wp-caption aligncenter" style="width: 182px"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/02/killawatt.jpg" alt="Kill-a-Watt" title="Kill A Watt" width="172" height="293" class="size-full wp-image-621" /><p class="wp-caption-text">Kill A Watt medidor de consumo elétrico</p></div></p>
<p>O Kill A Watt é um aparelho que permite você medir exatamente quanto cada equipamento na sua residência está consumindo. Ele é vendido primariamente nos Estados Unidos, em vários lugares, como no <a href="www.thinkgeek.com">ThinkGeek.com</a>, mas já é possível encontrá-lo no Brasil, principalmente com importadores. Eu comprei o meu no MercadoLivre por exemplo.</p>
<p><div id="attachment_623" class="wp-caption aligncenter" style="width: 480px"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/02/killawatt.png" alt="Frente e verso do aparelho" title="Frente e verso do aparelho" width="469" height="420" class="size-full wp-image-623" /><p class="wp-caption-text">Frente e verso do aparelho</p></div></p>
<p>Você pluga ele em uma tomada, e liga nele o aparelho que quiser medir. Os botões da frente permitem selecionar qual opção você quer consultar: tensão, corrente, potência, freqüência e o mais útil deles (o último) kWh. A função mais prática dele é deixar o aparelho que você quer testar plugado por algumas horas, e depois você confere a quantidade de kWh consumidos.</p>
<p>Como as tomadas são em padrão americano, tive que fazer uma pequena adaptação, utilizando um soquete de tomada (que eu tinha em casa sobrando mas que você compra por menos de R$ 1,00 em uma loja de material de construção) e um cabo antigo de computador (pontos extras pela frugalidade na economia da compra de um adaptador de tomada):</p>
<p><div id="attachment_624" class="wp-caption aligncenter" style="width: 510px"><img src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/02/adaptador-caseiro.png" alt="Adaptador Caseiro Padrão Americano -&gt; Brasileiro" title="Adaptador Caseiro Padrão Americano -&gt; Brasileiro" width="500" height="322" class="size-full wp-image-624" /><p class="wp-caption-text">Adaptador Caseiro Padrão Americano -&gt; Brasileiro</p></div></p>
<h2>4. Estimando a potência real de alguns aparelhos</h2>
<p>A função mais útil que encontrei para o Kill a Watt foi estimar a potência real de um aparelho para depois usar os cálculos que explicitei acima para extrapolar seu consumo no mês e no ano. A fórmula é bem simples, e montei uma planilha em Excel para registrar os cálculos. Você registra a hora de início e hora de fim da medição, e o valor em kWh mostrado pelo Kill A Watt. Quanto mais tempo você deixar rodando mais precisa será sua estimativa.</p>
<p>As fórmulas já estão programadas na planilha, disponível aqui: <a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2012/02/monitoramento-consumo-eletrico.xls">monitoramento-consumo-eletrico.xls</a>. Mas a lógica é bem simples. Anotando o tempo que o aparelho ficou ligado, e o consumo em kWh naquele período, basta dividir pelo tempo e depois  multiplicar por 1000 para obter a potência nominal estimada.</p>
<p>Utilizando o Kill A Watt fiz vários testes com diversos aparelhos em casa para estimar a relação entre a potência declarada e o consumo real. Para um Desktop que eu tinha aqui, com fonte de 150 Watts reais, o consumo real foi de 133 Watts. Outra possibilidade é avaliar a potência nominal em diferentes estados: ligado, stand-by, hibernando. Com isto, estimei por exemplo que uma TV CRT de 14&#8243; em modo standby, 24 horas por dia, gastaria R$ 1,84 no mês, ou R$ 22,03 no ano. </p>
<p>Sugiro baixar a planilha e fazer suas próprias simulações, mesmo que você não tenha o Kill A Watt, usando as potências declaradas. De maneira geral, a potência declarada parece sempre um pouco acima da potencia real, portanto você vai acabar sendo mais conservador nos cálculos.</p>
<h2>5. Reduzindo a conta de luz</h2>
<p>De posse das potências estimadas (ou nominais) de seus principais equipamentos domésticos, você pode utilizar a planilha disponibilizada para projetar o consumo mensal de energia e verificar de onde sua conta está vindo tão alta. Com isso você pode se planejar e decidir onde atacar para reduzir seu consumo.</p>
<h2>Notas</h2>
<div class='footnotes'>
<div class='footnotedivider'></div>
<ol>
<li id='fn-620-1'>Valores Reais, 28 de março de 2010: <a href="http://www.valoresreais.com/2010/03/28/dica-de-economia-domestica-transforme-contas-pos-pagas-em-servicos-pre-pagos/">Dica de economia doméstica: transforme despesas fixas – contas pós-pagas – em despesas variáveis – serviços pré-pagos</a> <span class='footnotereverse'><a href='#fnref-620-1'>&#8617;</a></span></li>
<li id='fn-620-2'>Valores Reais, 9 de janeiro de 2012: <a href="http://www.valoresreais.com/2012/01/09/mapeie-suas-10-maiores-despesas-anuais-e-trate-de-reduzi-las/">Mapeie suas 10 maiores despesas anuais – e trate de reduzi-las!</a> <span class='footnotereverse'><a href='#fnref-620-2'>&#8617;</a></span></li>
</ol>
</div>
]]></content:encoded>
			<wfw:commentRss>http://www.fernandohrosa.com.br/br/P/como-entender-quanto-voce-gasta-e-reduzir-sua-conta-de-luz/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>Voando pela Webjet: minha experiência</title>
		<link>http://www.fernandohrosa.com.br/br/P/voando-pela-webjet-minha-experiencia/?utm_source=rss&#038;utm_medium=rss&#038;utm_campaign=voando-pela-webjet-minha-experiencia</link>
		<comments>http://www.fernandohrosa.com.br/br/P/voando-pela-webjet-minha-experiencia/#comments</comments>
		<pubDate>Sun, 12 Feb 2012 01:12:41 +0000</pubDate>
		<dc:creator>Fernando H Rosa</dc:creator>
				<category><![CDATA[Destaque]]></category>
		<category><![CDATA[Viagem]]></category>
		<category><![CDATA[frugalidade]]></category>

		<guid isPermaLink="false">http://192.168.1.10/wpfhr/br/?p=614</guid>
		<description><![CDATA[Inspirado no post do Rodrigo Purisch, do AquelaPassagem: WEBJET: Como é Voar Nela, decidi compartilhar minha única (e pelo momento última) experiência com a Webjet. Vale a mesma ressalva que o Rodrigo usou no post dele: esta é uma única avaliação de uma viagem por uma pessoa, sua experiência pode variar e portanto não deve-se [...]]]></description>
				<content:encoded><![CDATA[<p>Inspirado no post do Rodrigo Purisch, do <a href="http://www.aquelapassagem.com.br">AquelaPassagem</a>: <a href="http://www.aquelapassagem.com.br/webjet-como-e-voar-nela/">WEBJET: Como é Voar Nela</a>, decidi compartilhar minha única (e pelo momento última) experiência com a Webjet.</p>
<p>Vale a mesma ressalva que o Rodrigo usou no post dele: esta é uma única avaliação de uma viagem por uma pessoa, sua experiência pode variar e portanto não deve-se generalizar, porém talvez alguns dos pontos possam te influenciar na sua decisão de voar Webjet.</p>
<h2>1. Preços e compra</h2>
<p>Não pude avaliar o processo de compra pelo site da Webjet pois foi uma viagem a trabalho. Como na maioria das empresas, temos uma ferramenta de booking para viagens corporativas, integrada com a nossa agência de viagens que depois fatura automaticamente para o centro de custo adequado.</p>
<p>Através do sistema de online booking me ofereceram três opções de vôo (o trecho era POA-CWB):</p>
<ol>
<li>Webjet: R$ 84,39 + taxas</li>
<li>Gol: R$ 124,42 + taxas</li>
<li>Tam: R$ 214,20 + taxas</li>
</ol>
<p>Usualmente em viagens a passeio eu costumo preferir a Gol, e eventualmente a Tam. Em viagens a trabalho, temos que seguir a política corporativa de viagens, que exige que, caso hajam opções similares de vôo em uma faixa de 2 horas, eu devo optar pela opção mais barata. Eu posso até escolher uma opção mais cara, porém isso gera uma exceção e isso tem que ser justificado para a diretoria depois. Como eu nunca havia voado de Webjet antes, não tinha essa justificativa, e lendo o post do Rodrigo, fiquei até curioso para voar de Webjet e ter minha própria avaliação.</p>
<p>Afinal de contas,  a Webjet é uma das poucas cias no Brasil que têm se posicionado como uma aérea realmente baixo custo/baixo preço, e se eu gostasse do serviço, poderia ser uma ótima maneira de economizar alguns reais quando estivesse voando em uma rota atendida por ela.</p>
<p>O único alerta que cabe aqui, é que, apesar dos preços realmente bem menores da Webjet, você deve ficar atento às tarifas de remarcação, cancelamento e reembolso. A tarifa de reembolso mais usual da Webjet por exemplo (classe tarifária econômica) é de R$ 100,00 por perna por passageiro. Na Gol é de 30% da tarifa e na Tam 40%. Ou seja, no caso acima, se você tivesse que desistir da viagem e pedir reembolso da passagem, a conta ficaria assim:</p>
<ol>
<li>Webjet: R$ 84,39 &#8211; R$ 100,00, você receberia: R$ 0,00. Prejuízo: R$ 84,39</li>
<li>Gol: R$ 124,42 &#8211; R$ 37,32 = R$ 87,00 (a receber). Prejuízo: R$ 37,32</li>
<li>Tam: R$ 214,20 &#8211; R$ 85,68 = R$ 128.52 (a receber). Prejuízo: R$ 85,68</li>
</ol>
<p>Ou seja, o barato poderia sair caro se você necessitasse de flexibilidade. Naturalmente há outras classes tarifárias na Webjet com condições melhores, assim como classes na Tam e Gol com condições piores (as super-promocionais), portanto fique atento a estes fatores. Por mais que você avalie o serviço da Webjet e decida que para você vale a pena, não é muito sensato tomar a decisão olhando somente o valor da tarifa aérea.</p>
<h2>2. Atendimento pós-venda</h2>
<p>Pois bem, não precisei entrar em contato diretamente com a Webjet para a compra, porém precisei utilizar o serviço de atendimento deles posteriormente. Cogitamos a possibilidade de antecipar o horário do vôo em algumas horas, e consultando no site da empresa verifiquei que havia um vôo que se encaixava nas minhas necessidades. Pesquisei o vôo pelo portal da Webjet, e eles mostravam disponibilidade para compra.</p>
<p>Liguei então para o SAC da companhia para indagar se seria possível a troca da passagem. Para minha surpresa, no SAC me informaram que isto só poderia ser feito no aeroporto, e não obstante, eles não poderiam me garantir que havia disponibilidade de assentos no vôo anterior. Argumentei que eu já havia entrado no portal e simulado o trecho, e que portanto sabia que havia poltronas, porém a atendente me disse que o sistema não é online. Ou seja, eu só teria como saber se haveria poltronas disponíveis se eu fosse até o final do processo e compra e preenchesse os dados de pagamento. Nem eles no call center da própria Webjet conseguem ver se há poltronas disponíveis (bem estranho).</p>
<p>Como estava longe do aeroporto, e teria que fazer check-out do Hotel, para correr o risco de chegar lá e não conseguir trocar e ter que ficar horas no aeroporto esperando o meu vôo inicial, acabei desistindo da ideia da volta antecipada. Grande contraste com o atendimento da Azul pelo Call center, que tem uma autonomia enorme e conseguem fazer até alterações no seu cartão de embarque (mais sobre isso em um próximo post sobre uma experiência recente com a Azul).</p>
<h2>3. Check-in</h2>
<p>A Webjet opera no Terminal 2 do Salgado Filho (POA), junto com a Azul. Para quem não conhece o aeroporto de POA, a maioria das aéreas e todos os vôos internacionais ficam no Terminal 1, com vários andares e finger para embarque. O Terminal 2 é todo horizontal e você embarca nos aviões pelas escadas, mas como a extensão é pequena, não se faz necessário o uso temerário dos ônibus para embarque remoto (como em GRU ou em alguns portões em CWB). A vantagem é que  todo o processo fica mais ágil e geralmente você espera menos para embarcar e desembarcar. Até aí ponto positivo.</p>
<p>Chegamos ao terminal e fomos para os totens de check-in. Aqui veio a primeira dificuldade. Como minhas viagens são custeadas pela empresa para a qual trabalho, as passagens são emitidas e faturadas diretamente via agência de viagens. Entretanto como minha esposa estava junto dessa vez, a emissão da passagem dela teve que ser feita a parte, e com isto ficou com um localizador diferente.</p>
<p>Ao tentar fazer o check-in, descubro que não posso escolher a poltrona. Recebo uma mensagem do totem: &#8220;sua poltrona foi escolhida aleatoriamente pelo sistema, clique para continuar&#8221;. A solução foi ficarmos lado a lado em dois totens adjacentes e fazer o check-in simultaneamente. Acabamos na 15C e 15F (corredor e corredor). Aí já surgiu um problema. Minha esposa tem medo de voar e sempre precisa sentar ao meu lado. Com um corredor no meio já estava bem preocupado com o que iria ocorrer no vôo. Comentei isto na hora de despachar a bagagem mas disseram que não poderiam fazer nada.</p>
<h2>4. Embarque e vôo</h2>
<p>Passado o apuro do check-in, fomos para a sala de embarque aguardar o vôo. Houve um atraso de cerca de 25 minutos para o embarque mas não houve justificativa antes, durante ou depois do porque do atraso.</p>
<p>Embarcamos e na entrada da aeronave uma aeromoça distribuia um cardápio com opções de lanche (pagos) para quem quisesse. Desde 4 de novembro de 2011 a opção de Websnacks mencionada pelo Rodrigo já não existe mais. Do ponto de vista de redução de custos, e no espírito low-fare/low-cost, apóio a iniciativa. É um conforto a mais ter esta opção, mas para vôos curtos é realmente algo a mais, não uma necessidade. Cias tradicionais em mercado mais amadurecidos, como EUA e Europa, já há muitos anos não oferecem lanche em rotas curtas. Quando fiz ORD-MSP pela Delta, em abril de 2010, o único serviço de bordo disponível era uma aeromoça passando com 1 (uma) garrafa de água de 1L de baixo do braço e oferecendo um copo de água para quem conseguisse pará-la.</p>
<p>O piloto anunciou alguma coisa pelos speakers mas apesar do meu esforço e atenção era completamente ininteligível. Talvez ele até tenha dado alguma justificativa para o atraso mas não consegui compreender. Aproveitei uma aeromoça que passava ao lado para indagá-la a respeito mas ela fingiu que não me ouviu. A qualidade do som dos speakers e a inteligibilidade da mensagem me lembrou os anúncios de estação de trem na linha B &#8211; Cinza da FEPASA (Júlio Prestes &#8211; Itapevi), que hoje em dia se chama <a href="http://pt.wikipedia.org/wiki/Linha_8_da_CPTM">Linha 8 da CPTM</a> &#8211; Diamante, mas continua do mesmo jeito que há 20 anos atrás. Ponto positivo para o momento nostalgia (já andei MUITO nesta linha da CPTM&#8230;).</p>
<p>A aeronave (um B737-300, como o do Rodrigo) estava bem surrada por dentro. Aparentava uns 15 anos de uso pelo menos. O que mais apresentava desgaste eram as poltronas e o assoalho, em um tom de verde bem musgo. Isso por si só não necessariamente depõe contra a empresa. Já peguei aviões ainda mais velhos voando em vôos domésticos nos EUA. Até aí, aceitável, ainda mais pelo preço.</p>
<p>A tortura começou quando eu e minha esposa nos sentamos. Felizmente conseguimos trocar de lugar com o passageiro do meio ao meu lado, e pudemos sentar juntos, porém o espaço para as pernas parece ter diminuído. Enquanto na foto do Rodrigo você tem uns 5 cm entre os joelhos e a poltrona, meus joelhos ficaram ENCOSTADOS/comprimidos na poltrona da frente (e olha que tenho estatura média, 1,78m). Essa situação começou a me deixar extremamente desconfortável fisicamente. </p>
<p>Assim que o avião decolou fiquei procurando com os olhos alguma poltrona vazia à frente e com muita sorte haviam dois lugares perto de uma saída de emergência com espaço maior para as pernas. Felizmente pudemos fazer a troca, porém se a aeronave estivesse completamente lotada isto não seria viável. Este foi o &#8216;deal breaker&#8217; da Webjet para mim. Deixar de ter alguns confortos e viajar em aeronaves mais antigas para economizar eu até aceito, sacrificar meu bem estar físico e comprimir meus joelhos durante uma viagem: sem chances. </p>
<p>Felizmente após a troca das poltronas a viagem seguiu sem maiores percalços até o destino final em Curitiba.</p>
<h2>5. Bagagem</h2>
<p>A bagagem chegou na esteira em pouco tempo no Afonso Pena, mas isso parece ser padrão para todas as companhias aéreas pousando em Curitiba. Raramente demoro mais de 5 min para pegar minhas malas em CWB (grande contraste com GRU&#8230;). Bagagem inteira e sem avarias aparentes.</p>
<h2>6. Veredito final</h2>
<p>Todos sabemos que não existe almoço de graça e que se você quer pagar menos por alguma coisa, irá ter algum tipo de penalização. Entendemos e aceitamos a regra do jogo, porém fazer um sacrifício físico para realizar uma viagem está completamente fora de cogitação para mim. Se a opção for entre viajar com os joelhos comprimidos ou não viajar, prefiro não viajar.</p>
<p>Felizmente para as próximas viagens a trabalho agora pelo menos tenho uma justificativa fundamentada para recusar as cotações da agência de viagem quando incluírem vôos Webjet. Para viagens a passeio continuo preferindo a Gol, embora ultimamente a Azul tem ficado cada vez uma opção mais atraente.</p>
<p>Quem sabe agora com a compra da Webjet pela Gol e a eventual integração das operações este post deixará de ser relevante, porém, para quem cogita voar em Webjet enquanto as operações estão separadas, vale a pena levar estas observações em conta.</p>
<p>Novamente, reitero que esta foi uma única experiência de uma pessoa, e pode não refletir sua própria experiência. Se você voou Webjet e teve uma experiência melhor (ou não) por favor compartilhe nos comentários!</p>
<h2>Referências</h2>
<ol>
<li><a href="http://www.aquelapassagem.com.br/webjet-como-e-voar-nela/">WEBJET: Como é Voar Nela</a> &#8211; AquelaPassagem.com.br, 9 de abril de 2010.</li>
<li><a href="http://pt.wikipedia.org/wiki/Linha_8_da_CPTM">Wikipedia: Linha 8 da CPTM</a></li>
</ol>
]]></content:encoded>
			<wfw:commentRss>http://www.fernandohrosa.com.br/br/P/voando-pela-webjet-minha-experiencia/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>Relações úteis entre algumas distribuições estatísticas</title>
		<link>http://www.fernandohrosa.com.br/br/P/relacoes-uteis-entre-algumas-distribuicoes-estatisticas/?utm_source=rss&#038;utm_medium=rss&#038;utm_campaign=relacoes-uteis-entre-algumas-distribuicoes-estatisticas</link>
		<comments>http://www.fernandohrosa.com.br/br/P/relacoes-uteis-entre-algumas-distribuicoes-estatisticas/#comments</comments>
		<pubDate>Mon, 31 Oct 2011 04:01:29 +0000</pubDate>
		<dc:creator>Fernando H Rosa</dc:creator>
				<category><![CDATA[Estatística]]></category>
		<category><![CDATA[distribuição gama]]></category>
		<category><![CDATA[estatística]]></category>

		<guid isPermaLink="false">http://www.fernandohrosa.com.br/br/?p=542</guid>
		<description><![CDATA[Soma do quadrado de normais. Sejam \(X_1,\ldots,X_n\) v.a. independentes tais que \(X_i \sim N(\mu_i,\sigma^2_i), i=1,\ldots,n\), então $$ \sum_{i=1}^n \left(\frac{X_i &#8211; \mu_i}{\sigma_i}\right)^2 \sim \chi^2_{(n)} $$ Multiplicando uma Gama por uma constante. Se \(X \sim Gama(r,\lambda)\) então \(\alpha X \sim Gama(r,\lambda/\alpha)\). Transformação de uma Gama em uma Qui-quadrado. Do item anterior decorre que se \(X \sim Gama(r,\lambda)\), [...]]]></description>
				<content:encoded><![CDATA[<p><br />
<span class='borderless'><a href="http://www.fernandohrosa.com.br/files/relacoes-uteis.pdf"><img class='borderless' src='http://www.fernandohrosa.com.br/br/wp-content/themes/StudioBlue/images/getpdf.jpg' width='50' height='46' alt='Baixe a versão em PDF deste item' title='Baixe a versão em PDF deste item' /></a></span></p>
<ol>
<li> Soma do quadrado de normais. Sejam \(X_1,\ldots,X_n\) v.a. independentes tais que \(X_i \sim N(\mu_i,\sigma^2_i), i=1,\ldots,n\), então
<p>$$<br />
\sum_{i=1}^n \left(\frac{X_i &#8211; \mu_i}{\sigma_i}\right)^2 \sim \chi^2_{(n)}<br />
$$
</li>
<li> Multiplicando uma Gama por uma constante. Se \(X \sim Gama(r,\lambda)\) então \(\alpha X \sim Gama(r,\lambda/\alpha)\).
</li>
<li> Transformação de uma Gama em uma Qui-quadrado. Do item anterior decorre que se \(X \sim Gama(r,\lambda)\), então
<p>$$<br />
2\lambda X \sim Gama\left(\frac{2r}{2},\frac{1}{2}\right) \stackrel{d}{=} \chi^2_{(2r)}<br />
$$
</li>
<li> Soma de Gamas. Sejam \(X_1,\ldots,X_n\) v.a. independentes tais que \(X_i \sim Gama(r_i,\lambda)\), então
<p>$$<br />
X_1 + \ldots + X_n \sim Gama\left(\sum_{i=1}^n r_i ,\lambda\right)<br />
$$
</li>
<li> Quociente de Gamas. Sejam \(X \sim Gama(a,b)\) e \(Y \sim Gama(c,b)\) independentes, então
<p>$$<br />
\frac{X}{X+Y} \sim Beta(a,c)<br />
$$
</li>
<li>Quociente de Qui-quadrados. Sejam X e Y v.a. independentes tais que \(Y \sim \chi^2_{(m)}\) e \(X \sim \chi^2_{(n)}\), então
<p>$$<br />
Z = \frac{Y/m}{X/n} \sim F(m,n)<br />
$$
</li>
<li>Quociente de Normal por Qui-Quadrado (distribuição t). Sejam \(Z \sim N(0,1)\) e \(X \sim \chi^2_{(n)}\), Z e X independentes, então
<p>$$<br />
 T = \frac{Z}{\sqrt{X/n}} \sim t_{n}<br />
$$
</li>
<li> Quociente de F-Snedecors. Se X tem distribuição \(F(m,n)\) então
<p>$$<br />
Y = \frac{mX/n}{1 + mX/n} \sim Beta\left(\frac{m}{2},\frac{n}{2}\right)<br />
$$
</li>
</ol>
]]></content:encoded>
			<wfw:commentRss>http://www.fernandohrosa.com.br/br/P/relacoes-uteis-entre-algumas-distribuicoes-estatisticas/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Entrando no R-bloggers.com</title>
		<link>http://www.fernandohrosa.com.br/br/P/entrando-no-r-bloggers-com/?utm_source=rss&#038;utm_medium=rss&#038;utm_campaign=entrando-no-r-bloggers-com</link>
		<comments>http://www.fernandohrosa.com.br/br/P/entrando-no-r-bloggers-com/#comments</comments>
		<pubDate>Tue, 11 Oct 2011 00:29:55 +0000</pubDate>
		<dc:creator>Fernando H Rosa</dc:creator>
				<category><![CDATA[Estatística]]></category>
		<category><![CDATA[R]]></category>
		<category><![CDATA[R-project]]></category>

		<guid isPermaLink="false">http://www.fernandohrosa.com.br/br/?p=532</guid>
		<description><![CDATA[Hoje o Tal Galili, responsável pelo www.R-bloggers.com, um agregador de bloguers sobre R, me convidou para fazer parte da R-Bloggers. A partir de hoje todos os posts categorizados na seção Estatística/R, irão ser publicados automaticamente lá também. Caso você ainda não conheça o projeto, encorajo uma visita ao site www.R-bloggers.com, ou à sua versão em [...]]]></description>
				<content:encoded><![CDATA[<p>Hoje o Tal Galili, responsável pelo <a href="http://www.R-bloggers.com">www.R-bloggers.com</a>, um agregador de bloguers sobre R, me convidou para fazer parte da R-Bloggers. A partir de hoje todos os posts categorizados na seção Estatística/R, irão ser publicados automaticamente lá também.</p>
<p>Caso você ainda não conheça o projeto, encorajo uma visita ao site <a href="http://www.R-bloggers.com">www.R-bloggers.com</a>, ou à sua versão em português: <a href="http://www.r-bloggers.com/lang/-/portuguese">R-Bloggers em Português</a>.</p>
<p>Obrigado,</p>
]]></content:encoded>
			<wfw:commentRss>http://www.fernandohrosa.com.br/br/P/entrando-no-r-bloggers-com/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Cálculo do Salário Líquido</title>
		<link>http://www.fernandohrosa.com.br/br/P/calculo-do-salario-liquido/?utm_source=rss&#038;utm_medium=rss&#038;utm_campaign=calculo-do-salario-liquido</link>
		<comments>http://www.fernandohrosa.com.br/br/P/calculo-do-salario-liquido/#comments</comments>
		<pubDate>Sat, 21 May 2011 13:30:22 +0000</pubDate>
		<dc:creator>Fernando H Rosa</dc:creator>
				<category><![CDATA[Cotidiano]]></category>
		<category><![CDATA[Finanças]]></category>
		<category><![CDATA[calculadora]]></category>
		<category><![CDATA[salário líquido]]></category>

		<guid isPermaLink="false">http://www.fernandohrosa.com.br/br/?p=372</guid>
		<description><![CDATA[A calculadora abaixo permite que um empregado CLT possa calcular seus vencimentos líquidos mensais. A mecânica do cálculo é razoavelmente simples, e se baseia nas informações disponíveis no site da Receita Federal 1 e da Previdência Social 2. Como os dados da receita nos permitem calcular até 2014, os scripts já estão prontos até essa [...]]]></description>
				<content:encoded><![CDATA[<p>A calculadora abaixo permite que um empregado CLT possa calcular seus vencimentos líquidos mensais. A mecânica do cálculo é razoavelmente simples, e se baseia nas informações disponíveis no site da Receita Federal <sup class='footnote'><a href='#fn-372-1' id='fnref-372-1'>1</a></sup> e da Previdência Social <sup class='footnote'><a href='#fn-372-2' id='fnref-372-2'>2</a></sup>. Como os dados da receita nos permitem calcular até 2014, os scripts já estão prontos até essa data, porém as tabelas do INSS demoram muito mais a sair, e por isso só é permitido o cálculo até meados de 2012 por ora. Conforme o INSS liberar os próximos anos vou atualizando.</p>

<p>Existem algumas outras calculadoras disponíveis on-line, por exemplo <sup class='footnote'><a href='#fn-372-3' id='fnref-372-3'>3</a></sup> e <sup class='footnote'><a href='#fn-372-4' id='fnref-372-4'>4</a></sup> porém ambas não levam em conta o desconto de plano de previdência corporativa, que afeta a base de cálculo do imposto, e também ambas requerem que você submeta seus dados ao servidor deles (via asp/php/html forms). A calculadora abaixo roda inteiramente em JavaScript no seu computador, sem necessidade de submissão de nenhum dado ao servidor. Isso lhe dá mais segurança, já que só você tem acesso aos dados de entrada e ao cálculo, e também é mais rápido, pois uma vez carregada a página, você pode fazer quantos cálculos quiser sem a necessidade de usar a conexão.</p>

<p>Por fim, testei com vários salários e em diversos períodos de tempo e bateram sempre, mas se você fizer o seu cálculo e não bater, por favor deixe um comentário que eu tentarei investigar o que pode ter ocorrido.</p>

<br /><br />
<script src="/js/calcsalario.js" type="text/javascript"></script>

<h3>A. Informações Obrigatórias</h3>

1. Selecione o mês e ano do pagamento: 
<select name="mes" id="mes">
<option value="1">Jan</option>
<option value="2">Fev</option>
<option value="3">Mar</option>
<option value="4">Abr</option>
<option value="5">Mai</option>
<option value="6">Jun</option>
<option value="7">Jul</option>
<option value="8">Ago</option>
<option value="9">Set</option>
<option value="10">Out</option>
<option value="11">Nov</option>
<option value="12">Dez</option>
</select>
<select name="ano" id="ano">
<option value="2013">2013</option>
<option value="2012">2012</option>
<option value="2011">2011</option>
<option value="2010">2010</option>
<option value="2009">2009</option>
<option value="2008">2008</option>
</select>
<br />
2. Entre com seu salário bruto: R$<input id="salariobruto" maxlength="10" name="salariobruto" size="10" type="text" /> <br />
3. Entre com seu número de dependentes: <input id="numdep" maxlength="2" name="salariobruto" size="2" type="text" value="0"/> <br /><br />
<h3>B. Descontos opcionais</h3>
4. Valor de vale transporte recebido no mês: R$<input id="VT" maxlength="5" name="salariobruto" size="5" type="text" value="0"/> (no caso de você receber VT) <br />
5. Percentual de desconto do VT que sua empresa adota: <input type="radio" name="vtpct" value="4">4% &#8211; Bancos    <input type="radio" name="vtpct" value="6"> 6% máximo permitido pela CLT.<br />
6. Plano de previdência privada corporativa, contribuição mensal: R$<input id="pgbl" maxlength="8" name="pgbl" size="8" type="text" value="0"/> <br />
7. Desconto de plano de saúde: R$<input id="planosaude" maxlength="5" name="planosaude" size="5" type="text" value="0"/><br />
8. Desconto de plano odontológico: R$<input id="planoodonto" maxlength="5" name="planoodonto" size="5" type="text" value="0"/><br />
9. Desconto de refeições: R$<input id="VR" maxlength="5" name="VR" size="5" 
type="text" value="0"/><br />
10. Seguro de Vida: R$<input id="segurovida" maxlength="6" name="segurovida" size="6" type="text" value="0"/><br />
11. Outros descontos: R$<input id="outrosdesc" maxlength="8" name="outrosdesc" size="8" type="text" value="0"/><br />
12. Adiantamento Quinzenal: R$<input id="adt15" maxlength="8" name="outrosdesc" size="8" type="text" value="0"/><br />


Após preencher tudo clique para calcular: <button onclick="imprime_calcs()">Calcula</button>
<br /><br />
<div class='et-box et-warning'>
					<div class='et-box-content'>Termo de Uso: o site fernandohrosa.com.br não se responsabiliza pela corretude dos cálculos abaixo, sendo de carácter meramente informativo. Se detectarem algum erro favor comunicar-nos pela caixa de comentário que iremos investigar. Se precisar de uma declaração com valor legal, contate um profissional de contabilidade.</div></div>


<h3>Resultado</h3>

<table class="wp-table-custom"> 
<thead> 
	<tr class="evenhalf"> 
                <th>Descrição</th>
		<th>Valor</th>
	</tr> 
</thead> 
<tbody> 
	<tr class="evenhalf"> 
            <td>Mês/Ano Base</td>
            <td id="mesanobase" class="number">-</td>
	</tr> 
	<tr class="oddhalf"> 
            <td>1. Salário Bruto</td>
            <td id="salbruto" class="number">-</td>
	</tr> 
	<tr class="evenhalf"> 
            <td>2. Desconto devido a dependentes:</td>
            <td id="descdep" class="number">-</td>
	</tr> 
	<tr class="oddhalf"> 
            <td>3. Desconto devido a contribuição com INSS</td>
            <td class="number" id="descinss" >-</td>
	</tr> 
	<tr class="evenhalf"> 
            <td>4. Desconto devido a contribuição com previdência privada</td>
            <td id="descpgbl" class="number">-</td>
	</tr> 
	<tr class="oddhalf"> 
            <td>5. Total de descontos dedutíveis do IR</td>
            <td id="totdescir" class="number">-</td>
	</tr> 
	<tr class="evenhalf"> 
            <td>6. Base de cálculo imposto de renda (1) &#8211; (5)</td>
            <td id="basebruto" class="number">-</td>
	</tr> 
	<tr class="oddhalf"> 
            <td>7. Imposto de renda a pagar:</td>
            <td id="dirpf" class="number">-</td>
	</tr> 
	<tr class="evenhalf"> 
            <td>8. Total Imposto de Renda Retido na Fonte e INSS: (3) + (7):</td>
            <td id="dirpfinss" class="number">-</td>
	</tr> 
	<tr class="evenhalf"> 
            <td>9. Desconto VT:</td>
            <td id="descvt" class="number">-</td>
	</tr> 
	<tr class="oddhalf"> 
            <td>10. Total de outros descontos:</td>
            <td id="totoutros" class="number">-</td>
	</tr> 
	<tr class="evenhalf"> 
            <td>11. Adiantamento Quinzenal: </td>
            <td id="saladt" class="number">-</td>
	</tr> 
	<tr class="oddhalf"> 
            <td>12. Salário líquido: (1) &#8211; (4) &#8211; (8) &#8211; (10) &#8211; (11)</td>
            <td id="salliq" class="number">-</td>
	</tr> 
	<tr class="evenhalf"> 
            <td>13. Salário líquido (incluindo adt): (12) + (11)</td>
            <td id="salliqadt" class="number">-</td>
	</tr> 

</tbody> 
</table> 

<h3>Notas</h3>

<div class='footnotes'><div class='footnotedivider'></div><ol><li id='fn-372-1'>Tabelas de imposto de renda retido na fonte: <a href="http://www.receita.fazenda.gov.br/Aliquotas/ContribFont2012a2015.htm">A partir de 2012 (ano exercício)</a>, <a href="http://www.receita.fazenda.gov.br/Aliquotas/ContribFont.htm">2007 até 2011 (ano exercício)</a>, Tabela de dedução com dependentes: <a href="http://www.receita.fazenda.gov.br/Aliquotas/TabDependentes.htm">2007 até 2014</a> <span class='footnotereverse'><a href='#fnref-372-1'>&#8617;</a></span></li><li id='fn-372-2'>Tabela com alíquotas do INSS de <a href="http://www.mps.gov.br/conteudoDinamico.php?id=313">2007 até 2011</a> <span class='footnotereverse'><a href='#fnref-372-2'>&#8617;</a></span></li><li id='fn-372-3'><a href="http://www.calcule.net/calculos.trabalhistas/calculo.salario.liquido.htm">Calcule.Net &#8211; Cálculo do Salário Líquido do Empregado</a> <span class='footnotereverse'><a href='#fnref-372-3'>&#8617;</a></span></li><li id='fn-372-4'><a href="http://www.calculador.com.br/Trabalhista/SalarioLiquido.aspx">Calculadora.com.br &#8211; Como Calcular Salário Líquido</a> <span class='footnotereverse'><a href='#fnref-372-4'>&#8617;</a></span></li></ol></div>]]></content:encoded>
			<wfw:commentRss>http://www.fernandohrosa.com.br/br/P/calculo-do-salario-liquido/feed/</wfw:commentRss>
		<slash:comments>147</slash:comments>
		</item>
		<item>
		<title>Tabletes de Fruta Milagrosa</title>
		<link>http://www.fernandohrosa.com.br/br/P/tabletes-de-fruta-milagrosa/?utm_source=rss&#038;utm_medium=rss&#038;utm_campaign=tabletes-de-fruta-milagrosa</link>
		<comments>http://www.fernandohrosa.com.br/br/P/tabletes-de-fruta-milagrosa/#comments</comments>
		<pubDate>Thu, 21 Apr 2011 01:06:10 +0000</pubDate>
		<dc:creator>Fernando H Rosa</dc:creator>
				<category><![CDATA[Cotidiano]]></category>
		<category><![CDATA[alimentos]]></category>
		<category><![CDATA[cozinha]]></category>
		<category><![CDATA[sensorial]]></category>

		<guid isPermaLink="false">http://www.fernandohrosa.com.br/br/?p=177</guid>
		<description><![CDATA[A fruta acima se chama Fruta-milagrosa, e foi descoberta na África em 1725, onde era mastigada por membros das tribos indígenas antes das refeições. O mais interessante sobre essa fruta é que ela causa uma mudança da percepção gustativa de quem a prova, fazendo com que tudo que se prove de amargo ou azedo seja [...]]]></description>
				<content:encoded><![CDATA[<p>A fruta acima se chama <a href="http://pt.wikipedia.org/wiki/Fruta-milagrosa">Fruta-milagrosa</a>, e foi descoberta na África em 1725, onde era mastigada por membros das tribos indígenas antes das refeições. O mais interessante sobre essa fruta é que ela causa uma mudança da percepção gustativa de quem a prova, fazendo com que tudo que se prove de amargo ou azedo seja percebido como doce (por exemplo limão, giló, agrião&#8230;). O efeito costuma durar &nbsp;de 30 minutos até 2 horas, na maioria dos casos.</p>
<p>Felizmente, não é mais necessário ir até a África para experimentar tal fruta, nem é necessário plantar uma muda no seu jardim. A empresa <a href="http://www.mymfruit.com/index.html">My M Fruit LLC</a> comercializa uma versão em tabletes, prontos para consumo. Como em toda viagem que faço para os EUA não deixo de fazer uma compra obrigatória na <a href="http://www.thinkgeek.com">ThinkGeek.com</a>, aproveitei a última viagem em março para comprar alguns tabletes de fruta milagrosa, entre outras bugigangas:</p>
<p><div id="attachment_180" class="wp-caption aligncenter" style="width: 298px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2011/04/miraculum.png"><img class="size-full wp-image-180  " title="miraculum" src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2011/04/miraculum.png" alt="" width="288" height="184" /></a><p class="wp-caption-text">Miracle Fruit Tablets</p></div></p>
<p>O primeiro passo foi preparar um experimento para testar o efeito dos tabletes. Como não tinha opções de frutas cítricas a mão, resolvi pular para a próxima opção e assaltar o estoque de bebidas em pó aqui em casa:</p>
<p><div id="attachment_182" class="wp-caption aligncenter" style="width: 394px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2011/04/estoque-tang.jpg"><img class="size-full wp-image-182  " title="estoque-tang" src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2011/04/estoque-tang.jpg" alt="" width="384" height="216" /></a><p class="wp-caption-text">Assaltando o estoque doméstico de Tang e Clight</p></div></p>
<p>A decisão final ficou pelo Clight Tangerina, já que ele não possui açúcar e queríamos isolar este efeito. A seguir o preparo: queria forçar bastante a acidez, então dilui 2 pacotinhos de Clight em 250 ml de água (cada pacote deve ser diluído, de acordo com as instruções de preparo, em 1L, portanto ficamos com uma concentração 8x acima do indicado na embalagem:</p>
<p><div id="attachment_185" class="wp-caption aligncenter" style="width: 310px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2011/04/concentrado.jpg"><img class="size-medium wp-image-185" title="concentrado" src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2011/04/concentrado-300x261.jpg" alt="" width="300" height="261" /></a><p class="wp-caption-text">Preparo do super-concentrado de Tangerina</p></div></p>
<p>Para efeito de comparação preparei de acordo com a dosagem recomendada (1L, 1 pacotinho), e coloquei-os lado a lado:</p>
<p><div id="attachment_186" class="wp-caption aligncenter" style="width: 310px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2011/04/ladoalado.jpg"><img class="size-medium wp-image-186" title="clight-ladoalado" src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2011/04/ladoalado-300x168.jpg" alt="" width="300" height="168" /></a><p class="wp-caption-text">À direita diluição 8x ao recomendado. À esquerda diluição de acordo com o recomendado.</p></div></p>
<p>Como referência, provei cada um dos preparados antes de provar o tablete milagroso. O refresco com a preparação normal tinha um gosto levemente ácido mas nada fora do normal. O 8x, como vocês podem ver na foto, ficou bem mais forte. Um gole de estômago vazio já seria o suficiente para dar um choque de acidez.</p>
<p>A seguir eu e as duas outras cobaias do estudo (meu enteado e um amigo) dissolvemos cada um uma pastilha sobre a língua, e esperamos dissolvê-la por completo. O sabor da pastilha em si é um pouco amargo/azedo, mas nada muito marcante. Dissolvido, provamos o super-concentrado e para nossa surpresa, ficou extremamente palatável. A consistência ficou um pouco acima do esperado para um refresco de tangerina, porém a acidez praticamente intragável que sentiamos antes da fruta milagrosa praticamente desapareceu. Outro aspecto sensorial que ficou marcante foi o dulçor: o refresco parecia muito mais doce do que antes. Aparentemente a percepção do que é azedo parece que se &#8216;converte&#8217; em doce.</p>
<p>Para efeito de comparação, provamos o refresco com diluição normal, e ele parecia mais água com açúcar e um leve aroma, acidez completamente zerada. De fato os tabletes funcionam!</p>
<p>Como uma extensão, testamos então provar agrião:</p>
<p><div id="attachment_187" class="wp-caption aligncenter" style="width: 310px"><a href="http://www.fernandohrosa.com.br/br/wp-content/uploads/2011/04/agriao.jpg"><img class="size-full wp-image-187" title="agriao" src="http://www.fernandohrosa.com.br/br/wp-content/uploads/2011/04/agriao.jpg" alt="" width="300" height="235" /></a><p class="wp-caption-text">Agrião pronto para ir à mesa da Strapasson</p></div></p>
<p>Provamos puro, sem tempero algum, e o resultado foi que todo o sabor amargo parece que foi embora. Entretanto não foi convertido em dulçor, pelo menos não com somente uma pastilha de fruta milagrosa dissolvida na língua. Talvez tenha que haver algum componente de adoçamento no alimento que se está provando para que ele seja potencializado. As folhas de agrião pareciam mais folhas de alface, praticamente sem gosto algum.</p>
<p>Ainda sobraram várias pastilhas de fruta milagrosa, então aguardem que se realizarmos mais algum teste interessante eu posto aqui!</p>
<p>&nbsp;</p>
]]></content:encoded>
			<wfw:commentRss>http://www.fernandohrosa.com.br/br/P/tabletes-de-fruta-milagrosa/feed/</wfw:commentRss>
		<slash:comments>10</slash:comments>
		</item>
	</channel>
</rss>
