9 lines
264 B
Text
9 lines
264 B
Text
.l("nstat.kg")
|
|
bar::{x{x;.d("*")}:*0;.p("")}
|
|
hist10::{[s];#'=s@<s::_x*10}
|
|
plot::{[s];.p("");.p("n = ",$x);
|
|
(!10){.d(x%10);.d(" ");bar(y)}'_(100%x)*(hist10(s::{x;.rn()}'!x));
|
|
.p("mean = ",$mu(s));.p("sd = ",$sd(s))}
|
|
plot(100)
|
|
plot(1000)
|
|
plot(10000)
|