display(log)

set.seed(1)

#Modele INN

check(E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/ModelExemple1inn.odc)
data(E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/DataExemple1inn.odc)
compile(1)
inits(1,E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/IniExemple1a.odc)
set(alpha)
set(var)
beg(5000)
update(5000)
dic.set()
update(20000)
coda(alpha)
stats(*)
dic.stats()

#Modele SPAD

check(E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/ModelExemple1trans.odc)
data(E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/DataExemple1trans.odc)
compile(1)
inits(1,E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/IniExemple1a.odc)
set(alpha)
set(var)
beg(5000)
update(5000)
dic.set()
update(20000)
stats(*)
dic.stats()

#Modele INN + SPAD

check(E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/ModelExemple1transinn.odc)
data(E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/DataExemple1transinn.odc)
compile(1)
inits(1,E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/IniExemple1b.odc)
set(alpha)
set(var)
beg(5000)
update(5000)
dic.set()
update(20000)
stats(*)
dic.stats()

#Modele Constant

check(E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/ModelExemple1constant.odc)
data(E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/DataExemple1constant.odc)
compile(1)
inits(1,E:/Enseignements/ECbayesienne/2013/CleUSB/TD1/TeneurProteines/Programmes/IniExemple1constant.odc)
set(alpha)
set(var)
beg(5000)
update(5000)
dic.set()
update(20000)
stats(*)
dic.stats()