Searched refs:mcrds (Results 1 – 1 of 1) sorted by relevance
73 if (length(crds) == 1) mcrds <- crds[[1]] functionVar77 mcrds <- do.call(rbind, crds1)78 mcrds <- mcrds[-nrow(mcrds),]79 rownames(mcrds) <- NULL81 polypath(x=mcrds[,1], y=mcrds[,2], border=border, col=col,