*           if(cond) expr
*    if(cond) cons.expr  else  alt.expr
************************
*Ejemplo con una moneda
************************
gane<-0
m1<- sample(0:1,1)
if(m1==1)gane<-5
gane

*************************
*Ejemplo con dos monedas
*************************

m2<-sample(0:1,2,T)
  if(sum(m2)==0)gane<--10 else {
 if(sum(m2)==1) gane<-5 else gane<-10}
gane


**************************
*Repito muchas veces
**************************

acum<-0
for(i in 1:10)

{ m<-sample(0:1,2,T)
  if(sum(m)==0)gane<--10 else {
 if(sum(m)==1) gane<-5 else gane<-10}

acum<-acum+gane
}
acum

*************************
*Lo hago com una funciòn
*****************************

Ganancia<-function(n)

{acum<-0
for(i in 1:n)

{ m<-sample(0:1,2,T)
  if(sum(m)==0)gane<--10 else {
 if(sum(m)==1) gane<-5 else gane<-10}

acum<-acum+gane
}
acum}

******Uso de while****
Ganancia2<-function(n)
{acum<-0
while(acum<=n)
{ m<-sample(0:1,2,T)
  if(sum(m)==0)gane<--10 else {
 if(sum(m)==1) gane<-5 else gane<-10}

acum<-acum+gane
}
acum}

* Cuantas veces necesitè jugar**

Ganancia3<-function(n)
{acum<-0
contador<-0
while(acum<=n)
{ m<-sample(0:1,2,T)
  if(sum(m)==0)gane<--10 else {
 if(sum(m)==1) gane<-5 else gane<-10}
acum<-acum+gane
contador<-contador+1
}
list(Jugò=contador,Ganò=acum)}


**************************
*Frecuencia de 2 monedas
**************************

gane<-rep(0,100)
for (i in 1:100){
m<-sample(0:1,2,T)
  if(sum(m)==0)gane[i]<--10 else {
 if(sum(m)==1) gane[i]<-5 else gane[i]<-10}
}
hist(gane,freq=!T)
summary(gane)