Muito obrigado!






Felipe, veja se é isto o que tu deseja. Talvez não seja a solução mais 
elegante, mas aparentemente funciona:



# gera dados aleatorios



set.seed(123)



n <- 100



x <- paste(rpois(n, 5), rbinom(n, 1, .4)+1, rpois(n, 5), sep=".")



# separa os elementos das strings de acordo com os pontos



x.split <- unlist(strsplit(x, "[.]"))



# seleciona apenas os elementos do meio dos dados originais, que são os 
elementos 2, 5, 8, etc. do vetor x.split



unlist(strsplit(x, "[.]"))[seq(from=2, to=length(x.split), by=3)]



# para transformar o resultado acima em numeros



as.numeric(unlist(strsplit(x, "[.]"))[seq(from=2, to=length(x.split), by=3)])

















2015-08-25 16:37 GMT-03:00 Felipe <[email protected]>:


Desculpem pelo assunto equivocado no e-mail anterior.

Em 25-08-2015 16 <tel:25-08-2015%2016> :18, Felipe escreveu:

Prezados,

Tenho a seguinte variável:
> dim(dados)
> [1] 189  24

Escola.Pd.Pr.sujeito
               8.2.6
               2.1.5
               2.1.8
               2.1.7
               2.1.6
               2.2.1
             11.2.2
               7.1.6
               7.1.5
               7.1.4
             12.2.4
                .....

Quero criar uma nova variável que guarde os valores no meio (que variam entre 1 
e 2)
Pensei em usar a função substring:

> variavel.nova<-substr(d$Escola.Pd.Pr.sujeito,3,3)

 Mas como o primeiro valor varia entre 1 e 12 não dá. Pensei em adicionar com a 
função paste(), mais um caracter no início dos valores que não são dezenas pois 
assim as posições seriam compatíveis para usar 
substr(d$Escola.Pd.Pr.sujeito,4,4).

> paste("0",d$Escola.Pd.Pr.sujeito, sep = '')

Como poderia fazer isso?


--
Atenciosamente
Felipe E. Barletta Mendes
Estatístico - Conre3 9766-A
+55 <tel:%2B55%20%2841%29-92077191>  (41)-92077191
+55 <tel:%2B55%20%2841%29-33287216>  (41)-33287216

_______________________________________________
R-br mailing list
[email protected]
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.







--

Marcus Nunes
http://marcusnunes.me/



---
Este email foi escaneado pelo Avast antivírus.
https://www.avast.com/antivirus
_______________________________________________
R-br mailing list
[email protected]
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.

Responder a