Temas

Hola a todos¡¡No se si el tema va aqui pero os cuento mi duda por si hay alguien me pueda ayudar.
Estoy aprendiendo a programar con R (mi dominio es basico del todo )  Programando y simulando sistemas de apuestas como la Martingala,D´Alambert y creo que los hice bien pero mi duda surge al intentar hacer el sistema de fibonacci
En todos los sistemas anteriores pretendo siempre obtener en cada apuesta una ganacia >= dos veces lo invertido,es decir, si apuesto 1 unidad pues ganar 2 unidades.

Aqui os pongo mi sistema de Martingala:

probabilidad=0.5

objectivo=20

saldo.vector=rep(0,1000)
n.carreras.vector=rep(0,1000)
resultado.vector=rep(0,1000)

for (i in 1:1000){

saldo=10
apuesta=1
saldo=saldo-apuesta
n.carreras=0

while( saldo<obxectivo & saldo>0 ){
    carreira=rbinom(1,1,p)
    n.carreras=n.carreras+1
    if(carrera==1){
            saldo=saldo+2*apuesta
            if (saldo == objectivo) break
            apuesta=1
            saldo=saldo-apuesta
        }else{
            apuesta=2*apuesta
            saldo=saldo-apuesta
            }
    }
   
if (saldo>=objectivo){resultado.vector=1}

if(saldo<0){saldo=saldo+apuesta}

n.carreras.vector=n.carreras
saldo.vector=saldo


}

Mi duda es a la hora de hacer lo mismo pero con fibonacci y lo que pretendo es cada vez que gane apostar siempre lo mismo,es decir,1 unidad y cuando pierda pues en la siguiente apuesta ir apostando los numeros de la serie de fibonacci (1,2,3,5,8,13,21,..)
EJEMPLO:
1ªapuesta: apuesto 1 unidad   resultado:apuesta ganada
2ªapuesta:apuesto 1 unidad   resultado:apuesta ganada
3ªapuesta:apuesto 1 unidad     resultado:apuesta perdida
4ª apuesta:apuesto 2unidades   resultado:apuesta perdida
5ª apuesta:apuesto 3 unidades   resultado:apuesta perdida
6ª apuesta:apuesto 5 unidades ...............

Espero que me haya explicado bien.
Si alguien me puede ayudar con esto.
gracias