Commit b8cd8045 authored by Marta Pittavino's avatar Marta Pittavino
Browse files

=Workspace re-organization

parent 687c71ac
{}
\ No newline at end of file
{}
\ No newline at end of file
This diff is collapsed.
......@@ -2,14 +2,14 @@
### File to perform a Single Bootstrapping Sample:
##################################################################################################
rm(list=ls())
setwd("~/Desktop/ABN_GLM_Comparison_DataAndCodes/R/LeptoPomonaJags") ### Set the proper working directory
### Set the proper working directory, i.e.: setwd("~/DIB-D-17-00344")
print(system.time( system("jags leptopomona_script_noethn.R")))
library(abn);
library(coda);
load("~/Desktop/ABN_GLM_Comparison_DataAndCodes/RData/leptopom_noethn.RData")
load("~/DIB-D-17-00344/Data/leptopom_noethn.RData")
orig.data <- mydatpomdef_noethn;
print(system.time( boot.data <- read.coda( "out1chain1.txt","out1index.txt")));
......@@ -70,6 +70,6 @@ print(system.time( boot1.cache <- buildscorecache( data.df=boot.data, data.dists
print(system.time( boot1.mp <- mostprobable( score.cache=boot1.cache)));
################################################################################################################################
datadir <- '~/Desktop/ABN_GLM_Comparison_DataAndCodes/RData/noethn/Bootstrapping/'
datadir <- '~/DIB-D-17-00344/Data/noethn/Bootstrapping/'
save( boot1.mp,file=paste(datadir,"boot1run_noethn.RData",sep=''));
\ No newline at end of file
save( boot1.mp,file=paste(datadir,"boot1run_noethn.RData",sep=''));
##################################################
### File to perform a MCMC Mixing Evaluation Chain
##################################################
#######################################################
### File to perform a MCMC Mixing Evaluation Chains ###
#######################################################
rm(list=ls()) # First: as usual, clean R's memory
setwd("~/Desktop/ABN_GLM_Comparison_DataAndCodes/R/LeptoPomonaJags") ### Set the proper working directory
### Set the proper working directory, i.e.: setwd("~/DIB-D-17-00344")
print(system.time( system("jags leptopomona_script_noethn.R")))
......
##################################################################################################
# R file which peforms 2560 bootstrap analysis for cohort sheep, lepto pomona data!!!
##################################################################################################
setwd("~/Desktop/ABN_GLM_Comparison_DataAndCodes/R/LeptoPomonaJags") ### Set the proper working directory
### Set the proper working directory, i.e.: setwd("~/DIB-D-17-00344")
library( abn);
library( coda);
load("~/Desktop/ABN_GLM_Comparison_DataAndCodes/RData/leptopom_noethn.RData")
load("~/DIB-D-17-00344/RData/leptopom_noethn.RData")
orig.data <- mydatpomdef_noethn;
max.par <- 7;
start <- seq( 1,2560,by=80)
......@@ -110,7 +110,7 @@ for(i in start[index]:stop[index]){
dags[[i]]<-mostprobable( score.cache=boot1.cache);
unlink(c(init.file,run.file,out.file,paste(out.file,"chain1.txt",sep=""),paste(out.file,"index.txt",sep="")));#tidy up
datadir <- '~/Desktop/ABN_GLM_Comparison_DataAndCodes/RData/noethn/Bootstrapping/'
datadir <- '~/DIB-D-17-00344/RData/noethn/Bootstrapping/'
save( dags, file=paste( datadir,"mp2560boot_noethn",index,".RData",sep=""));
}
\ No newline at end of file
}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment