Very clean. 1 small change to make it count of frequencies-

table(scan('test.txt',character(),sep=" "))