Displaying 1 result from an estimated 1 matches for "screenplot".
Did you mean:
screenplay
2009 Sep 09
1
Package that does not work until I re write the exactly the same code
...(missing(distance)) {
distance <- "euclidean"
}
if (is.character(distance)) {
distInt <- pmatch(distance, METHODS)
}
else {
distInt <- NA
}
if (print.traj) {
cat(" ~ Slow KmL ~\n")
fast <- FALSE
screenPlot <- scr[2]
if (!is.na(distInt)) {
distanceSlow <- function(x, y) {
dist(rbind(x, y), method = distance)
}
}
else {
distanceSlow <- distance
}
}
else {
screenPlot <- NA
if (is.na(di...