Displaying 2 results from an estimated 2 matches for "twop".
Did you mean:
two
2002 Oct 17
0
Polar plot, circular plot (angular data)
...lor of the radial labels.
#
# tlabel.offset: radial offset for angular axis labels in fraction of maximum radial value (default = 0.1).
# tlabel.cex: cex for angular axis labels.
# tlabel.col: angular labels color.
#
# main: plot main title.
# sub: plot sub title.
fit.rad <- function(x, twop = 2 * pi) {
for (i in 1:length(x)) {
while (x[i] < 0) x[i] <- x[i] + twop
while (x[i] >= twop) x[i] <- x[i] - twop
}
return(x)
}
if (is.null(rlimits))
rpretty <- pretty(range(abs(r), 0, na.rm = TRUE))
if (is.numeric...
2002 Nov 08
0
Polar plot, circular plot (angular data): II
...function ()
{
pp$radial.grid()
pp$inner.circular.grid()
pp$outer.circular.grid()
pp$radial.axis.labels()
pp$angular.labels()
pp$angular.tick.marks()
pp$radial.tick.marks()
print("Made my grid & labels (pp$plot.grid.labels).")
}, fit.rad = function (x, twop = 2 * pi)
{
for (i in 1:length(x)) {
while (x[i] < 0) x[i] <- x[i] + twop
while (x[i] >= twop) x[i] <- x[i] - twop
}
return(x)
}, fit.rad2 = function (th)
pp$fit.rad(pp$theta.zero + (!pp$theta.clw) * th - (pp$theta.clw) *
th), cartesian = function (r,...