R/runif.quadrangle.R
In baddstats/spherstat: Spatial Point Pattern Analysis, Geometry and Trigonometry for the Sphere
Defines functions
runif.quadrangle
Documented in
runif.quadrangle
runif.quadrangle <- function(n, win) {
stopifnot(inherits(win, "sphwin") && win$type == "quadrangle")
phi1 <- runif(n, 0, win$param[3])
phi.rot1 <- (phi1 + win$param[4]) %% (2*pi)
theta <- acos(cround(runif(n, cos(win$param[2]), cos(win$param[1]))))
output <- cbind(theta, phi.rot1)
output <- rot.sphere(points=output, northpole=win$ref, inverse=TRUE)
output
}
baddstats/spherstat documentation built on Feb. 6, 2023, 1:45 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions runif.quadrangle
Documented in runif.quadrangle
runif.quadrangle <- function(n, win) {
stopifnot(inherits(win, "sphwin") && win$type == "quadrangle")
phi1 <- runif(n, 0, win$param[3])
phi.rot1 <- (phi1 + win$param[4]) %% (2*pi)
theta <- acos(cround(runif(n, cos(win$param[2]), cos(win$param[1]))))
output <- cbind(theta, phi.rot1)
output <- rot.sphere(points=output, northpole=win$ref, inverse=TRUE)
output
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.