3 ms·

Very clean. 1 small change to make it count of frequencies- table(scan('test.txt',character(),sep=" "))