Okay, like this?
Sample of training data:
(Debug) In[499]:= RandomSample[data, 10]
(Debug) Out[499]= {"id like you to contact me concerning this now" ->
"REQUEST TO BE CONTACTED",
"put me on ur list i need to get your txt messages" ->
"OPTIN GENERAL CONSENT",
"never send spam text messages to our phone" -> "REQUEST TO OPTOUT",
"love ya to the moon and back" -> "INITIAL LOVE YOU",
"i need to speak with a administrator straight away" ->
"REQUEST TO BE CONTACTED",
"holla back as well back to you too" -> "RESPONSE TO GREETING",
"what company working hours would you have" ->
"REQUEST FOR HOURS OF OPERATION",
"what time is ur store opened" -> "REQUEST FOR HOURS OF OPERATION",
"why r you mailing me all these kinds of texts" ->
"REQUEST FOR INTENT",
"love you with all my heart too" -> "RESPONSE TO LOVE YOU"}
Loading trained Neural Net:
c = Get["BtNeuralNetwork"]
ClassifierInformation[c]
Association[
"Method" -> "Neural network", "Number of classes" -> 33,
"Number of features" -> 1, "Number of training examples" -> 87740,
"Number of extracted features" -> 300,
"L1 regularization coefficient" -> 0,
"L2 regularization coefficient" -> 0.1,
"Number of hidden layers" -> 2,
"Hidden nodes" -> Row[{900, 900}, ","],
"Hidden layer activation functions" -> Row[{
"Rectified Linear", "Rectified Linear"}, ","]]
Example input and classify result:
(Debug) In[497]:= c["please tell me more about your company"]
(Debug) Out[497]= "REQUEST FOR INFORMATION"