options(echo=T)
#test probability distributions, stats, and macros
.Random.seed <- c(57,0,3,0,0,0,49,16,0,0,0,0)
mac.testdist <- list(.Data=
	"print(mean(?(p)$1(?(q)$1(ppoints($2),$*),$*)-ppoints($2)))",
	args=c("dist","n"),deflt=c("","100"))
mprint(mac.testdist)
macro("?LOOP(?testdist($%1,200),norm,logis,sep=;)")
macro("?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)
#sink("tttt")
#mprint(list=ls("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!!
