Predict a Person's Age from Their First Name 

Find the most probable ages of people, given their first names.

In[1]:=

X Predict["NameAge", {"Tom", "Stacy", "Claire"}]

Out[1]=

Visualize the age distribution for a given name.

In[2]:=

X distribution = Predict["NameAge", "Claire", "Distribution"]

Out[2]=

In[3]:=

X Plot[PDF[distribution, x], {x, 0, 100}, Exclusions -> None, Frame -> True, Filling -> Bottom, PlotLabel -> "Age distribution of persons named Claire", FrameLabel -> {"Age", "Probability density"}]

Out[3]=