r accuracy/r^2

gistfile1.txt

sstot = sum((credit$R1 - mean(credit$R1))^2)
totsse =0
accuracy = rep(0,nrow(credit))
r2 = 0
#cross validate nfold leave one out
for (i in 1:nrow(credit)){
  # print(i)
  model.svm = svm(R1 ~ ., data=credit[-i,])
  pred.svm = sapply(predict(model.svm,credit[i,]),roundOff)
  # print(paste("pred",pred.svm))
  totsse = totsse + ((pred.svm - credit[i,11])^2)
  r2 = 1-totsse/sstot
  accuracy[i] = pred.svm == credit[i,11]
}
(acc=sum(accuracy)/nrow(credit))
print(paste("Average accuracy with n fold cv for svn classification is:",round(acc,digits=2)))