options(echo=T)
option()
# file of commands to test core of SQPE
c("abc","defgh","ijklm")
c(1,3.5,7)
#prefix("t.")
z_c(1,6,7.:12)
options(width=65)
seq(7.2,15,.2)
options(width=80)
zz_c(TRUE,FALSE,T,F);zz
NA;LGL;INT;REAL;CHAR	# built-ins
help()
help("help")	# should be the same thing 
help("xxxx")	#missing
ls()
#ls(pos=2)
search()
ls("z*")
print(matr_matrix(18.:1,6,3))
print(time.series_ts(1:37,start=1950,end=1953,freq=12))
print(quarterly_ts(start=1837,end=1840,freq=4,data=13:1.))
for(i in 1:5)for(j in 2:1) cat("i=",i," j=",j,"\n")
for(i in 1:3){
	for(i in 2:1) cat("inner=",i,"\n")
	cat("outer=",i,"\n")
	}
write(16:53)	# should be named "data"
!cat data
write(file="tst.data",ls())
sys(c("echo testing","cat tst.data"))
newlist_scan("tst.data",character());newlist
if(TRUE)"true OK"
if(FALSE)"IF is screwed up"
if(123.4)"all is well" else "mess"
rm(newlist)
rm(list="z")
1:20
"Now is the time"
#sink()
#!cat tst.data
matr[]_seq(1,35,2); print(matr)
as.vector(matr) # the right way to do it
matr[,1]
matr[2,]
matr[c(T,F,T,F,T,F),]
matr[-2,2:3]
write(file="sou.tst",c(
	"'This is a test of source file'",
	"1:15"
	))
source("sou.tst")
"Now back from source"
for(i in ls()){print(i);print(get(i))}
!mkdir temp.data
attach("temp.data")
search()
attach(pos=1,"sdata") #should fail
search()
detach()
search()
as.vector(1:15,CHAR)
zzz_cstr("now is the time (should be unlabelled
 )",abcdefg=cstr(qq=matr,r=time.series,comment="unlikely"),
 yet.another=17.5532)
zzz
zzz$abcdefg$q
save(qqq=zzz,lll=quarterly)
NA:5
c(T,F,NA)	# coerced to integer
ls()
rm(qqq,lll)
ls()
coerce(quarterly,CHAR)
abcdefg	# missing
T_3	#error
time.series[3:5]	# should end up vector
3.14159 -> pi.approx
rm(list=ls())
!rm data tst.data sou.tst
!rmdir temp.data
