# LABORATORIO DIRIGIDO 2 - PREGUNTA 6
# Mili y César están jugando uno contra otro. Una moneda es lanzada repetidamente. Cada vez que
# sale cara Mili gana diez soles,dado por César y cada vez que sale sello, Mili pierde 10 soles que le da
# a César. Utiliza R, para simular este juego 100 veces.
#
# > x<- sample (c(2, -2), 100, replace = TRUE)
#
# y calcula
#
# (a) El número de veces que Mili está por delante en esos 100 lanzamientos.
# (b) Cuánto Mili a ganado y perdido.
x<- sample(c(2, -2), 100, replace = TRUE)
conteoMili <- sum(x==2)
gananciaMili <- conteoMili*100
perdidaMili <- (100-conteoMili)*(-10)
print("a) El número de veces que Mili está por delante es: ")
print(conteoMili)
print("b) Mili ha ganando: ")
print(gananciaMili)
print("Mili ha perdido:")
print(perdidaMili)
