print( y <- sort( round( rnorm( 50, 100, 16 ) ) ) )

#  [1]  70  70  73  73  78  79  83  83  86  87  89  90  91  93  93  93  94  94  95
# [20]  95  95  96  96  97  98  98  99 101 102 102 102 104 104 106 108 108 109 110
# [39] 114 115 115 116 119 120 121 121 124 127 135 136

mean( y )

# 100.14

sd( y )

# 15.99236

dput( y, "simulated-iq-scores.txt" )