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()
syn.load('autpar.so')
dyn.load('autpar.so')
autpar('irm(1,geo(2,3))')
autpar
test <- autpar('irm(1,geo(2,3))')
test
auteco
fix(auteco)
auteco <- edit()
auteco
ls()
xx
x
test
dim(physio)
ceono1 <- coenoflex()
dyn.load('coeno.so')
ceono1 <- coenoflex()
coeno1
ceono1
names(ceono)
names(ceono1)
fix(coenoflex)
autpar
fix(coenoflex)
save.image()
coeno1 <- coenoflex()
fix(coenoflex)
coeno1 <- coenoflex()
fix(coenoflex)
fix(coenoflex)
auteco
fix(coenoflex)
autpar
fix(coenoflex)
autpar
fix(coenoflex)
coeno1 <- coenoflex()
fix(coenoflex)
coeno1 <- coenoflex()
dyn.load('coeno.so')
auteco
fix(auteco)
fix(coenoflex)
coeno1 <- coenoflex()
fix(coenoflex)
dyn.load('coeno.so')
coeno1 <- ceonoflex()
coeno1 <- coenoflex()
fix(coenoflex)
totphy
fix(coenoflex)
coenoflex <- edit()
coenoflex <- edit()
history()
dyn.unload('coeno.so')
dyn.load('coeno.so')
coeno1 <- coenoflex()
fix(coenoflex)
coeno1 <- coenoflex()
fix(coenoflex)
coeno1 <- coenoflex()
fix(coenoflex)
dyn.load('coeno.so')
coeno1 <- coenoflex()
save.image()
fix(coenoflex)
save.image()
q()
