[R] [Q] How to extract cross validation results from e1071's svm model

[GMail (KU)]

Dear all,

Is it possible to extract cross-validation results from e1071's svm model?

For example, the following R code shows the result from the 10 fold cross-validation.
model = svm(spam ~ ., data = spam, cross = 10)
summary(model)

But, I could not figure out how to get to the accuracy values from the cross-validation. I looked at the svm method, but did not find any return values. 

Any comment would be highly appreciated.

Thanks in advance.

Young-Jin Lee