Find Which Author Wrote a Text 

Get examples of the writings of Shakespeare, Oscar Wilde, and Victor Hugo to train a classifier.

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"];

Generate an author classifier from the training examples.

In[4]:=

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

Out[4]=

Find the authors of texts not in the training set.

In[5]:=

X author[{Macbeth, AnIdealHusband, TheManWhoLaughs}]

Out[5]=