powered by
contourLines
get.contours(x)
data(volcano) x <- 10*1:nrow(volcano) y <- 10*1:ncol(volcano) cL <- contourLines(x, y, volcano) out <- get.contours(cL)
Run the code above in your browser using DataLab