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

Quinta Novembro 20 11:17:16 BRST 2014

vou compartilhar em dropbox com vc ok!

Em 20 de novembro de 2014 10:05, David Feitosa <contato em davidfeitosa.com>
escreveu:

> Você teria o link de acesso ao arquivo?
>
>
>
> Atenciosamente,
>
> David Feitosa
>
> (\_(\
> (=°;°)
> (("")("")
>
> Em 20 de novembro de 2014 09:58, Antonio Armando Ulian do Lago Albuquerque
> <ulagoalbuquerque em gmail.com> escreveu:
>
> 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.
>>>
>>
>>
>> _______________________________________________
>> 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.
>>
>
>
> _______________________________________________
> 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/3c7a1f45/attachment.html>