“Musica”

Jingle Bells

Instalar Paquetes para producir la musica

#install.packages("devtools")
#install.packages("Rmusic")
#devtools::install_github("keithmcnulty/Rmusic", build_vignettes = TRUE)

Hacer el Pitch de la canción

jbells_pitch <- paste(
  "E E E",
  "E E E",
  "E G C D",
  "E",
  "F F F F",
  "F E E E",
  "E D D E",
  "D G",
  "E E E",
  "E E E",
  "E G C D",
  "E",
  "F F F F",
  "F E E E E",
  "G G F D",
  "C",
  "G3 E D C",
  "G3",
  "G3 G3 G3 E D C",
  "A3",
  "A3 F E D",
  "B3",
  "G G F D",
  "E",
  "G3 E D C",
  "G3",
  "G3 E D C",
  "A3 A3", 
  "A3 F E D",
  "G G G G A G F D",
  "C C5 B A G F G",
  "E E E G C D",
  "E E E G C D",
  "E F G A C E D F",
  "E C D E F G A G",
  "F F F F F F",
  "F E E E E E",
  "E D D D D E",
  "D D E F G F E D",
  "E E E G C D",
  "E E E G C D",
  "E F G A C E D F",
  "E C D E F G A G",
  "F F F F F F",
  "F E E E E E",
  "G C5 B A G F E D",
  "C C E G C5"
)


jbells_pitch <- strsplit(jbells_pitch, " ")[[1]]

Duración de la Canción

#jbells_duration <- c(
 " 1, 1, 2, 
  1, 1, 2, 
  1, 1, 1.5, 0.5, 
  4, 
  1, 1, 1, 1, 
  1, 1, 1, 1, 
  1, 1, 1, 1,
  2, 2,
  1, 1, 2, 
  1, 1, 2, 
  1, 1, 1.5, 0.5, 
  4, 
  1, 1, 1, 1, 
  1, 1, 1, 0.5, 0.5, 
  1, 1, 1, 1,
  4,
  1, 1, 1, 1, 
  3, .5, .5, 
  1, 1, 1, 1, 
  4,
  1, 1, 1, 1, 
  4,
  1, 1, 1, 1, 
  4,
  1, 1, 1, 1, 
  4,
  1, 1, 1, 1, 
  3, 1,
  1, 1, 1, 1,
  1, 1, 1, 1, 
  1, 1, 1, 1, 
  1, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
  1, 1, 0.5, 0.5, 0.5, 0.5, 
  1, 1, 0.5, 0.5, 0.5, 0.5,
  0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
  0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
  1, 0.5, 0.5, 1, 0.5, 0.5, 
  1, 0.5, 0.5, 1, 0.5, 0.5, 
  1, 0.5, 0.5, 0.5, 0.5, 1,
  1, 0.33, 0.33, 0.33, 1, 0.33, 0.33, 0.33,
  1, 1, 0.5, 0.5, 0.5, 0.5, 
  1, 1, 0.5, 0.5, 0.5, 0.5,
  0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
  0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
  1, 0.5, 0.5, 1, 0.5, 0.5, 
  1, 0.5, 0.5, 1, 0.5, 0.5, 
  0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
  1, 0.33, 0.33, 0.33, 2
)"

## [1] " 1, 1, 2, \n  1, 1, 2, \n  1, 1, 1.5, 0.5, \n  4, \n  1, 1, 1, 1, \n  1, 1, 1, 1, \n  1, 1, 1, 1,\n  2, 2,\n  1, 1, 2, \n  1, 1, 2, \n  1, 1, 1.5, 0.5, \n  4, \n  1, 1, 1, 1, \n  1, 1, 1, 0.5, 0.5, \n  1, 1, 1, 1,\n  4,\n  1, 1, 1, 1, \n  3, .5, .5, \n  1, 1, 1, 1, \n  4,\n  1, 1, 1, 1, \n  4,\n  1, 1, 1, 1, \n  4,\n  1, 1, 1, 1, \n  4,\n  1, 1, 1, 1, \n  3, 1,\n  1, 1, 1, 1,\n  1, 1, 1, 1, \n  1, 1, 1, 1, \n  1, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,\n  1, 1, 0.5, 0.5, 0.5, 0.5, \n  1, 1, 0.5, 0.5, 0.5, 0.5,\n  0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,\n  0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,\n  1, 0.5, 0.5, 1, 0.5, 0.5, \n  1, 0.5, 0.5, 1, 0.5, 0.5, \n  1, 0.5, 0.5, 0.5, 0.5, 1,\n  1, 0.33, 0.33, 0.33, 1, 0.33, 0.33, 0.33,\n  1, 1, 0.5, 0.5, 0.5, 0.5, \n  1, 1, 0.5, 0.5, 0.5, 0.5,\n  0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,\n  0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,\n  1, 0.5, 0.5, 1, 0.5, 0.5, \n  1, 0.5, 0.5, 1, 0.5, 0.5, \n  0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,\n  1, 0.33, 0.33, 0.33, 2\n)"

#Rmusic::play_music(jbells_pitch, jbells_duration)

#Rmusic::save_music(jbells_pitch, jbells_duration, output_file = "jbells.wav")

Conclusión

Como sabemos bien, R studio se enfoca en la ciencia de Datos y analisis de base de datos. Ademas tiene un fuerte impacto en otras areas que ayudan mucho a la toma de decisiónes no solamente en el Area de estadistica o de ciencias y como podemos probarlo, tiene muchas más funciones y una de ellas que es practica y divertida es el hacer musica.