set.seed(327)
## cp7ext data is part of this package
data(cp7ext)
## prepare a crackR object for analysis
cp7ext.init <- crackRinit(cp7ext)
## perform sequential importance sampling analysis
cp7ext.out <- analyze(cp7ext.init)
## Plot SFPOF and PCD results
plot(cp7ext.out)
Run the code above in your browser using DataLab