q()
postscript("poor-pirate-AMLaP.ps")
source("MCanalysisNPI-AMLaP.R")
dev.off()
q()
postscript("poor-pirate.ps")
source("MCanalysisNPI-latter-plot-PIRAT.R")
dev.off()
q()
means
menas*100
mea ns*100
means*100
means*1000
means*1000
q()
head(a)
 max(a$trial)
getwd()
 max(a$trial)
q()
head(a)
max(a$trial)
means
barplot(means*1000)
q()
xb
props
model
data
fm
q()
