# Explore the qualities of the year feature.

require(hdf5);

hdf5load("/home/don/exp007/src/influenza.h5", tidy = TRUE);

A <- influenza.aa.dat;

B <- influenza.faa;

# All records for 1918.  Based on code from
# http://wiki.r-project.org/rwiki/doku.php?id=tips:data-frames:select_observations
C <- A[A$Year == 1918, ]

# Countries represented in the 1918 dataset.
C$Country;

# All record with a year value.
D <- A[A$Year != 0, ];

hist(D$Year);

B[B$GI == 305182, ]

B[B$"Protein Type" == "HA", ]