# NOT RUN {
jpMat <- matrix(data=c(5,4,3,0, 5,5,3,1, 0,0,0,5, 0,0,2,0, 4,0,0,3, 1,0,0,4),nrow=6,byrow=TRUE)
method <- 'hitsjp'
totalsupporteps <- 0.01
numiter <- 10
ties.method <-'average'
result <- offdefnt(jpMat, method, totalsupporteps, numiter, ties.method)
print(result)
# }
Run the code above in your browser using DataLab