data(cp7ext)
cp7ext.ismc <- cp7ext
## importance sampling run (much faster)
cp7ext.ismc$ismc.bool <- TRUE
## this is very few samples for demo only
cp7ext.ismc$Np <- 2000
## only one inspection interval may be included with importance sampling
cp7ext.ismc$inspections <- data.frame(flt.interval=3000, type=1)
## set a low SFPOF minimum so we can see results
cp7ext.ismc$sfpof.min <- 1e-30
out.ismc <- crackRmc( cp7ext.ismc )
plot(out.ismc)
Run the code above in your browser using DataLab