library(knitr)
help(package=knitr)
?opts_knit
?knit
?"[["
?lapply
DF[[target]]
lapply(as.list(categ),getElement,x=DF)
?getElement
d1
d1C
?glmmadmb
library(glmmADMB)
?glmmadmb
?mcmcControl
library(cacheSweave)
Sweave("glmmADMB.Rnw",driver=cacheSweaveDriver)
fit_zinbinom1_bs_mcmc
names(fit_zinbinom1_bs_mcmc)
library(scapeMCMC)
str(m)
str(m)
help(package=scapeMCMC)
traceback()
?mcmcControl
fit_hnbinom1
fit_count
summary(fit_count)
summary(fit_count)
summary(fit_ccount)
getwd()
getwd()
debug(glmmadmb)
str(out$mcmc)
debug(readBin)
what
n
print(n)
?readBin
what
n
   out$mcmc <- as.matrix(read_psv(file_name))
what
print(n)
print(size)
Q
Q
getwd()
list.files()
r <- read_psv("glmmadmb.psv")
r <- glmmADMB:::read_psv("glmmadmb")
Q
debug(read_psv)
debug(glmmADMB:::read_psv)
r <- glmmADMB:::read_psv("glmmadmb")
debug(read_admbbin)
nv
n
c
nv
fs
(fs-isize)/dsize
37000*8
Q
c
c
c
c
c
c
q()
n
getwd()
setwd("owls_mcmcdir0")
debug(read_psv)
debug(glmmADMB:::read_psv)
r <- read_psv("glmmadmb")
r <- glmmADMB:::read_psv("glmmadmb")
dim(ans)
glmmADMB:::read_psv
getwd()
debug(glmmadmb)
run
debug
list.files()
list.files()
list.files()
getwd()
setwd("..")
tmp
nrow(tmp)
rep_pars(tmp[,1])
rep_pars(tmp[,1])
tmp[,1]
tmp[,2]
rep_pars(tmp[,2])
rep_pars(tmp[,2])
Q
Q
q()
n
debug(glmmadmb)
library(glmmADMB)
q()
n
