container <- create_container(tdm_removed,text$type,trainSize=1:30,testSize = 31:52, virgin=T)
  SVM <- train_model(container,"SVM")
Error in svm.default(x = container@training_matrix, y = container@training_codes,  :
  x and y don't match.