# Create a test object
disProgObj <- sim.pointSource(p = 0.99, r = 0.5, length = 200, A = 1,
alpha = 1, beta = 0, phi = 0,
frequency = 1, state = NULL, K = 1.7)
# Let this object be tested from rki1
survResObj <- algo.rki1(disProgObj, control = list(range = 50:200))
# Compute the list of quality values
quality <- algo.quality(survResObj)
quality # the list is printed in matrix form
.opt <- options(xtable.comment = FALSE)
# Format as an "xtable", which is printed with LaTeX markup (by default)
library("xtable")
xtable(quality)
options(.opt)
Run the code above in your browser using DataLab