set.seed(41)
x <- rbind(
matrix(rnorm(20, -2, 0.2), ncol = 2),
matrix(rnorm(20, 0, 0.2), ncol = 2),
matrix(rnorm(20, 2, 0.2), ncol = 2)
)
y <- factor(rep(c("a", "b", "c"), each = 10))
print(tsvm(x, y, kernel = "linear"))
Run the code above in your browser using DataLab