R/a_rotate.R

Defines functions a_rotate

a_rotate <-
function(M, p)
{
    M %*% t(matrix(c(cos(p), sin(p), -sin(p), cos(p)), 2, 2))
}

Try the pBrackets package in your browser

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

pBrackets documentation built on May 2, 2019, 7:02 a.m.