bridges <- read.table(file = url("http://archive.ics.uci.edu/ml/machine-learning-databases/bridges/bridges.data.version1"), head = FALSE, sep = ",")
colnames(bridges) <- c("Identifier", "River", "Location", "Erected", "Purpose", "Length", "Lanes", "ClearG", "ThroughDeck", "Material", "Span", "RelL", "Type")

subset(bridges, ThroughDeck != "?", Type = "SIMPLE-T", select = c(Erected, Purpose, Material))

##     Erected  Purpose Material
## 1      1818  HIGHWAY     WOOD
## 2      1819  HIGHWAY     WOOD
## 3      1829 AQUEDUCT     WOOD
## 4      1837  HIGHWAY     WOOD
## 5      1838  HIGHWAY     WOOD
## 6      1840  HIGHWAY     WOOD
## 7      1844 AQUEDUCT     IRON
## 8      1846  HIGHWAY     IRON
## 9      1848 AQUEDUCT     WOOD
## 10     1851  HIGHWAY     WOOD
## 11     1853       RR     WOOD
## 12     1856  HIGHWAY     WOOD
## 13     1856  HIGHWAY     WOOD
## 14     1857       RR     WOOD
## 15     1859  HIGHWAY     IRON
## 16     1863       RR     IRON
## 17     1864       RR     IRON
## 18     1866  HIGHWAY     WOOD
## 19     1870  HIGHWAY     WOOD
## 20     1874       RR     IRON
## 21     1876  HIGHWAY    STEEL
## 22     1876  HIGHWAY     WOOD
## 25     1883       RR    STEEL
## 26     1883       RR    STEEL
## 27     1884       RR    STEEL
## 28     1884  HIGHWAY    STEEL
## 29     1884  HIGHWAY    STEEL
## 30     1887  HIGHWAY     IRON
## 31     1887       RR    STEEL
## 32     1888       RR    STEEL
## 33     1889  HIGHWAY     IRON
## 34     1890  HIGHWAY     IRON
## 35     1890  HIGHWAY    STEEL
## 36     1891  HIGHWAY     IRON
## 37     1891       RR    STEEL
## 38     1892  HIGHWAY    STEEL
## 39     1892 AQUEDUCT     WOOD
## 40     1893  HIGHWAY    STEEL
## 41     1894  HIGHWAY     IRON
## 42     1895  HIGHWAY    STEEL
## 43     1896  HIGHWAY    STEEL
## 44     1896  HIGHWAY    STEEL
## 45     1897       RR    STEEL
## 46     1897       RR    STEEL
## 47     1898       RR    STEEL
## 48     1900  HIGHWAY    STEEL
## 49     1900  HIGHWAY    STEEL
## 50     1901       RR    STEEL
## 51     1902  HIGHWAY    STEEL
## 52     1903       RR    STEEL
## 53     1903       RR    STEEL
## 54     1903       RR    STEEL
## 55     1903       RR    STEEL
## 56     1904       RR    STEEL
## 57     1904       RR    STEEL
## 58     1904       RR    STEEL
## 60     1909  HIGHWAY    STEEL
## 61     1909  HIGHWAY    STEEL
## 62     1910       RR    STEEL
## 63     1911  HIGHWAY    STEEL
## 65     1914       RR    STEEL
## 66     1915       RR    STEEL
## 67     1915  HIGHWAY    STEEL
## 68     1918       RR    STEEL
## 69     1920       RR    STEEL
## 70     1921     WALK    STEEL
## 71     1923  HIGHWAY    STEEL
## 72     1924  HIGHWAY    STEEL
## 73     1926  HIGHWAY    STEEL
## 74     1926  HIGHWAY    STEEL
## 75     1927  HIGHWAY    STEEL
## 76     1927  HIGHWAY    STEEL
## 77     1927  HIGHWAY    STEEL
## 78     1927  HIGHWAY    STEEL
## 79     1928  HIGHWAY    STEEL
## 80     1928  HIGHWAY    STEEL
## 81     1928  HIGHWAY    STEEL
## 82     1928  HIGHWAY    STEEL
## 83     1931  HIGHWAY    STEEL
## 84     1931  HIGHWAY    STEEL
## 85     1931  HIGHWAY    STEEL
## 86     1937  HIGHWAY    STEEL
## 87     1939  HIGHWAY    STEEL
## 88     1945  HIGHWAY    STEEL
## 89     1945       RR    STEEL
## 90     1945  HIGHWAY    STEEL
## 91     1945  HIGHWAY    STEEL
## 92     1945  HIGHWAY    STEEL
## 93     1945       RR    STEEL
## 94     1950  HIGHWAY    STEEL
## 95     1951  HIGHWAY    STEEL
## 96     1951  HIGHWAY    STEEL
## 97     1951  HIGHWAY    STEEL
## 98     1955  HIGHWAY    STEEL
## 99     1955  HIGHWAY    STEEL
## 100    1959  HIGHWAY    STEEL
## 101    1959  HIGHWAY    STEEL
## 102    1961  HIGHWAY    STEEL
## 103    1962  HIGHWAY    STEEL
## 104    1969  HIGHWAY    STEEL
## 105    1975  HIGHWAY    STEEL
## 106    1978  HIGHWAY    STEEL