s <- c(0.7, 0.3)
b <- matrix(c(1, 1, 1, -1), ncol = 2)
Omega <- matrix(c(0.5, 0.3, 0.3, 0.5, 1, -0.1, -0.1, 0.8), ncol = 2)
### no update
update_classes_wb(s = s, b = b, Omega = Omega)
### remove class 2
update_classes_wb(s = s, b = b, Omega = Omega, epsmin = 0.31)
### split class 1
update_classes_wb(s = s, b = b, Omega = Omega, epsmax = 0.69)
### merge classes 1 and 2
update_classes_wb(s = s, b = b, Omega = Omega, deltamin = 3)
Run the code above in your browser using DataLab