hola comunidad estoy tratando de crear una función para valuar opciones pero estoy batallando mucho para guardar cada uno de los resultados de la variable price en la matriz "p", se supone que es una simulación de 52 semanas, agradeceria mucho si alguien sabe como puedo resolverlo o en que paso me equivoque
gracias y saludos
r <-rbinom(52,1,0.5)
r
r <- as.vector(r)
call<-function(rf, k, sp, u, d2, q) {
p <- matrix(nrow=1, ncol=(52))
price<-sp
for(i in 2:ncol(p)){
if (r[i]==1) {
price <- price*u
}else{
price <- price*d2
}
price
}
}
p
call(rf,k,k,sp,u,d2)