act.mat <- matrix(0,3,3)
act.mat[2,1] <- 1
act.mat[3,1] <- 1
nonact.mat <- matrix(0,3,3)
nonact.mat[2,1] <- 1
nonact.mat[3,2] <- 1
p.val <- getpvalue(act.mat, nonact.mat, num.iterations = 100)
print(p.val)
Run the code above in your browser using DataLab