=Workspace re-organization

Data/noethn/.dropbox.attr

+{}
\ No newline at end of file

Data/noethn/Bootstrapping/.dropbox.attr

+{}
\ No newline at end of file

SingleBootSampleLepto_NoEthn.R → Rcodes/10_SingleBootstrapSample.R

@@ -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=''));

MCMC_MixingChain.R → Rcodes/11_MCMCanalyzingMixingChains.R

-##################################################
-### 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")))
 

2560Bootstrapping_NoEthn.R → Rcodes/12_2560BootstrapSample.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
+}