demo/debug_lp.R

In djhshih/orient-bias-filter: Orientation Bias Filter

library(devtools)

load_all("..")


base <- c(0, 1, 2);
e <- c(1e-2, 1e-3, 1e-4);
oriented <- c(TRUE, TRUE, FALSE);
theta <- 0.01;
phi <- 0.02;

d <- data.frame(base, e, oriented);
-lp_bases_given_params(d, theta, phi)

-lp_ref_base_given_params(theta, phi, 1e-2)
-lp_alt_base_given_params(theta, phi, 1e-2)
-lp_other_base_given_params(theta, phi, 1e-2)