x<-rnorm(500)
n <- length(x)
c <- 1
lambda <- 1/5
p <- ceiling(c*n^lambda)
mT=UnivTest(x,type="bar",testType="covariance",p=p,b=499,parallel=TRUE)
mF=UnivTest(x,type="bar",testType="covariance",p=p,b=499,parallel=FALSE)
data <- tail(ibmSp500[,2],100)
n2 <- length(data)
c2 <- 3
lambda2 <- 0.1
p2 <- ceiling(c2*n2^lambda2)
testCov=UnivTest(data,type="par",testType="covariance",p=p2,b=499,parallel=TRUE)
testCor=UnivTest(data,type="par",testType="correlation",p=p2,b=499,parallel=TRUE)
Run the code above in your browser using DataLab