Desafío 1.6.1

Ahora que tienes los resultados del poker y la ruleta en un vector con elementos apropiadamente nombrados, puedes empezar a hacer análisis.

Veremos como encontrar la siguiente información:

Para saber lo que nos proponemos tenemos que hacer cálculos aritméticos con los vectores. Cuando sumamos dos vectores en R, éste hace la suma elemento por elemento, por ejemplo las siguientes líneas de código son completamente equivalentes:

c(1, 2, 3) + c(4, 5, 6)
c(1 + 4, 2 + 5, 3 + 6)
c(5, 7, 9)

Primero experimentemos sumando!

Instrucciones

  • Toma la suma de las variables vector_A y vector_B y asígnala a vector_total.

  • Mira el resultado imprimiendo el valor de vector_total en la consola.

eyJsYW5ndWFnZSI6InIiLCJwcmVfZXhlcmNpc2VfY29kZSI6IiMgbm8gcGVjIiwic2FtcGxlIjoidmVjdG9yX0EgPC0gYygxLCAyLCAzKVxudmVjdG9yX0IgPC0gYyg0LCA1LCA2KVxuXG4jIEFzaWduYSBsYSBzdW1hIGRlIHZlY3Rvcl9BIHkgdmVjdG9yX0JcbnZlY3Rvcl90b3RhbCA8LSBcbiAgXG4jIEltcHJpbWUgZWwgdmVjdG9yX3RvdGFsIGEgbGEgY29uc29sYVxudmVjdG9yX3RvdGFsIiwic29sdXRpb24iOiJ2ZWN0b3JfQSA8LSBjKDEsIDIsIDMpXG52ZWN0b3JfQiA8LSBjKDQsIDUsIDYpXG5cbiMgQXNpZ25hIGxhIHN1bWEgZGUgdmVjdG9yX0EgeSB2ZWN0b3JfQlxudmVjdG9yX3RvdGFsIDwtIFxuICBcbiMgSW1wcmltZSBlbCB2ZWN0b3JfdG90YWwgYSBsYSBjb25zb2xhXG52ZWN0b3JfdG90YWwiLCJzY3QiOiJtc2cgPC0gXCJEbyBub3QgY2hhbmdlIHRoZSBjb250ZW50cyBvZiBgQV92ZWN0b3JgIG9yIGBCX3ZlY3RvcmAhXCJcbnRlc3Rfb2JqZWN0KFwiQV92ZWN0b3JcIiwgdW5kZWZpbmVkX21zZyA9IG1zZywgaW5jb3JyZWN0X21zZyA9IG1zZylcbnRlc3Rfb2JqZWN0KFwiQl92ZWN0b3JcIiwgdW5kZWZpbmVkX21zZyA9IG1zZywgaW5jb3JyZWN0X21zZyA9IG1zZylcbnRlc3Rfb2JqZWN0KFwidG90YWxfdmVjdG9yXCIsIGluY29ycmVjdF9tc2cgPSBcIk1ha2Ugc3VyZSB0aGF0IGB0b3RhbF92ZWN0b3JgIGNvbnRhaW5zIHRoZSBzdW0gb2YgYEFfdmVjdG9yYCBhbmQgYEJfdmVjdG9yYC5cIilcbnRlc3Rfb3V0cHV0X2NvbnRhaW5zKFwidG90YWxfdmVjdG9yXCIsIGluY29ycmVjdF9tc2cgPSBcIkRvbid0IGZvcmdldCB0byBwcmludCBvdXQgYHRvdGFsX3ZlY3RvcmAhIFNpbXBseSB3cml0ZSBgdG90YWxfdmVjdG9yYCBvbiBhIG5ldyBsaW5lLlwiKVxuc3VjY2Vzc19tc2coXCJHb29kIGpvYiEgQ29udGludWUgdG8gdGhlIG5leHQgZXhlcmNpc2UuXCIpIiwiaGludCI6IiNVc2UgdGhlIDxjb2RlPis8L2NvZGU+IG9wZXJhdG9yIHRvIHN1bSA8Y29kZT5BX3ZlY3RvcjwvY29kZT4gYW5kIDxjb2RlPkJfdmVjdG9yPC9jb2RlPi4gVXNlIDxjb2RlPiZsdDstPC9jb2RlPiB0byBhc3NpZ24gdGhlIHJlc3VsdCB0byA8Y29kZT50b3RhbF92ZWN0b3I8L2NvZGU+LiJ9

Desafío 1.6.2

¿Entendiste como R realiza aritmética con los vectores?

Ya es hora de tener uno de esos Ferraris en el garage! Primero, hay que saber cuál fue la ganancia/pérdida por cada día. La ganancia neta de cada día es la suma de las ganancias/pérdidas que hiciste en el poker y en la ruleta.

En R, este cálculo es simplemente la suma de vector_ruleta y vector_poker.

c(1, 2, 3) + c(4, 5, 6)
c(1 + 4, 2 + 5, 3 + 6)
c(5, 7, 9)

Primero experimentemos sumando!

Instrucciones

  • Asigna a la variable total_diario lo que ganaste/perdiste cada día en total (poker y ruleta combinado).

  • Nombra los elementos de total_diario utilizando vector_dias.

  • Imprime total_diario en la consola para que puedas ver tus resultados totales en cada día de la semana. Cuáles fueron los días buenos y los días malos?

eyJsYW5ndWFnZSI6InIiLCJwcmVfZXhlcmNpc2VfY29kZSI6IiMgbm8gcGVjIiwic2FtcGxlIjoiIyBSZXN1bHRhZG9zIGVuIGxhIG1lc2EgZGUgcG9rZXIgZW4gbGEgc2VtYW5hXG52ZWN0b3JfcG9rZXIgPC0gYygxNDAsIC01MCwgMjAsIC0xMjAsIDI0MClcblxuIyBSZXN1bHRhZG9zIGVuIGxhIHJ1bGV0YSBlbiBsYSBzZW1hbmFcbnZlY3Rvcl9ydWxldGEgPC0gYygtMjQsIC01MCwgMTAwLCAtMzUwLCAxMClcblxuIyBEYW5kbyBub21icmVzIGEgdmVjdG9yX3Bva2VyIHkgdmVjdG9yX3J1bGV0YVxudmVjdG9yX2RpYXMgPC0gYyhcIkx1bmVzXCIsIFwiTWFydGVzXCIsIFwiTWllcmNvbGVzXCIsIFwiSnVldmVzXCIsIFwiVmllcm5lc1wiKVxubmFtZXModmVjdG9yX3Bva2VyKSA8LSB2ZWN0b3JfZGlhc1xubmFtZXModmVjdG9yX3J1bGV0YSkgPC0gdmVjdG9yX2RpYXNcblxuIyBDYWxjdWxhbmRvIGxhcyBnYW5hbmNpYXMvcFx1MDBlOXJkaWRhcyBkaWFyaWFzOlxudG90YWxfZGlhcmlvIDwtIFxuICBcbiMgRGFuZG8gbm9tYnJlcyBhIHRvdGFsX2RpYXJpb1xubmFtZXModG90YWxfZGlhcmlvKSA8LSBcbiAgXG4jIEltcHJpbWUgdG90YWxfZGlhcmlvIGEgbGEgY29uc29sYSBwYXJhIHZlciB0dXMgcmVzdWx0YWRvcyBwb3IgZFx1MDBlZGEiLCJzb2x1dGlvbiI6IiMgUmVzdWx0YWRvcyBlbiBsYSBtZXNhIGRlIHBva2VyIGVuIGxhIHNlbWFuYVxudmVjdG9yX3Bva2VyIDwtIGMoMTQwLCAtNTAsIDIwLCAtMTIwLCAyNDApXG5cbiMgUmVzdWx0YWRvcyBlbiBsYSBydWxldGEgZW4gbGEgc2VtYW5hXG52ZWN0b3JfcnVsZXRhIDwtIGMoLTI0LCAtNTAsIDEwMCwgLTM1MCwgMTApXG5cbiMgRGFuZG8gbm9tYnJlcyBhIHZlY3Rvcl9wb2tlciB5IHZlY3Rvcl9ydWxldGFcbnZlY3Rvcl9kaWFzIDwtIGMoXCJMdW5lc1wiLCBcIk1hcnRlc1wiLCBcIk1pZXJjb2xlc1wiLCBcIkp1ZXZlc1wiLCBcIlZpZXJuZXNcIilcbm5hbWVzKHZlY3Rvcl9wb2tlcikgPC0gdmVjdG9yX2RpYXNcbm5hbWVzKHZlY3Rvcl9ydWxldGEpIDwtIHZlY3Rvcl9kaWFzXG5cbiMgQ2FsY3VsYW5kbyBsYXMgZ2FuYW5jaWFzL3BcdTAwZTlyZGlkYXMgZGlhcmlhczpcbnRvdGFsX2RpYXJpbyA8LSBcbiAgXG4jIERhbmRvIG5vbWJyZXMgYSB0b3RhbF9kaWFyaW9cbm5hbWVzKHRvdGFsX2RpYXJpbykgPC0gXG4gIFxuIyBJbXByaW1lIHRvdGFsX2RpYXJpbyBhIGxhIGNvbnNvbGEgcGFyYSB2ZXIgdHVzIHJlc3VsdGFkb3MgcG9yIGRcdTAwZWRhIiwic2N0IjoibXNnID0gXCJEbyBub3QgY2hhbmdlIGFueXRoaW5nIGFib3V0IHRoZSBkZWZpbml0aW9uIGFuZCBuYW1pbmcgb2YgYHBva2VyX3ZlY3RvcmAgYW5kIGByb3VsZXR0ZV92ZWN0b3JgLlwiXG50ZXN0X29iamVjdChcImRheXNfdmVjdG9yXCIsIHVuZGVmaW5lZF9tc2cgPSBtc2csIGluY29ycmVjdF9tc2cgPSBtc2cpXG50ZXN0X29iamVjdChcInBva2VyX3ZlY3RvclwiLCBlcV9jb25kaXRpb24gPSBcImVxdWFsXCIsIHVuZGVmaW5lZF9tc2cgPSBtc2csIGluY29ycmVjdF9tc2cgPSBtc2cpXG50ZXN0X29iamVjdChcInJvdWxldHRlX3ZlY3RvclwiLCBlcV9jb25kaXRpb24gPSBcImVxdWFsXCIsIHVuZGVmaW5lZF9tc2cgPSBtc2csIGluY29ycmVjdF9tc2cgPSBtc2cpXG5cbnRlc3Rfb2JqZWN0KFwidG90YWxfZGFpbHlcIiwgaW5jb3JyZWN0X21zZyA9IFwiTWFrZSBzdXJlIHRoYXQgeW91IGFzc2lnbiB0aGUgc3VtIG9mIGBwb2tlcl92ZWN0b3JgIGFuZCBgcm91bGV0dGVfdmVjdG9yYCB0byBgdG90YWxfZGFpbHlgLlwiKVxuXG5zdWNjZXNzX21zZyhcIkdyZWF0ISBDb250aW51ZSB0byB0aGUgbmV4dCBleGVyY2lzZS5cIikiLCJoaW50IjoiI1NpbWlsYXIgdG8gdGhlIHByZXZpb3VzIGV4ZXJjaXNlLCBhc3NpZ24gdGhlIHN1bSBvZiB0d28gdmVjdG9ycyB0byBhIG5ldyB2YXJpYWJsZSwgPGNvZGU+dG90YWxfZGFpbHk8L2NvZGU+LiJ9