Sys.setlocale("LC_TIME","es_ES.UTF-8")
## [1] "es_ES.UTF-8"
fechas <- seq.Date(as.Date("2023-07-20"), as.Date("2023-08-29"), by="days") #Fechas de los archivos seleccionados

library(rvest)
library(magrittr)

# Función para hacer el webscraping y guardar en archivo .txt
scrape_y_guarda <- function(fecha) {
  # Formatea la fecha para la URL
  # Formatea la fecha para la URL
  dia <- as.numeric(format(fecha, "%d"))
  mes <- format(fecha, "%B")
  ano <- format(fecha, "%Y")
  fecha_url <- paste(dia, "de", mes, "de", ano, sep="-")
  url <- paste0("https://www.gob.mx/presidencia/articulos/version-estenografica-conferencia-de-prensa-del-presidente-andres-manuel-lopez-obrador-del-", fecha_url)
# Intenta hacer el webscraping
  pagina <- read_html(url)
  
  # Suponiendo que el contenido de la conferencia está en un selector específico, como <div class="contenido-conferencia"> 
  # (es necesario verificar y ajustar este selector de acuerdo al código fuente real de la página)
  texto <- pagina %>%
    #html_nodes(".contenido-conferencia") %>%  # <-- reemplaza ".contenido-conferencia" con el selector CSS correcto
    html_text()
  
  # Crea el nombre del archivo y lo guarda
  nombre_archivo <- paste0("conferencia_", gsub("-de-", "_", fecha_url), ".txt")
  writeLines(texto, nombre_archivo)
}

lapply(fechas, scrape_y_guarda)
## [[1]]
## NULL
## 
## [[2]]
## NULL
## 
## [[3]]
## NULL
## 
## [[4]]
## NULL
## 
## [[5]]
## NULL
## 
## [[6]]
## NULL
## 
## [[7]]
## NULL
## 
## [[8]]
## NULL
## 
## [[9]]
## NULL
## 
## [[10]]
## NULL
## 
## [[11]]
## NULL
## 
## [[12]]
## NULL
## 
## [[13]]
## NULL
## 
## [[14]]
## NULL
## 
## [[15]]
## NULL
## 
## [[16]]
## NULL
## 
## [[17]]
## NULL
## 
## [[18]]
## NULL
## 
## [[19]]
## NULL
## 
## [[20]]
## NULL
## 
## [[21]]
## NULL
## 
## [[22]]
## NULL
## 
## [[23]]
## NULL
## 
## [[24]]
## NULL
## 
## [[25]]
## NULL
## 
## [[26]]
## NULL
## 
## [[27]]
## NULL
## 
## [[28]]
## NULL
## 
## [[29]]
## NULL
## 
## [[30]]
## NULL
## 
## [[31]]
## NULL
## 
## [[32]]
## NULL
## 
## [[33]]
## NULL
## 
## [[34]]
## NULL
## 
## [[35]]
## NULL
## 
## [[36]]
## NULL
## 
## [[37]]
## NULL
## 
## [[38]]
## NULL
## 
## [[39]]
## NULL
## 
## [[40]]
## NULL
## 
## [[41]]
## NULL
#Eliminar archivos son leyenda "Sitio en mantenimiento"

#Este código busca archivos .txt en el directorio de trabajo actual, verifica si contienen la leyenda "Sitio en mantenimiento" y, en caso afirmativo, elimina esos archivos y notifica al usuario sobre los archivos eliminados.

# Lista de archivos .txt en el directorio actual
#list.files(): Esta función devuelve una lista de nombres de archivos en el directorio de trabajo actual.
#pattern = "*.txt": Esta es una expresión regular que indica que sólo quieres listar archivos que terminen en .txt, es decir, archivos de texto.
archivos <- list.files(pattern = "*.txt")
# Función para verificar y eliminar archivos no deseados
verificar_y_eliminar <- function(archivo) {
  #readLines(archivo, warn = FALSE): Esta función lee el archivo línea por línea y devuelve un vector donde cada elemento es una línea del archivo.
#warn = FALSE: Evita que se muestren advertencias en caso de problemas al leer el archivo.
  texto <- readLines(archivo, warn = FALSE)
  #paste(): Esta función concatena el vector de líneas (anteriormente leído) en un solo string.
#collapse = " ": Indica que las líneas se deben separar con un espacio.
  texto <- paste(texto, collapse = " ")
  

  # Si el archivo contiene "Sitio en mantenimiento", eliminarlo
  #grepl(): Esta función busca una expresión regular (en este caso, la cadena "Sitio en mantenimiento") dentro del texto. Si la encuentra, devuelve TRUE; de lo contrario, devuelve FALSE.
#ignore.case = TRUE: Ignora la diferencia entre mayúsculas y minúsculas al buscar la cadena.
  if (grepl("Sitio en mantenimiento", texto, ignore.case = TRUE)) {
    file.remove(archivo)
    cat(paste("Archivo eliminado:", archivo, "\n"))
  }
}
#Si el condicional anterior es verdadero (es decir, si el archivo contiene "Sitio en mantenimiento"), esta línea elimina el archivo.

# Aplicar la función a cada archivo
lapply(archivos, verificar_y_eliminar)
## Archivo eliminado: conferencia_12_agosto_2023.txt 
## Archivo eliminado: conferencia_13_agosto_2023.txt 
## Archivo eliminado: conferencia_18_agosto_2023.txt 
## Archivo eliminado: conferencia_19_agosto_2023.txt 
## Archivo eliminado: conferencia_20_agosto_2023.txt 
## Archivo eliminado: conferencia_22_julio_2023.txt 
## Archivo eliminado: conferencia_23_julio_2023.txt 
## Archivo eliminado: conferencia_26_agosto_2023.txt 
## Archivo eliminado: conferencia_26_julio_2023.txt 
## Archivo eliminado: conferencia_27_agosto_2023.txt 
## Archivo eliminado: conferencia_28_julio_2023.txt 
## Archivo eliminado: conferencia_29_julio_2023.txt 
## Archivo eliminado: conferencia_3_agosto_2023.txt 
## Archivo eliminado: conferencia_30_julio_2023.txt 
## Archivo eliminado: conferencia_4_agosto_2023.txt 
## Archivo eliminado: conferencia_5_agosto_2023.txt 
## Archivo eliminado: conferencia_6_agosto_2023.txt 
## Archivo eliminado: conferencia_7_agosto_2023.txt
## [[1]]
## NULL
## 
## [[2]]
## NULL
## 
## [[3]]
## NULL
## 
## [[4]]
## NULL
## 
## [[5]]
## NULL
## 
## [[6]]
## NULL
## 
## [[7]]
## NULL
## 
## [[8]]
## NULL
## 
## [[9]]
## NULL
## 
## [[10]]
## NULL
## 
## [[11]]
## NULL
## 
## [[12]]
## NULL
## 
## [[13]]
## NULL
## 
## [[14]]
## NULL
## 
## [[15]]
## NULL
## 
## [[16]]
## NULL
## 
## [[17]]
## NULL
## 
## [[18]]
## NULL
## 
## [[19]]
## NULL
## 
## [[20]]
## NULL
## 
## [[21]]
## NULL
## 
## [[22]]
## NULL
## 
## [[23]]
## NULL
## 
## [[24]]
## NULL
## 
## [[25]]
## NULL
## 
## [[26]]
## NULL
## 
## [[27]]
## NULL
## 
## [[28]]
## NULL
## 
## [[29]]
## NULL
## 
## [[30]]
## NULL
## 
## [[31]]
## NULL
## 
## [[32]]
## NULL
## 
## [[33]]
## NULL
## 
## [[34]]
## NULL
## 
## [[35]]
## NULL
## 
## [[36]]
## NULL
## 
## [[37]]
## NULL
## 
## [[38]]
## NULL
## 
## [[39]]
## NULL
## 
## [[40]]
## NULL
## 
## [[41]]
## NULL
# Lista de archivos .txt en el directorio actual

archivos <- list.files(pattern = "*.txt")
#list.files(pattern = "*.txt"): Lista todos los archivos en el directorio de trabajo actual que tengan la extensión .txt. Estos nombres de archivos se guardan en el vector archivos.
# Función para limpiar el texto
limpiar_texto <- function(archivo) {
  texto <- readLines(archivo, warn = FALSE)
  texto <- paste(texto, collapse = " ")
  
  # tolower(texto): Convierte todo el texto a minúsculas para que el análisis y limpieza sean uniformes.
  texto <- tolower(texto)
  
  # Eliminar URLs: gsub("http\S+|www\.\S+", "", texto): Usa una expresión regular para encontrar URLs que comiencen con "http" o "www" y las reemplaza con una cadena vacía, esencialmente eliminándolas.
  texto <- gsub("http\\S+|www\\.\\S+", "", texto)
  
  # Eliminar etiquetas HTML (si las hubiera): gsub("<.*?>", "", texto): Si hubiera alguna etiqueta HTML en el texto, esta expresión regular las identificaría y las eliminaría.
  texto <- gsub("<.*?>", "", texto)
# Eliminar puntuación: gsub("[[:punct:]]", "", texto): Elimina cualquier carácter de puntuación del texto.
  texto <- gsub("[[:punct:]]", "", texto)
  
  # Eliminar números: gsub("\d+", "", texto): Elimina cualquier secuencia de números.
  texto <- gsub("\\d+", "", texto)
  
  # Eliminar espacios extra: gsub("\s+", " ", texto): Reemplaza cualquier secuencia de espacios (uno o más) con un único espacio.
  texto <- gsub("\\s+", " ", texto)
  
  return(texto)
  
}

# Aplicar la función de limpieza a cada archivo
textos_limpios <- lapply(archivos, limpiar_texto)
library(tm)
## Loading required package: NLP
corpus <- Corpus(VectorSource(textos_limpios))

#Continuar con la creacion del dtm"
dtm<- DocumentTermMatrix(corpus)

#Ver la matriz"
inspect(dtm)
## <<DocumentTermMatrix (documents: 23, terms: 19138)>>
## Non-/sparse entries: 70094/370080
## Sparsity           : 84%
## Maximal term length: 596
## Weighting          : term frequency (tf)
## Sample             :
##     Terms
## Docs con del las los para pero por presidente que una
##   1  122 147 118 255  121  121 161        170 642 131
##   12 166 164 103 297  131   65 136        129 571  94
##   13 155 143  90 296  142  110 129         67 623  97
##   15 159 192  92 211  135   61 148         95 532  90
##   17 119 168  99 204   93   66 153         91 442  84
##   19 153 113  92 270  128   67 134        114 547  72
##   20 164 219 120 286  137   79 169        118 636 106
##   21 182 198 145 244  171   67 160        120 656 145
##   23 148 135 103 356  140  109 164        112 721 136
##   5  140 157 117 235  112   59 138        105 482 113
#Conteo de las palabras del primer documento.

conteo_primer_doc<- as.matrix(dtm[1, ])
sort(conteo_primer_doc, decreasing = TRUE)
##     [1] 642 255 170 161 147 131 122 121 121 118 115 112 111 111 104 103  97  73
##    [19]  73  69  65  63  63  61  57  53  52  52  51  48  48  47  45  44  43  43
##    [37]  41  40  39  38  36  36  36  36  36  35  34  34  34  34  33  32  32  31
##    [55]  31  31  30  30  29  28  27  27  27  27  27  26  26  26  26  25  25  25
##    [73]  25  24  24  24  23  23  23  23  23  23  23  22  22  22  21  21  20  20
##    [91]  19  19  19  19  19  19  19  18  18  18  18  18  17  17  17  17  17  17
##   [109]  16  16  16  16  16  16  16  16  16  16  15  15  15  15  15  15  15  15
##   [127]  15  14  14  14  14  14  14  14  14  14  14  13  13  13  13  13  13  13
##   [145]  13  13  13  12  12  12  12  12  12  12  12  12  12  12  12  12  12  12
##   [163]  12  12  11  11  11  11  11  11  11  11  11  11  11  11  11  11  11  11
##   [181]  11  11  11  11  11  11  10  10  10  10  10  10  10  10  10  10  10  10
##   [199]  10  10  10  10  10  10  10  10  10  10  10   9   9   9   9   9   9   9
##   [217]   9   9   9   9   9   9   9   9   9   9   9   9   9   9   9   9   9   9
##   [235]   9   9   9   9   9   9   9   9   9   8   8   8   8   8   8   8   8   8
##   [253]   8   8   8   8   8   8   8   8   8   8   8   8   8   8   8   8   8   8
##   [271]   8   8   8   8   8   8   8   8   7   7   7   7   7   7   7   7   7   7
##   [289]   7   7   7   7   7   7   7   7   7   7   7   7   7   7   7   7   7   7
##   [307]   7   7   7   7   7   7   7   7   7   7   7   7   7   7   7   7   7   6
##   [325]   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6
##   [343]   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6
##   [361]   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6   6
##   [379]   6   6   6   6   6   5   5   5   5   5   5   5   5   5   5   5   5   5
##   [397]   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5
##   [415]   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5
##   [433]   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5
##   [451]   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5
##   [469]   5   5   5   5   5   4   4   4   4   4   4   4   4   4   4   4   4   4
##   [487]   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4
##   [505]   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4
##   [523]   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4
##   [541]   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4
##   [559]   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4
##   [577]   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4
##   [595]   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   3
##   [613]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [631]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [649]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [667]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [685]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [703]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [721]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [739]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [757]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [775]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [793]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [811]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [829]   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3   3
##   [847]   3   3   3   3   3   3   3   3   3   3   3   2   2   2   2   2   2   2
##   [865]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##   [883]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##   [901]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##   [919]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##   [937]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##   [955]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##   [973]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##   [991]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1009]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1027]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1045]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1063]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1081]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1099]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1117]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1135]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1153]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1171]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1189]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1207]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1225]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1243]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1261]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1279]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1297]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1315]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1333]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2
##  [1351]   2   2   2   2   2   2   2   2   2   2   2   2   2   2   2   1   1   1
##  [1369]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1387]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1405]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1423]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1441]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1459]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1477]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1495]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1513]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1531]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1549]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1567]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1585]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1603]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1621]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1639]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1657]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1675]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1693]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1711]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1729]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1747]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1765]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1783]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1801]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1819]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1837]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1855]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1873]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1891]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1909]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1927]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1945]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1963]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1981]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [1999]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2017]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2035]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2053]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2071]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2089]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2107]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2125]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2143]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2161]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2179]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2197]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2215]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2233]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2251]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2269]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2287]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2305]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2323]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2341]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2359]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2377]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2395]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2413]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2431]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2449]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2467]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2485]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2503]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2521]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2539]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2557]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2575]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2593]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2611]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2629]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2647]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2665]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2683]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2701]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2719]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2737]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2755]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2773]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2791]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2809]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2827]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2845]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2863]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2881]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2899]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2917]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2935]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2953]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2971]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [2989]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [3007]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [3025]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [3043]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [3061]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [3079]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [3097]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [3115]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [3133]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [3151]   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1
##  [3169]   1   1   1   1   1   1   1   1   0   0   0   0   0   0   0   0   0   0
##  [3187]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3205]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3223]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3241]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3259]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3277]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3295]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3313]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3331]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3349]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3367]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3385]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3403]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3421]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3439]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3457]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3475]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3493]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3511]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3529]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3547]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3565]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3583]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3601]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3619]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3637]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3655]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3673]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3691]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3709]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3727]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3745]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3763]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3781]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3799]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3817]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3835]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3853]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3871]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3889]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3907]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3925]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3943]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3961]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3979]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [3997]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4015]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4033]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4051]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4069]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4087]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4105]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4123]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4141]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4159]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4177]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4195]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4213]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4231]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4249]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4267]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4285]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4303]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4321]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4339]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4357]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4375]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4393]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4411]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4429]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4447]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4465]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4483]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4501]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4519]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4537]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4555]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4573]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4591]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4609]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4627]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4645]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4663]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4681]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4699]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4717]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4735]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4753]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4771]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4789]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4807]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4825]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4843]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4861]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4879]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4897]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4915]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4933]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4951]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4969]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [4987]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5005]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5023]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5041]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5059]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5077]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5095]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5113]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5131]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5149]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5167]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5185]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5203]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5221]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5239]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5257]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5275]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5293]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5311]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5329]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5347]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5365]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5383]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5401]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5419]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5437]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5455]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5473]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5491]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5509]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5527]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5545]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5563]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5581]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5599]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5617]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5635]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5653]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5671]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5689]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5707]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5725]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5743]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5761]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5779]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5797]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5815]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5833]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5851]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5869]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5887]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5905]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5923]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5941]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5959]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5977]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [5995]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6013]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6031]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6049]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6067]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6085]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6103]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6121]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6139]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6157]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6175]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6193]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6211]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6229]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6247]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6265]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6283]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6301]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6319]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6337]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6355]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6373]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6391]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6409]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6427]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6445]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6463]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6481]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6499]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6517]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6535]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6553]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6571]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6589]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6607]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6625]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6643]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6661]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6679]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6697]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6715]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6733]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6751]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6769]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6787]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6805]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6823]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6841]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6859]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6877]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6895]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6913]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6931]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6949]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6967]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [6985]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7003]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7021]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7039]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7057]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7075]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7093]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7111]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7129]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7147]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7165]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7183]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7201]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7219]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7237]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7255]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7273]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7291]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7309]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7327]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7345]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7363]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7381]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7399]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7417]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7435]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7453]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7471]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7489]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7507]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7525]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7543]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7561]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7579]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7597]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7615]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7633]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7651]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7669]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7687]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7705]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7723]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7741]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7759]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7777]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7795]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7813]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7831]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7849]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7867]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7885]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7903]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7921]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7939]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7957]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7975]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [7993]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8011]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8029]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8047]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8065]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8083]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8101]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8119]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8137]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8155]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8173]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8191]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8209]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8227]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8245]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8263]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8281]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8299]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8317]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8335]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8353]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8371]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8389]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8407]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8425]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8443]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8461]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8479]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8497]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8515]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8533]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8551]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8569]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8587]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8605]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8623]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8641]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8659]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8677]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8695]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8713]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8731]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8749]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8767]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8785]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8803]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8821]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8839]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8857]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8875]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8893]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8911]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8929]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8947]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8965]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [8983]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9001]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9019]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9037]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9055]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9073]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9091]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9109]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9127]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9145]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9163]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9181]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9199]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9217]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9235]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9253]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9271]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9289]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9307]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9325]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9343]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9361]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9379]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9397]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9415]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9433]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9451]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9469]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9487]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9505]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9523]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9541]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9559]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9577]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9595]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9613]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9631]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9649]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9667]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9685]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9703]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9721]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9739]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9757]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9775]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9793]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9811]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9829]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9847]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9865]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9883]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9901]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9919]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9937]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9955]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9973]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##  [9991]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10009]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10027]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10045]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10063]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10081]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10099]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10117]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10135]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10153]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10171]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10189]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10207]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10225]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10243]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10261]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10279]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10297]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10315]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10333]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10351]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10369]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10387]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10405]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10423]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10441]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10459]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10477]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10495]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10513]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10531]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10549]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10567]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10585]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10603]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10621]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10639]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10657]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10675]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10693]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10711]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10729]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10747]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10765]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10783]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10801]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10819]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10837]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10855]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10873]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10891]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10909]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10927]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10945]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10963]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10981]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [10999]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11017]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11035]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11053]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11071]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11089]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11107]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11125]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11143]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11161]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11179]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11197]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11215]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11233]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11251]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11269]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11287]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11305]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11323]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11341]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11359]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11377]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11395]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11413]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11431]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11449]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11467]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11485]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11503]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11521]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11539]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11557]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11575]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11593]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11611]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11629]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11647]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11665]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11683]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11701]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11719]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11737]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11755]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11773]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11791]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11809]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11827]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11845]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11863]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11881]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11899]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11917]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11935]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11953]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11971]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [11989]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12007]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12025]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12043]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12061]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12079]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12097]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12115]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12133]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12151]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12169]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12187]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12205]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12223]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12241]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12259]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12277]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12295]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12313]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12331]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12349]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12367]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12385]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12403]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12421]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12439]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12457]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12475]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12493]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12511]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12529]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12547]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12565]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12583]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12601]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12619]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12637]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12655]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12673]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12691]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12709]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12727]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12745]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12763]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12781]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12799]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12817]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12835]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12853]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12871]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12889]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12907]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12925]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12943]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12961]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12979]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [12997]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13015]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13033]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13051]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13069]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13087]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13105]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13123]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13141]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13159]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13177]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13195]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13213]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13231]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13249]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13267]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13285]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13303]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13321]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13339]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13357]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13375]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13393]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13411]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13429]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13447]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13465]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13483]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13501]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13519]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13537]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13555]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13573]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13591]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13609]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13627]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13645]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13663]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13681]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13699]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13717]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13735]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13753]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13771]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13789]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13807]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13825]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13843]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13861]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13879]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13897]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13915]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13933]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13951]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13969]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [13987]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14005]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14023]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14041]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14059]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14077]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14095]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14113]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14131]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14149]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14167]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14185]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14203]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14221]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14239]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14257]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14275]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14293]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14311]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14329]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14347]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14365]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14383]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14401]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14419]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14437]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14455]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14473]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14491]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14509]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14527]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14545]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14563]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14581]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14599]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14617]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14635]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14653]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14671]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14689]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14707]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14725]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14743]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14761]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14779]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14797]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14815]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14833]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14851]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14869]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14887]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14905]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14923]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14941]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14959]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14977]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [14995]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15013]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15031]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15049]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15067]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15085]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15103]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15121]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15139]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15157]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15175]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15193]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15211]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15229]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15247]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15265]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15283]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15301]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15319]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15337]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15355]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15373]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15391]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15409]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15427]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15445]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15463]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15481]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15499]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15517]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15535]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15553]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15571]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15589]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15607]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15625]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15643]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15661]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15679]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15697]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15715]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15733]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15751]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15769]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15787]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15805]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15823]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15841]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15859]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15877]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15895]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15913]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15931]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15949]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15967]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [15985]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16003]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16021]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16039]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16057]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16075]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16093]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16111]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16129]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16147]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16165]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16183]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16201]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16219]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16237]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16255]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16273]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16291]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16309]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16327]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16345]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16363]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16381]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16399]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16417]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16435]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16453]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16471]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16489]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16507]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16525]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16543]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16561]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16579]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16597]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16615]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16633]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16651]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16669]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16687]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16705]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16723]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16741]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16759]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16777]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16795]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16813]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16831]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16849]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16867]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16885]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16903]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16921]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16939]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16957]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16975]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [16993]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17011]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17029]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17047]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17065]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17083]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17101]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17119]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17137]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17155]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17173]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17191]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17209]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17227]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17245]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17263]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17281]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17299]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17317]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17335]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17353]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17371]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17389]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17407]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17425]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17443]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17461]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17479]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17497]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17515]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17533]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17551]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17569]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17587]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17605]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17623]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17641]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17659]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17677]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17695]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17713]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17731]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17749]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17767]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17785]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17803]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17821]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17839]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17857]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17875]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17893]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17911]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17929]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17947]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17965]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [17983]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18001]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18019]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18037]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18055]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18073]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18091]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18109]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18127]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18145]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18163]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18181]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18199]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18217]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18235]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18253]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18271]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18289]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18307]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18325]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18343]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18361]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18379]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18397]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18415]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18433]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18451]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18469]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18487]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18505]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18523]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18541]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18559]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18577]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18595]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18613]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18631]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18649]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18667]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18685]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18703]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18721]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18739]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18757]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18775]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18793]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18811]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18829]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18847]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18865]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18883]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18901]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18919]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18937]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18955]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18973]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [18991]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [19009]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [19027]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [19045]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [19063]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [19081]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [19099]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [19117]   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## [19135]   0   0   0   0
#Sumar las columnas para obterner cada término.

conteo_total <- colSums(as.matrix(dtm))

#Ordenar y mostrar los términos más comunes.
terminos_comunes <- sort(conteo_total, decreasing = TRUE)
head(terminos_comunes, 50) #Mostrar los 50 términos más comunes. 
##        que        los        del        con        por       para presidente 
##      11997       5126       3485       2997       2903       2650       2398 
##        las        una       pero        más     porque      lópez     manuel 
##       2180       2127       1734       1662       1636       1465       1443 
##     andrés       como       está    también        hay        eso    obrador 
##       1434       1410       1289       1268       1262       1191       1165 
##        muy         sí       este        mil        var       todo        qué 
##       1150       1143       1102       1035       1035        910        900 
##   entonces        son      vamos       esto     méxico      todos      tiene 
##        863        859        848        839        782        774        773 
##        nos      están       aquí       esta       pues   gobierno        ver 
##        760        729        726        710        692        674        630 
##        fue      bueno        ahí   millones    estamos  dimension     estado 
##        610        605        598        588        587        575        566 
##      sobre 
##        563
#Instalar el paquete wordcloud
library(wordcloud)
## Loading required package: RColorBrewer
#Crear la nube de palabras. 
wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50, max.words =100, random.order =FALSE)

#Nuestra nube tiene muchas palabras que son demasiado comunes y generan ruido en nuestro analisis, Estas palabras incluyen articulos, preposiciones y pronombres, entre otros, que aparecen frecuentemente y que no agregan significado. 

library(tm)
##eliminar stopwords de nuestro corpus.Stop words son el, los, las, etc etc.
corpus<-tm_map(corpus, removeWords, stopwords("es"))
## Warning in tm_map.SimpleCorpus(corpus, removeWords, stopwords("es")):
## transformation drops documents
#Creamos el nuevo dtm

dtm<- DocumentTermMatrix(corpus)
inspect(dtm)
## <<DocumentTermMatrix (documents: 23, terms: 18673)>>
## Non-/sparse entries: 66833/362646
## Sparsity           : 84%
## Maximal term length: 596
## Weighting          : term frequency (tf)
## Sample             :
##     Terms
## Docs andrés entonces lópez manuel méxico mil obrador presidente vamos var
##   1     112       47   115    111     35  43     111        170    23  45
##   12     71       32    73     71     33  91      71        129    34  45
##   13     41       64    45     41     20  80      44         67    45  45
##   15     54       34    53     53     32  28      11         95    38  45
##   17     46       37    50     46     33 116      46         91    35  45
##   19     63       29    63     64     35  35      10        114    30  45
##   20     58       51    58     58     30  59      58        118    31  45
##   21     75       30    78     78     24  55      12        120    33  45
##   23     84       64    88     84     55  33      86        112    50  45
##   5      46       58    47     47     26  79      46        105    38  45
conteo_total <- colSums(as.matrix(dtm))
terminos_comunes <- sort(conteo_total, decreasing = TRUE)
head(terminos_comunes, 100) #Mostrar los 100 términos más comunes. 
##      presidente           lópez          manuel          andrés         obrador 
##            2398            1465            1443            1434            1165 
##             mil             var        entonces           vamos          méxico 
##            1035            1035             863             848             782 
##            aquí            pues        gobierno             ver           bueno 
##             726             692             674             630             605 
##             ahí        millones       dimension           ahora           pesos 
##             598             588             575             548             545 
##             dos            cómo          pueblo           gente             así 
##             533             482             439             432             429 
##            caso          ciento             van        function           hacer 
##             419             416             400             391             388 
##             ser            bien            null           usted            días 
##             375             370             368             362             357 
##            país        pagetype           poder           señor            años 
##             352             345             342             342             337 
##             año          libros gagobtrackerset            tren            hace 
##             330             323             322             317             313 
##           puede        nacional     información            tres         gracias 
##             310             308             304             300             297 
##             hoy    interlocutor            tema           tener           decir 
##             295             291             287             283             282 
##          agosto          prensa           todas             voy          manera 
##             280             274             274             274             269 
##          tiempo           parte        pregunta       seguridad      importante 
##             265             264             263             262             261 
##          además           luego           mismo        personas         gtagset 
##             259             259             258             256             253 
##         general     conferencia        haciendo           nuevo            sólo 
##             252             247             247             246             236 
##     presidencia          buenos           salud          ciudad          unidos 
##             234             231             229             223             223 
##             día         versión         siempre         trabajo   estenográfica 
##             222             220             219             209             208 
##            toda           mejor            cada            creo            gran 
##             206             202             200             195             195 
##          medios          muchas         ramírez          social           menos 
##             195             195             188             187             186 
##         pública            agua      secretaría         incluso           jesús 
##             183             183             180             179             178
#Instalar el paquete wordcloud
library(wordcloud)

#Crear la nube de palabras. 
wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50, max.words =100, random.order =FALSE)

#Eliminar palabras específicas
palabras_eliminar <- c("null", "gtagset", "function", "var", "pagetipe", "presidente","interlocutor", "andrés", "manuel", "lópez", "obrador", "gagobtrackerset", "pagetype", "sino", "entonces", "pues", "ahí", "sólo", "hoy", "voy", "agosto", "estenográfica", "conferencia", "pagesgroup", "interlocutora")
corpus<- tm_map(corpus, removeWords, palabras_eliminar)
## Warning in tm_map.SimpleCorpus(corpus, removeWords, palabras_eliminar):
## transformation drops documents
#"Crear la nueva dtm}
dtm<- DocumentTermMatrix(corpus)

#Ver la matriz
inspect(dtm)
## <<DocumentTermMatrix (documents: 23, terms: 18617)>>
## Non-/sparse entries: 66237/361954
## Sparsity           : 85%
## Maximal term length: 596
## Weighting          : term frequency (tf)
## Sample             :
##     Terms
## Docs ahora aquí bueno dimension gobierno méxico mil millones vamos ver
##   1     33   27    29        25       32     35  43       31    23  48
##   12    25   57    30        25       25     33  91       38    34  35
##   13    31   29    29        25       19     20  80       53    45  35
##   15    24   33    24        25       49     32  28       18    38  27
##   17    23   29    25        25       38     33 116       36    35  15
##   19    22   30    33        25       28     35  35       19    30  27
##   20    28   20    22        25       18     30  59       63    31  28
##   21    17   39    34        25       35     24  55       23    33  36
##   23    31   42    46        25       28     55  33       19    50  28
##   5     23   40    17        25       36     26  79       84    38  38
#Sumar las columnas para obtener el conteo total de cada término.
conteo_total<- colSums(as.matrix(dtm))

#Ordenar y mostrar los términos más comunes
terminos_comunes<- sort(conteo_total,decreasing=TRUE)
head(terminos_comunes,100) #Mostrar los 100 términos más comunes. 
##          mil        vamos       méxico         aquí     gobierno          ver 
##         1035          848          782          726          674          630 
##        bueno     millones    dimension        ahora        pesos          dos 
##          605          588          575          548          545          533 
##         cómo       pueblo        gente          así         caso       ciento 
##          482          439          432          429          419          416 
##          van        hacer          ser         bien        usted         días 
##          400          388          375          370          362          357 
##         país        poder        señor         años          año       libros 
##          352          342          342          337          330          323 
##         tren         hace        puede     nacional  información         tres 
##          317          313          310          308          304          300 
##      gracias         tema        tener        decir       prensa        todas 
##          297          287          283          282          274          274 
##       manera       tiempo        parte     pregunta    seguridad   importante 
##          269          265          264          263          262          261 
##       además        luego        mismo     personas      general     haciendo 
##          259          259          258          256          252          247 
##        nuevo  presidencia       buenos        salud       ciudad       unidos 
##          246          234          231          229          223          223 
##          día      versión      siempre      trabajo         toda        mejor 
##          222          220          219          209          206          202 
##         cada         creo         gran       medios       muchas      ramírez 
##          200          195          195          195          195          188 
##       social        menos      pública         agua   secretaría      incluso 
##          187          186          183          183          180          179 
##        jesús         maya     política       dinero intervención    siguiente 
##          178          178          177          175          175          173 
##      acuerdo trabajadores      empresa        quién      ejemplo         ayer 
##          171          170          169          169          167          166 
##     empresas    república      proceso       seguir     centavos         allá 
##          166          166          164          163          161          156 
##       cuatro    inversión      conocer      jóvenes 
##          155          155          154          154
#Crear la nube de palabras.
wordcloud(names(terminos_comunes), terminos_comunes, min.freq =50, max.words = 100, random.order = FALSE)
## Warning in wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50,
## : intervención could not be fit on page. It will not be plotted.
## Warning in wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50,
## : siguiente could not be fit on page. It will not be plotted.
## Warning in wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50,
## : trabajadores could not be fit on page. It will not be plotted.
## Warning in wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50,
## : empresa could not be fit on page. It will not be plotted.
## Warning in wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50,
## : ejemplo could not be fit on page. It will not be plotted.
## Warning in wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50,
## : empresas could not be fit on page. It will not be plotted.
## Warning in wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50,
## : proceso could not be fit on page. It will not be plotted.
## Warning in wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50,
## : centavos could not be fit on page. It will not be plotted.
## Warning in wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50,
## : cuatro could not be fit on page. It will not be plotted.
## Warning in wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50,
## : conocer could not be fit on page. It will not be plotted.
## Warning in wordcloud(names(terminos_comunes), terminos_comunes, min.freq = 50,
## : jóvenes could not be fit on page. It will not be plotted.

#Si tienes un DocumentTermMatrix (DTM) en R, puedes buscar la frecuencia de una palabra específica a través de todos los documentos de la siguiente manera:

#Es la palabra que buscarás.
palabra <- "vamos"

#Obtener el índice de la columna que corresponde a la palabra que buscas
indice_palabra <- which(colnames(dtm) == palabra)

#Si la palabra no se encuentra en la DTM, indice_palabra será integer(0)
if (length(indice_palabra) == 0) {
  print(paste("La palabra", palabra, "no se encuentra en la DTM"))
}else {
  #Obtener la columna que corresponde a esa palabra y sumarla para obtener el total de ocurrencias.
  frecuencia_total <- sum(as.matrix(dtm[, indice_palabra]))
  
  print(paste("La palabra", palabra, "aparece", frecuencia_total, "veces en todos los documentos."))
}
## [1] "La palabra vamos aparece 848 veces en todos los documentos."
#Creamos un df para ver los 100 terminos más comunes junto con su frecuencia.

df_terminos_comunes <- data.frame(termino = terminos_comunes)
#show(df_terminos_comunes)
head(df_terminos_comunes, 100)
##              termino
## mil             1035
## vamos            848
## méxico           782
## aquí             726
## gobierno         674
## ver              630
## bueno            605
## millones         588
## dimension        575
## ahora            548
## pesos            545
## dos              533
## cómo             482
## pueblo           439
## gente            432
## así              429
## caso             419
## ciento           416
## van              400
## hacer            388
## ser              375
## bien             370
## usted            362
## días             357
## país             352
## poder            342
## señor            342
## años             337
## año              330
## libros           323
## tren             317
## hace             313
## puede            310
## nacional         308
## información      304
## tres             300
## gracias          297
## tema             287
## tener            283
## decir            282
## prensa           274
## todas            274
## manera           269
## tiempo           265
## parte            264
## pregunta         263
## seguridad        262
## importante       261
## además           259
## luego            259
## mismo            258
## personas         256
## general          252
## haciendo         247
## nuevo            246
## presidencia      234
## buenos           231
## salud            229
## ciudad           223
## unidos           223
## día              222
## versión          220
## siempre          219
## trabajo          209
## toda             206
## mejor            202
## cada             200
## creo             195
## gran             195
## medios           195
## muchas           195
## ramírez          188
## social           187
## menos            186
## pública          183
## agua             183
## secretaría       180
## incluso          179
## jesús            178
## maya             178
## política         177
## dinero           175
## intervención     175
## siguiente        173
## acuerdo          171
## trabajadores     170
## empresa          169
## quién            169
## ejemplo          167
## ayer             166
## empresas         166
## república        166
## proceso          164
## seguir           163
## centavos         161
## allá             156
## cuatro           155
## inversión        155
## conocer          154
## jóvenes          154