...
|
...
|
@@ -1295,6 +1295,7 @@ List GxE_fitness_score_mvlm(NumericMatrix case_genetic_data_,
|
1295
|
1295
|
// arma::mat x_vec_lengths = join_rows(x0_orig, mean_vec_lengths);
|
1296
|
1296
|
// arma::vec beta_prob_disease = solve(x_vec_lengths, prob_disease, solve_opts::fast);
|
1297
|
1297
|
arma::vec beta_prob_disease = solve(x_orig, prob_disease, solve_opts::fast);
|
|
1298
|
+ double beta_prob_disease_int = beta_prob_disease(0);
|
1298
|
1299
|
|
1299
|
1300
|
// make sure association is positive
|
1300
|
1301
|
// bool pos_assoc = beta_prob_disease(1) > 0;
|
...
|
...
|
@@ -1351,6 +1352,9 @@ List GxE_fitness_score_mvlm(NumericMatrix case_genetic_data_,
|
1351
|
1352
|
s_vec(1) = ht_trace;
|
1352
|
1353
|
arma::vec centered_vec = s_vec - null_means;
|
1353
|
1354
|
|
|
1355
|
+ //reset the correct intercept
|
|
1356
|
+ beta_prob_disease(0) = beta_prob_disease_int;
|
|
1357
|
+
|
1354
|
1358
|
//make sure the elements are both greater than the random nulls, otherwise
|
1355
|
1359
|
// set to small value
|
1356
|
1360
|
bool neg_elem = any(centered_vec <= 0);
|