An Inquiry into the Nature and Causes of the Wealth of Nations

Plaintext for Adam Smith's "The Wealth of Nations"

(380642 words/2221402 characters)

Examples

Basic Examples

Retrieve the ResourceObject:

In[1]:=
ResourceObject["An Inquiry into the Nature and Causes of the Wealth \
of Nations"]
Out[1]=

View the data:

In[2]:=
TextCases[
  ResourceData[
   "An Inquiry into the Nature and Causes of the Wealth of Nations"], 
  "Paragraph"][[50]]
Out[2]=

Visualization

Create a word cloud:

In[3]:=
WordCloud[
 DeleteStopwords[
  ResourceData[
   "An Inquiry into the Nature and Causes of the Wealth of Nations"]]]
Out[3]=

Show the distribution of word lengths:

In[4]:=
With[{words = 
   TextWords[
    ResourceData[
     "An Inquiry into the Nature and Causes of the Wealth of \
Nations"]]},
 Histogram[(StringLength /@ words), PlotRange -> Full]]
Out[4]=

Wolfram Research, "An Inquiry into the Nature and Causes of the Wealth of Nations" from the Wolfram Data Repository. (2016) https://doi.org/10.24097/wolfram.69737.data

Source Metadata

Data Downloads