Reorganized files; fixed bugs

johnmyleswhite · Feb 9, 2012 · 0529add · 0529add
1 parent cae6b75
commit 0529add
Show file tree

Hide file tree

Showing 16 changed files with 13 additions and 13 deletions.
diff --git a/bugs/normal_mean.bugs → bugs/normal/normal_mean.bugs b/bugs/normal_mean.bugs → bugs/normal/normal_mean.bugs
diff --git a/bugs/normal_mean_strong_broken_prior.bugs → ...rmal/normal_mean_strong_broken_prior.bugs b/bugs/normal_mean_strong_broken_prior.bugs → ...rmal/normal_mean_strong_broken_prior.bugs
diff --git a/bugs/normal_mean_strong_prior.bugs → bugs/normal/normal_mean_strong_prior.bugs b/bugs/normal_mean_strong_prior.bugs → bugs/normal/normal_mean_strong_prior.bugs
diff --git a/bugs/normal_mean_strong_wrong_prior.bugs → ...ormal/normal_mean_strong_wrong_prior.bugs b/bugs/normal_mean_strong_wrong_prior.bugs → ...ormal/normal_mean_strong_wrong_prior.bugs
@@ -5,7 +5,7 @@ model
 		x[i] ~ dnorm(mu, tau)
 	}
 
-	mu ~ dnorm(-1000, 1)
+	mu ~ dnorm(-1000, 10)
 
 	sigma <- 3
 	tau <- pow(sigma, -1)

diff --git a/data/normal_mean.csv → data/normal/normal_mean.csv b/data/normal_mean.csv → data/normal/normal_mean.csv
diff --git a/data/normal_mean_strong_broken_prior.csv → ...ormal/normal_mean_strong_broken_prior.csv b/data/normal_mean_strong_broken_prior.csv → ...ormal/normal_mean_strong_broken_prior.csv
diff --git a/data/normal_mean_strong_prior.csv → data/normal/normal_mean_strong_prior.csv b/data/normal_mean_strong_prior.csv → data/normal/normal_mean_strong_prior.csv
diff --git a/data/normal_mean_strong_wrong_prior.csv → ...normal/normal_mean_strong_wrong_prior.csv b/data/normal_mean_strong_wrong_prior.csv → ...normal/normal_mean_strong_wrong_prior.csv
diff --git a/generators/normal_mean.R → generators/normal/normal_mean.R b/generators/normal_mean.R → generators/normal/normal_mean.R
@@ -6,5 +6,5 @@ sigma <- 3
 x <- rnorm(100, mu, sigma)
 
 write.csv(data.frame(X = x),
-          file = file.path('data', 'normal_mean.csv'),
+          file = file.path('data', 'normal', 'normal_mean.csv'),
           row.names = FALSE)
diff --git a/generators/normal_mean_strong_broken_prior.R → .../normal/normal_mean_strong_broken_prior.R b/generators/normal_mean_strong_broken_prior.R → .../normal/normal_mean_strong_broken_prior.R
@@ -6,5 +6,5 @@ sigma <- 3
 x <- rnorm(100, mu, sigma)
 
 write.csv(data.frame(X = x),
-          file = file.path('data', 'normal_mean_strong_broken_prior.csv'),
+          file = file.path('data', 'normal', 'normal_mean_strong_broken_prior.csv'),
           row.names = FALSE)
diff --git a/generators/normal_mean_strong_prior.R → generators/normal/normal_mean_strong_prior.R b/generators/normal_mean_strong_prior.R → generators/normal/normal_mean_strong_prior.R
@@ -6,5 +6,5 @@ sigma <- 3
 x <- rnorm(100, mu, sigma)
 
 write.csv(data.frame(X = x),
-          file = file.path('data', 'normal_mean_strong_prior.csv'),
+          file = file.path('data', 'normal', 'normal_mean_strong_prior.csv'),
           row.names = FALSE)
diff --git a/generators/normal_mean_strong_wrong_prior.R → ...s/normal/normal_mean_strong_wrong_prior.R b/generators/normal_mean_strong_wrong_prior.R → ...s/normal/normal_mean_strong_wrong_prior.R
@@ -6,5 +6,5 @@ sigma <- 3
 x <- rnorm(100, mu, sigma)
 
 write.csv(data.frame(X = x),
-          file = file.path('data', 'normal_mean_strong_wrong_prior.csv'),
+          file = file.path('data', 'normal', 'normal_mean_strong_wrong_prior.csv'),
           row.names = FALSE)
diff --git a/scripts/normal_mean.R → scripts/normal/normal_mean.R b/scripts/normal_mean.R → scripts/normal/normal_mean.R
@@ -1,8 +1,8 @@
 library('rjags')
 
-df <- read.csv(file.path('data', 'normal_mean.csv'))
+df <- read.csv(file.path('data', 'normal', 'normal_mean.csv'))
 
-jags <- jags.model('bugs/normal_mean.bugs',
+jags <- jags.model(file.path('bugs', 'normal', 'normal_mean.bugs'),
                    data = list('x' = with(df, X),
                                'N' = nrow(df)),
                    n.chains = 4,

diff --git a/scripts/normal_mean_strong_broken_prior.R → .../normal/normal_mean_strong_broken_prior.R b/scripts/normal_mean_strong_broken_prior.R → .../normal/normal_mean_strong_broken_prior.R
@@ -1,8 +1,8 @@
 library('rjags')
 
-df <- read.csv(file.path('data', 'normal_mean_strong_broken_prior.csv'))
+df <- read.csv(file.path('data', 'normal', 'normal_mean_strong_broken_prior.csv'))
 
-jags <- jags.model('bugs/normal_mean_strong_broken_prior.bugs',
+jags <- jags.model(file.path('bugs', 'normal', 'normal_mean_strong_broken_prior.bugs'),
                    data = list('x' = with(df, X),
                                'N' = nrow(df)),
                    n.chains = 4,

diff --git a/scripts/normal_mean_strong_prior.R → scripts/normal/normal_mean_strong_prior.R b/scripts/normal_mean_strong_prior.R → scripts/normal/normal_mean_strong_prior.R
@@ -1,8 +1,8 @@
 library('rjags')
 
-df <- read.csv(file.path('data', 'normal_mean_strong_prior.csv'))
+df <- read.csv(file.path('data', 'normal', 'normal_mean_strong_prior.csv'))
 
-jags <- jags.model('bugs/normal_mean_strong_prior.bugs',
+jags <- jags.model(file.path('bugs', 'normal', 'normal_mean_strong_prior.bugs'),
                    data = list('x' = with(df, X),
                                'N' = nrow(df)),
                    n.chains = 4,

diff --git a/scripts/normal_mean_strong_wrong_prior.R → ...s/normal/normal_mean_strong_wrong_prior.R b/scripts/normal_mean_strong_wrong_prior.R → ...s/normal/normal_mean_strong_wrong_prior.R
@@ -1,8 +1,8 @@
 library('rjags')
 
-df <- read.csv(file.path('data', 'normal_mean_strong_wrong_prior.csv'))
+df <- read.csv(file.path('data', 'normal', 'normal_mean_strong_wrong_prior.csv'))
 
-jags <- jags.model('bugs/normal_mean_strong_wrong_prior.bugs',
+jags <- jags.model(file.path('bugs', 'normal', 'normal_mean_strong_wrong_prior.bugs'),
                    data = list('x' = with(df, X),
                                'N' = nrow(df)),
                    n.chains = 4,