set.seed(327)
data(cp7ext)
## initialize crackR object
cp7ext.init <- crackRinit(cp7ext)
## advance through time 6000 flights
cp7ext.before.insp <- calcInterval(cp7ext.init, interval.flights=6000)
## conduct inspection
cp7ext.after.insp <- inspection(cp7ext.before.insp)
## print inspection results
cp7ext.after.insp$results$pcd
Run the code above in your browser using DataLab