powered by
dichotomise_tm(net,GT=0)
## Load sample data sample <- cbind( i=c(1,1,2,2,2,3,3,4,5,5,6), p=c(1,2,1,3,4,2,3,4,3,5,5), w=c(3,5,6,1,2,6,2,1,3,1,2)) ## Run the programme dichotomise_tm(sample, GT=2)
Run the code above in your browser using DataLab