lines = '120 122 120 118 120 120 124 113 120 108 117 118 122 118 127 124 127 122 123 127 118 122 118 122'
con = textConnection( lines )
avg = scan( con, quiet=TRUE )
close(con)

lines = '20 10 20 20 20 30 15 15 0 20 10 20 20 20 10 15 10 15 10 10 10 10 20 20'
con = textConnection( lines )
range = scan( con, quiet=TRUE )
close(con)

DF = data.frame( average=avg, range=range )