lines = '0985 0980 0970 0985 0973 0972 0980 0965 0970 0975 0980 0980 0975 0980 0984 0985 0980 0970 0968 0975 0972 0970 0980 0978 0985 0970 0985 0974 0972 0970'
con = textConnection( lines )
avg = scan( con, quiet=TRUE )
close(con)
avg = avg/10000

lines = '0030 0025 0010 0030 0025 0005 0040 0010 0010 0010 0025 0015 0010 0040 0030 0030 0040 0010 0010 0010 0010 0010 0010 0010 0010 0020 0010 0020 0015 0040'
con = textConnection( lines )
range = scan( con, quiet=TRUE )
close(con)
range = range/10000

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