powered by
real_ind_fundet(x,T,epsilon)
level <- 0.5 epsilon <- 0.1 t <- seq(0,1,by=0.01) plot(t, real_ind_fundet(t,T=level,epsilon=epsilon), type="l", col="red", lwd=2)
Run the code above in your browser using DataLab