Very clean. 1 small change to make it count of frequencies- table(scan('test.txt',character(),sep=" "))
I'd like to jump in with a little R here- it not all that difficult in "that" either! open(con <- file('text.txt')) text = readLines(con, n= -1L) # n is number of lines to read, -1L means read all of it words =…
Very clean. 1 small change to make it count of frequencies- table(scan('test.txt',character(),sep=" "))
I'd like to jump in with a little R here- it not all that difficult in "that" either! open(con <- file('text.txt')) text = readLines(con, n= -1L) # n is number of lines to read, -1L means read all of it words =…