Skip to content

Commit

Permalink
fix a syntax bug
Browse files Browse the repository at this point in the history
  • Loading branch information
ntncmch committed Jan 13, 2014
1 parent f4459d4 commit 58147b9
Showing 1 changed file with 0 additions and 9 deletions.
9 changes: 0 additions & 9 deletions pkg/misc/project_anton.R
Original file line number Diff line number Diff line change
Expand Up @@ -264,18 +264,9 @@ nabc_MA1_plot_prior <- function(a_bounds = c(-0.3, 0.3), sig2_bounds = c(0.5, 2)
require(plyr)

if (prior_dist == "uniform_on_rho") {
<<<<<<< HEAD
rho_1_bounds <- nabc.acf.sig22rho(sort(sig2_bounds), a = c(ifelse(prod(a_bounds) <= 0, 0, min(abs(a_bounds))), max(abs(a_bounds))), vx = variance)
rho_2_bounds <- nabc.acf.a2rho(x = a_bounds, vx = autocorr)
new_sig2_bounds <- sort(rho_1_bounds) * variance/(1 + c(max(abs(a_bounds)), ifelse(prod(a_bounds) <= 0, 0, min(abs(a_bounds))))^2)
=======
rho_1_bounds <- ma.sig22rho(sort(sig2_bounds), a = c(ifelse(prod(a_bounds) <= 0, 0, min(abs(a_bounds))),
max(abs(a_bounds))), vx = variance)
rho_2_bounds <- ma.a2rho(x = a_bounds, vx = autocorr)
new_sig2_bounds <- sort(rho_1_bounds) * variance/(1 + c(max(abs(a_bounds)), ifelse(prod(a_bounds) <= 0, 0,
min(abs(a_bounds))))^2)

>>>>>>> ef489a0a5cac18c3601b866727bcf6ae488bfab1
}

if (prior_dist == "uniform") {
Expand Down

0 comments on commit 58147b9

Please sign in to comment.