options echo=2,sourcexit=0	# don't abort source on error
option
# file of commands to test core of S Version 3
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
print(NA,LGL,INT,REAL,CHAR)	# built-ins
help
help("help")	# should be the same thing 
help "xxxx"	#missing
list
list pos=2
search(1);search;search(3);search(4)
list("z*")
print(matrix_cstr(Dim=c(6,3),Data=18.:1,stype=21))
print(time.series_cstr(Tsp=c(1950,1953.,12),Data=1:37,stype=20))
print(quarterly_cstr(Tsp=c(1837,1840.,4),Data=13:1.,stype=20))
for(i in 1:5)for(j in 2:1) print(i=i,j=j)
for(i in 1:3){
	for(i in 2:1) print(inner=i)
	print(outer=i)
	}
write(16:53)	# should be named "data"
!cat data
write(file="tst.data",list())
sys(c("echo testing","cat tst.data"))
newlist_read("tst.data");newlist
if(TRUE)"true OK"
if(FALSE)"IF is screwed up"
if(123.4)"all is well" else "mess"
rm newlist,print=T
rm list="z"
sink("tst.data")	# going to overwrite
1:20
"Now is the time"
sink()
!cat tst.data
matrix$Data_seq(1,35,2); print(matrix)
(matrix)$Data
matrix$Data	# got it in two ways
matrix[,1]
matrix[2,]
matrix[c(T,F,T,F,T,F),]
matrix[-2,2:3]
write(file="sou.test",c(
	"'This is a test of source file'",
	"1:15"
	))
source("sou.test")
"Now back from source"
chapter "abcdef"	#generates an error -- will it abort source
for(i in list())print(i,get(i))
attach "swork"	# puts it on end
search
attach pos=1,"sdata"
search
detach
search
coerce(1:15,CHAR)
coerce((1:12)%m CHAR,REAL)
zzz_cstr("now is the time (should be unlabelled
 )",abcdefg=cstr(q=matrix,r=time.series,comment="unlikely"),
 yet.another=17.5532)
zzz
zzz$abcdefg$q
save(qqq=zzz,lll=quarterly)
list(pos=2)
print(prefix("another."))
prefix("t.")
NA:5
c(T,F,NA)	# coerced to INT!!
attach "sdata",pos=1
list
rm qqq,lll
list
attach "swork",pos=1
coerce(quarterly,CHAR)
abcdefg	# missing
T_3	#warning
sink_4	#another warning
T; $t.T
function()
time.series[3:5]	# should end up vector
3.14159 -> pi
search
list
"Warning from test source file--- working file is messed up"
" Should now be returning from source file";"Try `q' and `quit' yourself"
!rm data tst.data sou.test
