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 18, 2021, 5:16 p.m.