Last chance! 50% off unlimited learning
Sale ends in
An object of class "htest".
This is an "htest" (i.e., hypothesis test) function which performs a hypothesis test of uniformity of 1D data
in one interval based on the normal approximation of the arc density of the PE-PCD with expansion parameter c
in
The function yields the test statistic,
The null hypothesis is that data is
uniform in a finite interval (i.e. arc density of PE-PCD equals to its expected value under uniform
distribution) and alternative
could be two-sided, or left-sided (i.e. data is accumulated around the end
points) or right-sided (i.e. data is accumulated around the mid point or center
See also (ceyhan:metrika-2012,ceyhan:revstat-2016;textualpcds).
TSArcDensPE1D(
dat,
r,
c,
int,
alternative = c("two.sided", "less", "greater"),
conf.level = 0.95
)
A set or vector of 1D points which constitute the vertices of PE-PCD.
A positive real number which serves as the expansion parameter in PE proximity region;
must be
A positive real number in
A vector of two real numbers representing an interval.
Type of the alternative hypothesis in the test, one of "two.sided", "less", "greater".
Level of the confidence interval, default is 0.95, for the arc density of PE-PCD based on
the 1D data set dat
.
A list with the elements
Test statistic
The
Confidence interval for the arc density at the given confidence level conf.level
and
depends on the type of alternative
.
Estimate of the parameter, i.e., arc density
Hypothesized value for the parameter, i.e., the null arc density, which is usually the mean arc density under uniform distribution.
Type of the alternative hypothesis in the test, one of "two.sided", "less", "greater"
Description of the hypothesis test
Name of the data set
# NOT RUN {
c<-.4
r<-2
a<-0; b<-10; int<-c(a,b)
n<-10 #try also n<-20
dat<-runif(n,a,b)
NumArcsPEint(dat,r,c,int)
TSArcDensPE1D(dat,r,c,int)
TSArcDensPE1D(dat,r,c,int,alt="g")
TSArcDensPE1D(dat,r,c,int,alt="l")
NumArcsPEint(dat,r,c=.3,int)
TSArcDensPE1D(dat,r,c=.3,int)
NumArcsPEint(dat,r=1.5,c,int)
TSArcDensPE1D(dat,r=1.5,c,int)
dat<-runif(n,a-1,b+1)
NumArcsPEint(dat,r,c,int)
TSArcDensPE1D(dat,r,c,int)
c<-.4
r<-2
a<-0; b<-10; int<-c(a,b)
n<-10 #try also n<-20
dat<-runif(n,a,b)
TSArcDensPE1D(dat,r,c,int)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab