[R-es] Ayuda Error in `colnames<-`(`*tmp*`, value = c(

[Alfredo David Alvarado Ríos]

Buenas tardes, grupo.
Estoy tratando de hacer la comparación de dos archivos de una misma
organización para encontrar las diferencias entre su informe del tema
edl año 2005 y el del año 2013:


Todos los comandos van bien, a exepción del último "colnames", como se
ve en la siguiente secuencia:

> pdf1<-"./PLAN de INSPECCIONES/05_seguridad_ciudadana.pdf"
> pdf2<-"./PLAN de INSPECCIONES/2013_21SeguridadCiudadana.pdf"
> exe<-"./xpdfbin-win-3.04/xpdfbin-win-3.04/bin32/pdftotext.exe"
> system(paste("\"", exe, "\" \"", pdf1, "\"", sep = ""), wait = F)
> system(paste("\"", exe, "\" \"", pdf2, "\"", sep = ""), wait = F)
> txt1<-sub(".pdf", ".txt", pdf1)
> txt2<-sub(".pdf", ".txt", pdf2)
> d1<-readLines(txt1, encoding="UTF-8")
> d1<-iconv(enc2utf8(d1), sub = "byte")
> d2<-readLines(txt2, encoding="UTF-8")
> d2<-iconv(enc2utf8(d2), sub = "byte")
> df<-c(d1,d2)
> corpus<-Corpus(VectorSource(df))
> d<-tm_map(corpus, content_transformer(tolower))
> d<-tm_map(d, stripWhitespace)
> d<-tm_map(d, removePunctuation)
> sw<-readLines("./StopWords.txt", encoding="UTF-8")
> sw<-iconv(enc2utf8(sw), sub="byte")
> d<-tm_map(d, removeWords, sw)
> d<-tm_map(d, removeWords, stopwords("spanish"))
> tdm<-TermDocumentMatrix(d)
> m<-as.matrix(tdm)
> colnames(m) = c("P05", "P13")
Error in `colnames<-`(`*tmp*`, value = c("P05", "P13")) :
  length of 'dimnames' [2] not equal to array extent

Mi pregunta es acerca de ese error. Por lo que entiendo, R no puede
correr exitosamente el comando que se le indica porque la longitud  de
los valores P05 y P13 (los dos informes) no es la misma para el
sistema.

Alguna ayuda que pueda orientarme al respecto, por favor? Lo que
necesito es hacer esa tarea con colnames para poder seguir con el
ejercicio comparativo. Muchas gracias por la ayuda.