data(cp7ext)
cp7ext$Np <- 200
cp7ext.init <- crackRinit(cp7ext)
cp7ext.next <- calcInterval(cp7ext.init, interval.flights=1000)
## crack lengths have grown
head(cp7ext.init$state)
head(cp7ext.next$state)
## SFPOF estimates for the interval are now present
cp7ext.next$results$sfpof
Run the code above in your browser using DataLab