# NOT RUN {
score_reels=c(-1,-0.5,0,0.5,1)
proba_score_reels=c(0.2,0.3,0.1,0.2,0.2)
sample_from_model <- function(score.sple,proba.sple, length.sple){sample(score.sple,
size=length.sple, prob=proba.sple, replace=TRUE)}
# }
# NOT RUN {
monteCarlo_double(5.5,FUN=sample_from_model, plot = TRUE,
score.sple=score_reels,proba.sple=proba_score_reels, length.sple=100, numSim = 1000)
# }
Run the code above in your browser using DataLab