Aquí adjudico una fórmula para intentar replicar el método de la martingala (apostar una cantidad específica de dinero e ir doblando la apuesta si fallamos en un intento de recuperar la pérdida; por ejemplo, si se tienen 1000 euros y se apuestan 200, de acertar, tendremos 1200 euros; de perder y quedar en 800 euros, doblaremos la apuesta a 400, resultando en 1200 euros y seguir apostando de 200 en 200; de fallar y quedar en 400, tendríamos que doblar la apuesta una vez más (esta vez a 800) para recuperar las pérdidas, y por el impedimento de no poder apostar dinero que no se tiene, el proceso termina, al igual que si nos quedáramos sin dinero).
Esta es la sintaxis usada.
Nueva_Martingala <- function(b,a,n,p){
for(i in 1:n){
dinero <- b
cantidad_apostada <- a
end_Sim <- FALSE
while(!end_Sim){
color <- runif(1,0,1)
if(color < p){
dinero <- dinero + cantidad_apostada
cantidad_apostada <- a
} else {
dinero <- dinero - cantidad_apostada
cantidad_apostada <- a*2
} if(dinero < cantidad_apostada|i==500)
end_Sim <- TRUE
}
} return(dinero)
}
Y al intentar ejecutarla, me salen los consiguientes errores:
Error: unexpected 'if' in:
" cantidad_apostada <- a*2
} if"
> end_Sim <- TRUE
> }
Error: unexpected '}' in " }"
> } return(dinero)
Error: unexpected '}' in " }"
> }
Error: unexpected '}' in "}"
¿Hay algo que esté pasando por alto? ¿Existe un bucle distinto que me permita hacer mejor la tarea en cuestión? Mi gratitud por adelantado.