options echo=2
#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
mprint($mac.testdist)
?LOOP(?testdist($%1,200),norm,logis,sep=;)
?LOOP(?testdist($%1,100,2)
,norm,logis,t,chisq,gamma,sep=)
old.seed_$Random.seed;stem(rnorm(100))
$Random.seed_old.seed;stem(rnorm(100))	#should be the same
stem(c(runif(75),NA,80))	# an outlier and an NA
var(rnorm(1000)); var(rnorm(1000),trim=.1)
!echo $TEST/OLD/macro >tttt
define(read("tttt"))
sink("tttt")
mprint(list=list("$mac.*",pos=2))	# print all macros to file
sink(); sys("tail tttt")	# print a few lines
!rm tttt
mean(rnorm(100)); mean(rnorm(100),trim=.1
)	# continuation
mean(zzqq_rnorm(100),trim=.5)==median(zzqq)
# 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"
# this should never be executed since a syntax error preceeds it!!
