<div dir="ltr"><div>Olá,</div><div>Necessito de auxílio para abrir no RKward 3.02 (Ubuntu versão 14.04 LTS) um arquivo da base de dados da Câmara Federal, extensão csv. Parte do conteúdo segue abaixo com sep "; "... Utilizei o seguinte comando para tentar abri-lo propleg2014 <- read.csv("proposicoes.csv", sep=";", dec=",", header=TRUE) e me retornou a seguinte mensagem Warning message:</div><div>In scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings,  :</div><div>  EOF within quoted string</div><div>Podem me ajudar a compor o comando válido que eu consiga abrir o arquivo proposicoes.csv que se encontra armazenado em minha pasta?</div><div>Obrigado.</div><div><br></div><div><br></div><div>DATAPRESENTACAOPROPOSICAO;DATTRANSFPROPOSICAOLEI;COD_TIPO_PARLAMENTAR;NOM_CIVIL_PARLAMENTAR;NOM_PARLAMENTAR;COD_SEXO;DES_TIPO_PARLAMENTAR;COD_PARLAMENTAR_ORIGEM;NUM_LEGISLATURA_APRESEN;NUM_SESSAO_LEGISLATIVA_APRESEN;COD_TIPO_SESSAO_LEGISLATIVA_APRESEN;DAT_INICIO_LEGISLATURA_APRESEN;DAT_FIM_LEGISLATURA_APRESEN;DAT_INICIO_SESSAO_LEGISLATIVA_APRESEN;DAT_FIM_SESSAO_LEGISLATIVA_APRESEN;DES_TIPO_SESSAO_LEGISLATIVA_APRESEN;DAT_INICIAL_RECESSO_APRESEN;DAT_FINAL_RECESSO_APRESEN;NUM_LEGISLATURA_LEI;NUM_SESSAO_LEGISLATIVA_LEI;COD_TIPO_SESSAO_LEGISLATIVA_LEI;DAT_INICIO_LEGISLATURA_LEI;DAT_FIM_LEGISLATURA_LEI;DAT_INICIO_SESSAO_LEGISLATIVA_LEI;DAT_FIM_SESSAO_LEGISLATIVA_LEI;DES_TIPO_SESSAO_LEGISLATIVA_LEI;DAT_INICIAL_RECESSO_LEI;DAT_FINAL_RECESSO_LEI;COD_PROPOSICAO_ORIGEM;ANO_PROPOSICAO;NUM_PROPOSICAO;NOM_PROPOSICAO;AREAS_TEMATICAS_APRESENTACAO;SIG_NORMA_JURIDICA;DES_TIPO_NORMA_JURIDICA;COD_TIPO_NORMA_JURIDICA_ORIGEM;SIG_UF;TEX_REGIAO_GEOGRAFICA_AUTOR;NOM_UF;NOM_PARTIDO_POLITICO;COD_PARTIDO_POLITICO;SIG_PARTIDO_POLITICO;DES_SITUACAO_PROPOSICAO;SIG_TIPO_PROPOSICAO;DES_TIPO_PROPOSICAO;DES_COMPLETA;IND_ATIVO_TIPO_PROPOSICAO;DES_ATIVO_TIPO_PROPOSICAO;DAT_VETO_TOTAL;NOM_ORGAO;IND_ATIVO_ORGAO;DES_ATIVO_ORGAO;COD_ORGAO_ORIGEM;DES_APELIDO_ORGAO;COD_TIPO_AUTOR_ORIGEM;DES_TIPO_AUTOR;NUM_LEGISLATURA_VET_TOTAL;NUM_SESSAO_LEGISLATIVA_VET_TOTAL;COD_TIPO_SESSAO_LEGISLATIVA_VET_TOTAL;DAT_INICIO_LEGISLATURA_VET_TOTAL;DAT_FIM_LEGISLATURA_VET_TOTAL;DAT_INICIO_SESSAO_LEGISLATIVA_VET_TOTAL;DAT_FIM_SESSAO_LEGISLATIVA_VET_TOTAL;DES_TIPO_SESSAO_LEGISLATIVA_VET_TOTAL;DAT_INICIAL_RECESSO_VET_TOTAL;DAT_FINAL_RECESSO_VET_TOTAL</div><div>11-03-2002;;10000;FRANCISCO DO NASCIMENTO GOMES;DR. GOMES;M;DEPUTADO;179;51;4;1;01-02-1999;31-01-2003;15-02-2002;16-12-2002;Ordinária;02-07-2002;01-08-2002;-1;-1;-1;;;;;N/A;;;46244;2002;6245;PL 6245/2002;VIAÇÃO E TRANSPORTES;N/A;N/A;-1;AM;NORTE;AMAZONAS;N/A;-1;N/A;N/A;PL;PROJETO DE LEI;PROJETO DE LEI;1;ATIVADO;;N/A;-1;N/A;-1;N/A;TipoParlamentar_10000;DEPUTADO;-1;-1;-1;;;;;N/A;;</div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 19 de novembro de 2014 15:23, Thiago Touya <span dir="ltr"><<a href="mailto:thiagotouya@gmail.com" target="_blank">thiagotouya@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Boa tarde!</div><div><br></div><div>Senhores, peço sua ajuda para criar um código que gere um número 'n' de amostras de tamanho 'n'.</div><div><br></div><div>Atualmente, consigo fazer apenas uma amostra de tamanho 'n', mas gostaria de fazer de um modo prático a geração de outras 'n-1' amostras. No final gostaria de armazenar tudo numa matriz 'nxn'.</div><div><br></div><div>Segue o código que estou usando para a geração de uma amostra:</div><div><br></div><div>## Tamanho da Amostra<br>n=100</div><div><br></div><div>## Parâmetros 1<br>a <- c(4.5,1.5)<br>b <- c(3.0,9.0)<br>p <- c(0.5,0.5)</div><div><br></div><div>## Função Acumulada Inversa<br>fmenos1_kuma = function(x,a,b){<br> (1-(1-x)^(1/b))^(1/a)<br>}</div><div><br></div><div>## Mistura <br>mkuma = function(x){<br> (a[1]*b[1]*(x^(a[1]-1))*(1-x^a[1])^(b[1]-1))*p[1] + <br> (a[2]*b[2]*(x^(a[2]-1))*(1-x^a[2])^(b[2]-1))*p[2]<br>}</div><div><br></div><div>## Simulação da amostra <br></div><div> u1 <- runif(n)<br> u2 <- runif(n)<br> x  <- numeric(n)<br> for (i in 1:n){<br>  if(u1[i] <  p[1]) x[i]= fmenos1_kuma(u2[i],a[1],b[1])<br>  if(u1[i] >= p[1]) x[i]= fmenos1_kuma(u2[i],a[2],b[2])<br> }<br><br clear="all"></div><div><br></div><div>O que eu pensei em fazer foi adicionar um outro 'For' no passo da simulação da </div><div>amostra, mas  não consegui alimentar um objeto 'y' com os valores gerados para cada amostra.</div><div><br></div><div><br></div><div>Obrigado.</div><span class="HOEnZb"><font color="#888888"><div><br>-- <br></div><div>Att,<br>Thiago Morais de Carvalho (61 - 8169-5094)<br></div>
</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>