Find Which Author Wrote a Text

Collect examples:

In[1]:=

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]:=

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]:=

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]:=

author=Classify["William Shakespeare"{Othello,Hamlet},"Oscar Wilde"{TheImportanceOfBeingEarnest,ThePictureofDorianGray},"Victor Hugo"{LesMiserables,NotreDamedeParis}]

Out[4]=

ClassifierFunction



Input type: Text

Classes: Oscar Wilde,Victor Hugo,William Shakespeare

Data not in notebook. Store now



Find the authors of texts not in the training set:

In[5]:=

author[{Macbeth,AnIdealHusband,TheManWhoLaughs}]

Out[5]=

{William Shakespeare,Oscar Wilde,Victor Hugo}

Related Symbols

Publisher Information