View source: R/misc.R View source: R/funcs.R
Title
pro.bearing <- (azi - bearing) pro.bearing[pro.bearing>180] <- pro.bearing[pro.bearing>180]-360 ends.xy.plan <- cos((pro.bearing)* pi/180) ends.xy <- -scale* cos(plunge* pi/180) * ends.xy.plan ends.z <- scale* sin(plunge* pi/180)
1 2 3 | project_ppp(my.ppp, plates, profile = NULL)
project_ppp(my.ppp, plates, profile = NULL)
|
profile |
|
test |
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.