# NOT RUN {
IntData <- cbind(rep(rep(c(0,0,1,0,1,0,1,0,0,0),each=5),times=5),
rep(rep(c(1,0,0,0), each=10), times=25))
colnames(IntData) <- c('Var1','Var2')
CP <- conProf(IntData,maxlag=10,conFun=funClassJacc)
plot(CP)
# }
Run the code above in your browser using DataLab