Mensaje Oculto Año Nuevo 2022

Sabemos que la pandemia del Covid-19 nos tiene ya dos años celebrando a la distancia, estando más lejos de lo que quisiéramos de todos los que amamos. Este 2022, tenemos un mensaje oculto en código de R. Solo queremos que sepas que esto nos sale del corazón, por que nuestros alumnos, tú, eres realmente importante en este mundo. ¿Quieres saber cuál es el mensaje? Comencemos con el tutorial.

Librerías

Debemos instalar esta librería para trabajar con la conversión de números a carateres de texto. Si ya la tienes instalada, obvia este paso.

# Instalar
install.packages("DescTools")

Nuestro mensaje para ti

charToRaw('LA FAMILIA DEL INSTITUTO DE CIENCIAS ANTONIO BRACK DESEA QUE ESTE AÑO NUEVO TE COLME DE MUCHA FELICIDAD') |>
  as.numeric() |>
  c(-4998)|>
  sum() |>
  paste(DescTools::AscToChar(c(83, 69, 82, 193, 32, 69, 76, 32, 77, 69, 74, 79, 
                               82, 32, 65, 209, 79, 32, 68, 69, 32, 84, 79, 68, 
                               79, 83, 46, 32, 77, 65, 78, 84, 69, 78, 84, 69, 32, 
                               70, 73, 82, 77, 69, 32, 69, 78, 32, 84, 85, 83, 32, 
                               77, 69, 84, 65, 83, 32, 89, 32, 65, 77, 65, 32, 65, 
                               218, 78, 32, 77, 193, 83, 32, 65, 32, 84, 85, 83, 
                               32, 83, 69, 82, 69, 83, 32, 81, 85, 69, 82, 73, 68, 
                               79, 83, 44, 32, 76, 79, 83, 32, 81, 85, 69, 32, 69, 
                               83, 84, 193, 78, 32, 89, 32, 76, 79, 83, 32, 81, 
                               85, 69, 32, 84, 69, 32, 67, 85, 73, 68, 65, 78, 32, 
                               68, 69, 83, 68, 69, 32, 76, 69, 74, 79, 83, 46, 32, 
                               84, 69, 32, 68, 69, 83, 69, 65, 77, 79, 83, 32, 76, 
                               79, 32, 77, 69, 74, 79, 82, 32, 83, 73, 69, 77, 80, 
                               82, 69, 46, 32, 71, 82, 65, 67, 73, 65, 83, 32, 80, 
                               79, 82, 32, 80, 69, 82, 84, 69, 78, 69, 67, 69, 82, 
                               32, 65, 32, 78, 85, 69, 83, 84, 82, 65, 32, 70, 65, 
                               77, 73, 76, 73, 65, 46)))


#### Importante: - Asegúrate de tener la versión de RStudio adecuada para usar pipe nativo |>. Si no te funciona por no tener RStudio actualizado, usa el pipe de tidyverse. Activa primero con library(tidyverse) y luego usa el pipe %>%.

Escríbe en nuestro post de Facebook si descubriste el mensaje, y déjanos tus deseos para todos este 2022.

Crea tu propio mensaje

Es tu turno. Para codificar un mensaje en vectores numéricos en R, puedes hacer la conversión de la cadena de texto usado:

# Convertir "Mi mensaje misterioso" a vector numérico
mensajeCodificado <- DescTools::CharToAsc("Mi mensaje misterioso")
print(mensajeCodificado)
##  [1]  77 105  32 109 101 110 115  97 106 101  32 109 105 115 116 101 114 105 111
## [20] 115 111
# Ahora convierte el mensaje codificado a texto
DescTools::AscToChar(mensajeCodificado)
## [1] "Mi mensaje misterioso"

Información de la Sesión

sessionInfo()
## R version 4.1.1 (2021-08-10)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 22000)
## 
## Matrix products: default
## 
## locale:
## [1] LC_COLLATE=English_United States.1252 
## [2] LC_CTYPE=English_United States.1252   
## [3] LC_MONETARY=English_United States.1252
## [4] LC_NUMERIC=C                          
## [5] LC_TIME=English_United States.1252    
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## loaded via a namespace (and not attached):
##  [1] Rcpp_1.0.7        rstudioapi_0.13   knitr_1.36        magrittr_2.0.1   
##  [5] MASS_7.3-54       lattice_0.20-45   R6_2.5.1          rlang_0.4.12     
##  [9] fastmap_1.1.0     stringr_1.4.0     tools_4.1.1       grid_4.1.1       
## [13] rootSolve_1.8.2.3 data.table_1.14.2 xfun_0.27         e1071_1.7-9      
## [17] jquerylib_0.1.4   class_7.3-19      htmltools_0.5.2   DescTools_0.99.43
## [21] yaml_2.2.1        digest_0.6.28     bookdown_0.24     Matrix_1.3-4     
## [25] sass_0.4.0        evaluate_0.14     rmarkdown_2.11    blogdown_1.5     
## [29] proxy_0.4-26      stringi_1.7.5     compiler_4.1.1    bslib_0.3.1      
## [33] Exact_3.0         boot_1.3-28       gld_2.6.2         expm_0.999-6     
## [37] lmom_2.8          jsonlite_1.7.2    mvtnorm_1.1-3

Para más información visita:

Irwing S. Saldaña
Irwing S. Saldaña
Director ejecutivo & Profesor investigador