## Not run:
# dat1 <- read.table("http://archive.ics.uci.edu/ml/machine-learning-databases/
# thyroid-disease/ann-train.data")
# dat2 <- read.table("http://archive.ics.uci.edu/ml/machine-learning-databases/
# thyroid-disease/ann-test.data")
# res <- mhingeova(xtr=dat1[,-22], ytr=dat1[,22], xte=dat2[,-22], yte=dat2[,22],
# cost=c(2/3, 0.5, 0.5), nu=0.5, learner="ls", m1=100, K=5, cv1=FALSE,
# twinboost=TRUE, m2= 200, cv2=FALSE)
# res <- mhingeova(xtr=dat1[,-22], ytr=dat1[,22], xte=dat2[,-22], yte=dat2[,22],
# cost=c(2/3, 0.5, 0.5), nu=0.5, learner="ls", m1=100, K=5, cv1=FALSE,
# twinboost=TRUE, m2= 200, cv2=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab