R/Rotate_function.R

Rotate_function <-
function(data_3D,angle){

  z <- -data_3D[,3]

  x <-  data_3D[,1]

  x_rot <-c(x*cos(angle)-z*sin(angle))

  y_rot <-c(x*sin(angle)+z*cos(angle))

  return(data.frame(x_rot,y_rot))

}

Try the PROTOLIDAR package in your browser

Any scripts or data that you put into this service are public.

PROTOLIDAR documentation built on May 2, 2019, 6:08 a.m.