特徴抽出を使ってテキスト検索ツールを作成する

「不思議の国のアリス」の原作（英語）からの文章で特徴検出器を訓練する．

In[1]:=

alice = ExampleData[{"Text", "AliceInWonderland"}]; sentences = TextSentences[alice]; fe = FeatureExtraction[sentences]

Out[1]=

データ集合の抽出された特徴についてNearestFunctionを生成する．

In[2]:=

nf = Nearest[fe[sentences] -> Automatic]

Out[2]=

「不思議の国のアリス」中の最も近い文を表示する関数を構築し，これをいくつかの文に使ってみる．

In[3]:=

nearestalice = sentences[[First@nf[fe[#]]]] &;

In[4]:=

nearestalice["Alice and the Rabbit"]

Out[4]=

In[5]:=

nearestalice["Off her head"]

Out[5]=