R/is.3dpoints.R

is.3dpoints <- function (x) 
{
    is <- FALSE
    	if (is.array(x)) 
      	  if (length(dim(x)) == 2) 
            	if (dim(x)[2] >= 3) 
                	is <- TRUE
    is
}
stpp-GitHub/stpp documentation built on April 19, 2024, 4:21 p.m.