1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
|
\name{rao.spacing.test}
\title{Rao's Spacing Test of Uniformity}
\alias{rao.spacing.test}
\alias{print.rao.spacing.test}
\description{
Performs Rao's spacing test of uniformity.
}
\usage{
rao.spacing.test(x, alpha=0)
\method{print}{rao.spacing.test}(x, digits = 4, \dots)
}
\arguments{
\item{x}{a vector. The object is coerced to class
\code{\link{circular}}.}
\item{alpha}{numeric value specifying the significance level of the
test. The default value is 0, in which case, a range for the p-value
will be returned. Valid significance levels are 0.10, 0.05, 0.01 and
0.001.}
\item{digits}{integer indicating the precision to be used.}
\item{\dots}{further arguments passed to or from other methods.}
}
\value{
a list with the statistic, alpha and the number of observations.
}
\details{
If alpha is specified, critical values are determined (using the \code{print} function) from a table of simulated critical points (see reference below); in this case the \code{print} function return a further value \code{accepted} which is \code{TRUE} if the null hypothesis is accepted and \code{FALSE} otherwise. If alpha is not specified, a range for the p-value is determined using the table of simulated critical points in the \code{print} function but not reported.
}
\author{Claudio Agostinelli and Ulric Lund}
\references{
Jammalamadaka, S. Rao and SenGupta, A. (2001). Topics in Circular Statistics, Section 7.4, World Scientific Press, Singapore.
Rao, J.S. (1976). Some tests based on arc-lengths for the circle. Sankhya, The Indian Journal of Statistics, Serial B(4), 38, 329-338.
Russell, G.S. and Levitin, D.J. (1995). An expanded table of probability values for Rao's Spacing Test. Communications in Statistics - Simulation and Computation, 24, 4, 879-888.
}
\seealso{
\code{\link{range.circular}}, \code{\link{kuiper.test}}, \code{\link{rayleigh.test}} and \code{\link{watson.test}}
}
\examples{
x <- circular(runif(200, 0, 2*pi))
rao.spacing.test(x)
res <- print(rao.spacing.test(x, alpha=0.1))
res$accepted
x <- rvonmises(100, circular(0), 20)
rao.spacing.test(x)
}
\keyword{htest}
|