Si encuentras algo que no entiendes puedes dejarlo en la sección de comentarios y te ayudaremos lo más rápido posible.
Solución:
Tal vez esto podría ser bueno para usted:
# read two times the vcf file, first for the columns names, second for the data
tmp_vcf<-readLines("test.vcf")
tmp_vcf_data<-read.table("test.vcf", stringsAsFactors = FALSE)
# filter for the columns names
tmp_vcf<-tmp_vcf[-(grep("#CHROM",tmp_vcf)+1):-(length(tmp_vcf))]
vcf_names<-unlist(strsplit(tmp_vcf[length(tmp_vcf)],"t"))
names(tmp_vcf_data)<-vcf_names
pd: si tiene varios archivos vcf, debe usar la función lapply.
mejor, roberto
data.table::fread lo lee según lo previsto, ver ejemplo:
library(data.table)
#try this example vcf from GitHub
vcf <- fread("https://raw.githubusercontent.com/vcflib/vcflib/master/samples/sample.vcf")
#or if the file is local:
vcf <- fread("path/to/my/vcf/sample.vcf")
También podemos usar el paquete vcfR, ver los manuales en el enlace.
Puntuaciones y comentarios
Si te gusta la invitación, tienes la opción de dejar un enunciado acerca de qué te ha gustado de esta reseña.
¡Haz clic para puntuar esta entrada!
(Votos: 2 Promedio: 4)