[R-br] Dificuldade na utilização de um loop duplo para a criação de várias amostras

Quinta Novembro 20 10:58:47 BRST 2014

Olá,
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:
In scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings,  :
  EOF within quoted string
Podem me ajudar a compor o comando válido que eu consiga abrir o arquivo
proposicoes.csv que se encontra armazenado em minha pasta?
Obrigado.

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
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;;

Em 19 de novembro de 2014 15:23, Thiago Touya <thiagotouya em gmail.com>
escreveu:

> Boa tarde!
>
> Senhores, peço sua ajuda para criar um código que gere um número 'n' de
> amostras de tamanho 'n'.
>
> 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'.
>
> Segue o código que estou usando para a geração de uma amostra:
>
> ## Tamanho da Amostra
> n=100
>
> ## Parâmetros 1
> a <- c(4.5,1.5)
> b <- c(3.0,9.0)
> p <- c(0.5,0.5)
>
> ## Função Acumulada Inversa
> fmenos1_kuma = function(x,a,b){
>  (1-(1-x)^(1/b))^(1/a)
> }
>
> ## Mistura
> mkuma = function(x){
>  (a[1]*b[1]*(x^(a[1]-1))*(1-x^a[1])^(b[1]-1))*p[1] +
>  (a[2]*b[2]*(x^(a[2]-1))*(1-x^a[2])^(b[2]-1))*p[2]
> }
>
> ## Simulação da amostra
>  u1 <- runif(n)
>  u2 <- runif(n)
>  x  <- numeric(n)
>  for (i in 1:n){
>   if(u1[i] <  p[1]) x[i]= fmenos1_kuma(u2[i],a[1],b[1])
>   if(u1[i] >= p[1]) x[i]= fmenos1_kuma(u2[i],a[2],b[2])
>  }
>
>
> O que eu pensei em fazer foi adicionar um outro 'For' no passo da
> simulação da
> amostra, mas  não consegui alimentar um objeto 'y' com os valores gerados
> para cada amostra.
>
>
> Obrigado.
>
> --
> Att,
> Thiago Morais de Carvalho (61 - 8169-5094)
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20141120/317daac6/attachment.html>