# This is a sample demo file # ############################################################################### x <- runif(100) summary(x) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.01852 0.21770 0.47030 0.49520 0.78180 0.99730