# \donttest{
#Examples for muCS2D
muCS2D(.5)
tseq<-seq(0.01,5,by=.1)
ltseq<-length(tseq)
mu<-vector()
for (i in 1:ltseq)
{
mu<-c(mu,muCS2D(tseq[i]))
}
plot(tseq, mu,type="l",xlab="t",ylab=expression(mu(t)),lty=1,xlim=range(tseq))
# }
# \donttest{
#Examples for asy.varCS2D
asy.varCS2D(.5)
tseq<-seq(0.01,10,by=.1)
ltseq<-length(tseq)
asy.var<-vector()
for (i in 1:ltseq)
{
asy.var<-c(asy.var,asy.varCS2D(tseq[i]))
}
oldpar <- par(mar=c(5,5,4,2))
plot(tseq, asy.var,type="l",xlab="t",
ylab=expression(paste(sigma^2,"(t)")),lty=1,xlim=range(tseq))
par(oldpar)
# }
Run the code above in your browser using DataLab