x = c(-100, -95, -90, -0.005, 0.005, 90, 95, 100)
y = factor(c(-1, -1, -1, -1, 1, 1, 1, 1))
data = data.frame(x, y)
fit = svm(y ~ x, data = data, kernel = "linear", type = 'C-classification', scale = FALSE)

fit$SV