pcds (version 0.1.4)

funsMuVarCSend1D: Returns the mean and (asymptotic) variance of arc density of Central Similarity Proximity Catch Digraph (CS-PCD) for 1D data - end interval case

Description

Two functions: muCSend1D and asyvarCSend1D.

muCSend1D returns the mean of the arc density of CS-PCD and asyvarCSend1D returns the asymptotic variance of the arc density of CS-PCD for a given expansion parameter \(t>0\) for 1D uniform data in the left and right end intervals for the interval \((a,b)\).

See also (ceyhan:revstat-2016;textualpcds).

Usage

muCSend1D(t)
asyvarCSend1D(t)

Value

muCSend1D returns the mean and asyvarCSend1D returns the asymptotic variance of the arc density of CS-PCD for uniform data in end intervals

Arguments

t

A positive real number which serves as the expansion parameter in CS proximity region.

Author

Elvan Ceyhan

Elvan Ceyhan

Details

funsMuVarCSend1D

References

See Also

muPEend1D and asyvarPEend1D

Examples

#Examples for muCSend1D
muCSend1D(1.2)

tseq<-seq(0.01,5,by=.05)
ltseq<-length(tseq)

mu.end<-vector()
for (i in 1:ltseq)
{
  mu.end<-c(mu.end,muCSend1D(tseq[i]))
}

oldpar <- par(no.readonly = TRUE)
par(mar = c(5,4,4,2) + 0.1)
plot(tseq, mu.end,type="l",
ylab=expression(paste(mu,"(t)")),xlab="t",lty=1,xlim=range(tseq),ylim=c(0,1))
par(oldpar)

#Examples for asyvarCSend1D
asyvarCSend1D(1.2)

tseq<-seq(.01,5,by=.05)
ltseq<-length(tseq)

var.end<-vector()
for (i in 1:ltseq)
{
  var.end<-c(var.end,asyvarCSend1D(tseq[i]))
}

oldpar <- par(no.readonly = TRUE)
par(mar=c(5,5,4,2))
plot(tseq, var.end,type="l",xlab="t",ylab=expression(paste(sigma^2,"(t)")),lty=1,xlim=range(tseq))
par(oldpar)