Displaying 1 result from an estimated 1 matches for "savecld".
2009 Sep 09
1
Package that does not work until I re write the exactly the same code
...;euclidean",
...)
{
nbIdFull <- nrow(Object["traj"])
convergenceTime <- 0
noNA <- selectSupTrajMinSize(Object, trajMinSize)
trajNoNA <- Object["traj"][noNA, ]
nbTime <- length(Object["time"])
nbId <- nrow(trajNoNA)
saveCld <- 0
scr <- plotAll(Object, print.cal = print.cal, print.traj = print.traj,
print.sub = FALSE, col = "black", type.mean = "n")
if (length(startingCond) == 1) {
if (startingCond == "allMethods") {
startingCond <- c("maxD...