source('coenoflex.R')
coenoflex(test)
fix(coenoflex)
fix(coenoflex)
coenoflex(test)
fix(coenoflex)
rep('e',10)
coenoflex(test)
fix(coenoflex)
coenoflex(test)
fix(coenoflex)
for (i in 1:10) cat(paste(' number ',i))
fix(coenoflex)
fix(coenoflex)
coenoflex(test)
fix(coenoflex)
grdtyp <- rep('e',numgrd)
numgrd <- 2
grdtyp <- rep('e',numgrd)
grdtyp
length(grdtyp)
is.vector(grdtyp)
fix(coenoflex)
coenoflex(test)
fix(coenoflex)
grdtyp
grdtyp[1]
grdtyp[2]
fix(coenoflex)
coenoflex(test)
?readline
fix(coenoflex)
coenoflex(test)
fix(coenoflex)
coenoflex(test)
fix(coenoflex)
coenoflex <- edit()
coenoflex(test)
sink('coenoflex.R')
coenoflex
sink()
system('vi coenmoflex.R')
system('vi coenoflex.R')
source('coenoflex.R')
source('coenoflex.R')
coenoflex(test)
source('coenoflex.R')
source('coenoflex.R')
coenoflex(test)
coenoflex(test)
source('coenoflex.R')
coenoflex(test)
source('coenoflex.R')
coenoflex(test)
save.image()
q()
fix(fixplt)
fixplt <- edit()
q()
fix(fixplt)
save.image()
dyn.load('fixplt.so')
q()
dyn.load('fixplt.so')
fixplt()
fix(fixplt)
fixplt()
fix(fixplt)
fixplt()
fix(fixplt)
fixplt()
14^2
fix(fixplt)
fixplt()
fix(fixplt)
system('vi fixplt.f')
system('R CMD SHLIB fixplt.f')
dyn.unload('fixplt.so')
dyn.load('fixplt.so')
fix(fixplt)
fixplt()
fix(fixplt)
fixplt()
fix(fixplt)
?sum
cumprd(c(1,2,3))
cumprod(c(1,2,3))
prod(c(1,2,3))
fix(fixplt)
fixplt()
fix(fixplt)
fixplt()
fix(fixplt)
fixplt()
fix(fixplt)
fixplt()
fix(fixplt)
fixplt()
fix(fixplt)
fixplt()
fix(fixplt)
fixplt()
q()
fix(rndplt)
save.image()
dyn.load('rndplt.so')
rndplt()
fix(rndplt)
rndplt()
fix(rndplt)
rndplt()
fix(rndplt)
rndplt()
fix(rndplt)
rndplt()
system('vi fixplt.f')
system('vi rndplt.f')
dyn.load('rndplt.so')
system('R CMD SHLIB rndplt.f')
system('vi fixplt.f')
system('vi rndplt.f')
system('R CMD SHLIB rndplt.f')
dyn.load('rndplt.so')
rndplt()
system('vi rndplt.f')
system('R CMD SHLIB rndplt.f')
dyn.unload('rndplt.so')
dyn.load('rndplt.so')
rndplt()
test <- rndplt()
save.image()
q()
fix(autpar)
save.image()
dyn.load('autpar.so')
autpar('irm(1,2,3)')
autpar('irm(1,min(2,3))')
autpar('irm(1,min(2,geo(3,4)))')
dyn.unload('autpar.so')
dyn.load('autpar.so')
autpar('irm(1,min(2,geo(3,4)))')
q()
dyn.load('rndspc.so')
rndspc()
fix(rnd.spc)
fix(rndspc)
rndspc <- edit()
save.image()
rndspc()
dyn.unload('rndspc.so')
dyn.load('rndspc.so')
rndspc()
dyn.unload('rndspc.so')
dyn.load('rndspc.so')
rndspc()
fix(rndspc)
q()
dyn.load('autpar.so')
autpar
dyn.unload('autpar.so')
dyn.load('autpar.so')
autpar('irm(1,2,3)')
autpar('geo(irm(1,2),min(3,4))')
fix(autpar)
list(len=10)
list()
a <- list()
length(a) <- 10
a
fix(autpar)
save.image()
autpar
autpar('irm(1,2,3)')
fix(autpar)
totphy
fix(autpar)
save.image()
autpar('irm(1,2,3)')
fix(autpar)
autpar('irm(1,2,3)')
fix(autpar)
autpar('irm(1,2,3)')
dyb.unload('autpar.so')
dyn.unload('autpar.so')
dyn.load('autpar.so')
autpar('irm(1,2,3)')
autpar
fix(autpar)
autpar('irm(1,2,3)')
fix(autpar)
autpar('irm(1,2,3)')
dyn.unload('autpar.so')
dyn.load('autpar.so')
autpar('irm(1,2,3)')
autpar('irm(geo(1,2),irm(3,4))')
autpar('irm(geo(1,irm(3,4))')
autpar('irm(geo(1,irm(3,4)))')
autpar('irm(1,geo(2,min(3,4)))')
autpar('irm(1,geo(2,min(3,4)))')
fix(autpar)
save.image()
autpar('irm(1,geo(2,min(3,4)))')
fix(autpar)
save.image()
fix(auteco)
q()
