Running S OLD ...
> #test probability distributions, stats, and macros
> prefix("prob.")
> $Random.seed_c(57,0,3,0,0,0,49,16,0,0,0,0)	# to initialize at same spot
> !echo $TEST/OLD/testdist >tttt
> define(read("tttt"))	# defines testdist macro
Read 1 items
mac.testdist
> mprint($mac.testdist)
MACRO testdist(dist,n/100/)
mean(?(p)$1(?(q)$1(ppoints($2),$*),$*)-ppoints($2))
END
> ?LOOP(?testdist($%1,200),norm,logis,sep=;)
      7.07107e-9
      -1.58092e-9
> ?LOOP(?testdist($%1,100,2)
+ ,norm,logis,t,chisq,gamma,sep=)
      1.769513e-8
      -1.150183e-9
      8.4145e-9
      -4.02797e-9
      -9.39704e-9
> old.seed_$Random.seed;stem(rnorm(100))

N = 100   Median = -0.060296
Quartiles = -0.6370286, 0.716779

Decimal point is at the colon

  -3 : 0
  -2 :
  -2 : 20
  -1 : 966
  -1 : 4444322000
  -0 : 98887777666655
  -0 : 4444433222222111111110000
   0 : 0022333333444
   0 : 5556667789999
   1 : 001111223
   1 : 5668
   2 : 000123

> $Random.seed_old.seed;stem(rnorm(100))	#should be the same

N = 100   Median = -0.060296
Quartiles = -0.6370286, 0.716779

Decimal point is at the colon

  -3 : 0
  -2 :
  -2 : 20
  -1 : 966
  -1 : 4444322000
  -0 : 98887777666655
  -0 : 4444433222222111111110000
   0 : 0022333333444
   0 : 5556667789999
   1 : 001111223
   1 : 5668
   2 : 000123

> stem(c(runif(75),NA,80))	# an outlier and an NA
Contained 1 NAs

N = 76   Median = 0.537241
Quartiles = 0.224636, 0.818826

Decimal point is 1 place to the left of the colon

   0 : 224567779
   1 : 012467789
   2 : 23569
   3 : 0119
   4 : 034555789
   5 : 3344489
   6 : 3479
   7 : 01133468
   8 : 012346779
   9 : 0012246789
  10 : 0

High:  80

> var(rnorm(1000)); var(rnorm(1000),trim=.1)
      0.991916
      0.955569
> !echo $TEST/OLD/macro >tttt
> define(read("tttt"))
Read 1 items
mac.getmacro
mac.cp
mac.dbrm
mac.sabl
mac.reg
> sink("tttt")
> mprint(list=list("$mac.*",pos=2))	# print all macros to file
$mac.cp not found
Error in mprint
Dumped
> sink(); sys("tail tttt")	# print a few lines
> !rm tttt
> mean(rnorm(100)); mean(rnorm(100),trim=.1
      0.1435194
+ )	# continuation
      0.1131743
> mean(zzqq_rnorm(100),trim=.5)==median(zzqq)
      T
> # try to use the medit command after fixing up this
> # coming syntax error with EDIT
> "change the comma in the middle","to a semi-colon"
Syntax Error
"change the comma in the middle","to a semi-colon"
                                ^
Dumped
> # this should never be executed since a syntax error preceeds it!!
2.5u 2.1s 7r 	 /usr/s/cmd/RUN.S
