# NOT RUN {
signdata=cbind(c(1,0,1,0,1,0,1,0),c(1,1,1,1,0,0,0,0),c(0,0,0,0,0,0,1,1))
colnames(signdata) <-c ('momangry', 'momsad','adoangry')
conTest(data=signdata,lag=1,conFun=funClassJacc,typeOfTest='model',
adCor=FALSE)
# }
Run the code above in your browser using DataLab