lines = 'Powdered Moderate Coarse
146 150 141
152 144 138
149 148 142
161 155 146
158 154 139
149 150 145
154 148 137'
con = textConnection( lines )
DF = read.table( con, header=TRUE )
close(con)