R/rotation2d.R

Defines functions rotation2d

rotation2d<-function(dendat,alpha){
  Rx<-matrix(0,2,2)
  Rx[1,]<-c(cos(alpha),-sin(alpha))
  Rx[2,]<-c(sin(alpha),cos(alpha)) 
  detdat<-Rx%*%t(dendat)
  detdat<-t(detdat)
  return(detdat)
}

Try the denpro package in your browser

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

denpro documentation built on May 2, 2019, 8:55 a.m.