| 1 | var R = require("../rlab");
|
| 2 |
|
| 3 | function hist(x,k) {
|
| 4 | var mk = x.fillVM(k,x.length/k);
|
| 5 | return mk.colSum().hist();
|
| 6 | }
|
| 7 |
|
| 8 | var centralLimit = function(x) {
|
| 9 | print('hist(x,1)=', x.hist().str(0));
|
| 10 | print(R.astr(x.hist(), 0));
|
| 11 | print('hist(x,2)=', hist(x,2).str(0));
|
| 12 | print('hist(x,10)=', hist(x,10).str(0));
|
| 13 | print('hist(x,20)=', hist(x,20).str(0));
|
| 14 | }
|
| 15 |
|
| 16 | var x = R.samples([0,1], 100000, {replace:true});
|
| 17 | centralLimit(x);
|
| 18 |
|
| 19 | var xu = R.runif(100000, 0, 10);
|
| 20 | centralLimit(xu);
|