# Create a test object
    disProgObj1 <- sim.pointSource(p = 0.99, r = 0.5, length = 400,
                            A = 1, alpha = 1, beta = 0, phi = 0,
                            frequency = 1, state = NULL, K = 1.7)
    disProgObj2 <- sim.pointSource(p = 0.99, r = 0.5, length = 400,
                            A = 1, alpha = 1, beta = 0, phi = 0,
                            frequency = 1, state = NULL, K = 5)
    disProgObj3 <- sim.pointSource(p = 0.99, r = 0.5, length = 400,
                            A = 1, alpha = 1, beta = 0, phi = 0,
                            frequency = 1, state = NULL, K = 17)
    # Let this object be tested from any methods in range = 200:400
    range <- 200:400
    control <- list( list(funcName = "rki1", range = range),
                    list(funcName = "rki2", range = range),
                    list(funcName = "rki3", range = range)
                )
    compMatrix1 <- algo.compare(algo.call(disProgObj1, control=control))
    compMatrix2 <- algo.compare(algo.call(disProgObj2, control=control))
    compMatrix3 <- algo.compare(algo.call(disProgObj3, control=control))
    algo.summary( list(a=compMatrix1, b=compMatrix2, c=compMatrix3) )Run the code above in your browser using DataLab