custs<-read_data(system.file("data","custsample.csv",package="RTextTools"),type="csv") > matrix <- create_matrix(custsample$note, language="english", removeNumbers=TRUE,stripWhitespace=TRUE,stemWords=TRUE, removeSparseTerms=.998, weighting=weightTfIdf, originalMatrix=doc_matrix)
> container <- create_container(matrix,c(NA,1:1000),testSize=1:1000,virgin=TRUE) Error in create_container(matrix, c(NA, 1:1000), testSize = 1:1000, virgin = TRUE) : All data in the training set must have corresponding codes