tbrugz

<?xml version="1.0" encoding="UTF-8"?>
<!--
slightly adapted from:
https://flylib.com/books/en/1.262.1.190/1/
-->
<fo:root xmlns:fo="http://www.w3.org/1999/XSL/Format">
    <fo:layout-master-set>
        <fo:simple-page-master margin-right="20mm" margin-left="20mm"
            margin-bottom="10mm" margin-top="10mm" page-width="300mm"
            page-height="400mm" master-name="page">

tbrugz

Copyright 2013 Google Inc. All Rights Reserved.

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

   http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,

tbrugz

/*--- checkForBadJavascripts()
    This is a utility function, meant to be used inside a Greasemonkey script that
    has the "@run-at document-start" directive set.

    It Checks for and deletes or replaces specific <script> tags.
*/
function checkForBadJavascripts (controlArray) {
    /*--- Note that this is a self-initializing function.  The controlArray
        parameter is only active for the FIRST call.  After that, it is an
        event listener.

tbrugz

header 1 underline

header 2 underline

header 1

header 2

tbrugz

tse <- read.csv("Candidatos RS municipais - 2008 e 2012.csv", header=T, sep=",")

# cargo 11 = prefeito; cargo 13 = vereador
f.tse2012p <- tse[tse$ANO_ELEICAO==2012 & tse$CD_CARGO==11,]
f.tse2012v <- tse[tse$ANO_ELEICAO==2012 & tse$CD_CARGO==13,]
f.tse2008p <- tse[tse$ANO_ELEICAO==2008 & tse$CD_CARGO==11,]
f.tse2008v <- tse[tse$ANO_ELEICAO==2008 & tse$CD_CARGO==13,]

# regressões logaritmicas - 2012
lml.tse2012p <- lm(log(f.tse2012p$VL_RECEITA) ~ log(f.tse2012p$VL_BEM))