Para ser mas concretos, es el DNA WORDS

https://a-little-book-of-r-for-bioinformatics.readthedocs.org/en/latest/src/chapter1.html

David Sanchez Rodriguez

Web personal: www.dasanro.es
Blog: www.laideafeliz.es
Twitter: @dasanro <https://twitter.com/#!/dasanro>
Facebook: www.facebook.com/dasanro


El 6 de marzo de 2013 12:52, David Sanchez Rodriguez
<dasanro@gmail.com>escribió:

> Hola Javier y el resto,
>
> He realizado lo que pone en el siguiente link en la seccion
> Over-represented and under-represented DNA word
>
>
> https://a-little-book-of-r-for-bioinformatics.readthedocs.org/en/latest/src/chapter2.html
>
> Pero que en mi caso, en lugar de que me saque todos los casos, pongo el
> if() para comprobar y pedir que solo me saque el caso de AAA CCC GGG TTT (y
> asi hasta tener 12 AAAAA,....) en lugar de que me saque todas las
> convinaciones posibles como podeis ver en el link
>
> Gracias
>
> Saludos.
>
> David Sanchez Rodriguez
>
> Web personal: www.dasanro.es
> Blog: www.laideafeliz.es
> Twitter: @dasanro <https://twitter.com/#!/dasanro>
>
>
> El 6 de marzo de 2013 12:35, Javier Villacampa González <
> javier.villacampa.gonzalez@gmail.com> escribió:
>
> ¿Podríamos ponernos un ejemplo replicable en nuestras máquinas?
>>
>> Personalmente creo que estas obteniendo un NA cuando obtienes auxiliar.
>>
>> De todas maneras a mi cuando me falla un bucle lo que hago es:
>> Poner ordenes como print(i) en el bucle, para ver donde tienes el fallo.
>> O correr lo que he llamando "Ordenes para detectar fallos"
>>
>>
>> #------------------------------------------------------------------------------------------------------
>> # Ejemplo de bucle
>>
>> #------------------------------------------------------------------------------------------------------
>> DD <- rbind(mtcars,
>>             rep(x=NA,11), mtcars )
>> rownames(DD)[33] <- "FALLO"
>> rownames(DD) # EN la 33 le pongo nombre Fallo que es lo que va a salir
>>
>> for(i in 1:dim(DD)[1]){
>>   print(i)
>>   if(DD$mpg[i]>0){
>>     print( rownames(DD)[i] )
>>   }
>>
>> }
>>
>>
>>
>>
>>
>>
>>
>> #------------------------------------------------------------------------------------------------------
>> # Ordenes para detectar fallos
>>
>> #------------------------------------------------------------------------------------------------------
>> i<- 1
>>
>>
>> # corre el programa varias veces
>> i<- i +1
>>
>> # Cuerpo del bucle
>>   print(i)
>>   if(DD$mpg[i]>0){
>>     print( rownames(DD)[i] )
>>   }
>> # Fin del bucle
>>
>
>

	[[alternative HTML version deleted]]

