pitch2 <- function(x,y,z,roll){ pitch = atan((-x)/((y*sin(roll))+(z*cos(roll))) ) return(pitch) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.