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.2 (2021-11-01)
## 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.37 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.2 grid_4.1.2
## [13] rootSolve_1.8.2.3 data.table_1.14.2 xfun_0.29 e1071_1.7-9
## [17] jquerylib_0.1.4 class_7.3-19 htmltools_0.5.2 DescTools_0.99.44
## [21] yaml_2.2.1 digest_0.6.28 bookdown_0.24 Matrix_1.4-0
## [25] sass_0.4.0 evaluate_0.14 rmarkdown_2.11 blogdown_1.7
## [29] proxy_0.4-26 stringi_1.7.5 compiler_4.1.2 bslib_0.3.1
## [33] Exact_3.1 boot_1.3-28 gld_2.6.4 expm_0.999-6
## [37] lmom_2.8 jsonlite_1.7.2 mvtnorm_1.1-3Para más información visita: