Encuentre cuál autor escribió un texto 

Obtenga ejemplos de los escritos de Shakespeare, Oscar Wilde y Victor Hugo para entrenar un clasificador.

In[1]:=

X Othello = Import["http://www.gutenberg.org/cache/epub/2267/pg2267.txt"]; Hamlet = Import["http://www.gutenberg.org/cache/epub/2265/pg2265.txt"]; Macbeth = Import["http://www.gutenberg.org/cache/epub/2264/pg2264.txt"];

In[2]:=

X TheImportanceOfBeingEarnest = Import["http://www.gutenberg.org/cache/epub/844/pg844.txt"]; ThePictureofDorianGray = Import["http://www.gutenberg.org/cache/epub/174/pg174.txt"]; AnIdealHusband = Import["http://www.gutenberg.org/files/885/885-0.txt"];

In[3]:=

X LesMiserables = Import["http://www.gutenberg.org/cache/epub/135/pg135.txt"]; NotreDamedeParis = Import["http://www.gutenberg.org/cache/epub/2610/pg2610.txt"]; TheManWhoLaughs = Import["http://www.gutenberg.org/cache/epub/12587/pg12587.txt"];

Genere un clasificador de autor desde los ejemplos de entrenamiento.

In[4]:=

X author = Classify[<|"William Shakespeare" -> {Othello, Hamlet}, "Oscar Wilde" -> {TheImportanceOfBeingEarnest, ThePictureofDorianGray}, "Victor Hugo" -> {LesMiserables, NotreDamedeParis}|>]

Out[4]=

Encuentre los autores de textos que no están en el conjunto de prueba.

In[5]:=

X author[{Macbeth, AnIdealHusband, TheManWhoLaughs}]

Out[5]=