|
a |
|
b/R/RcppExports.R |
|
|
1 |
# Generated by using Rcpp::compileAttributes() -> do not edit by hand |
|
|
2 |
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393 |
|
|
3 |
|
|
|
4 |
cpp_are_possible_ancestors <- function(t_inf, i) { |
|
|
5 |
.Call(`_outbreaker2_cpp_are_possible_ancestors`, t_inf, i) |
|
|
6 |
} |
|
|
7 |
|
|
|
8 |
cpp_sample1 <- function(x) { |
|
|
9 |
.Call(`_outbreaker2_cpp_sample1`, x) |
|
|
10 |
} |
|
|
11 |
|
|
|
12 |
cpp_pick_possible_ancestor <- function(t_inf, i) { |
|
|
13 |
.Call(`_outbreaker2_cpp_pick_possible_ancestor`, t_inf, i) |
|
|
14 |
} |
|
|
15 |
|
|
|
16 |
cpp_find_descendents <- function(alpha, i) { |
|
|
17 |
.Call(`_outbreaker2_cpp_find_descendents`, alpha, i) |
|
|
18 |
} |
|
|
19 |
|
|
|
20 |
cpp_find_local_cases <- function(alpha, i) { |
|
|
21 |
.Call(`_outbreaker2_cpp_find_local_cases`, alpha, i) |
|
|
22 |
} |
|
|
23 |
|
|
|
24 |
cpp_swap_cases <- function(param, i) { |
|
|
25 |
.Call(`_outbreaker2_cpp_swap_cases`, param, i) |
|
|
26 |
} |
|
|
27 |
|
|
|
28 |
cpp_get_n_mutations <- function(data, i, j) { |
|
|
29 |
.Call(`_outbreaker2_cpp_get_n_mutations`, data, i, j) |
|
|
30 |
} |
|
|
31 |
|
|
|
32 |
cpp_lookup_sequenced_ancestor <- function(data, param, i) { |
|
|
33 |
.Call(`_outbreaker2_cpp_lookup_sequenced_ancestor`, data, param, i) |
|
|
34 |
} |
|
|
35 |
|
|
|
36 |
cpp_ll_genetic <- function(data, param, i = NULL, custom_function = NULL) { |
|
|
37 |
.Call(`_outbreaker2_cpp_ll_genetic`, data, param, i, custom_function) |
|
|
38 |
} |
|
|
39 |
|
|
|
40 |
cpp_ll_timing_infections <- function(data, param, i = NULL, custom_function = NULL) { |
|
|
41 |
.Call(`_outbreaker2_cpp_ll_timing_infections`, data, param, i, custom_function) |
|
|
42 |
} |
|
|
43 |
|
|
|
44 |
cpp_ll_timing_sampling <- function(data, param, i = NULL, custom_function = NULL) { |
|
|
45 |
.Call(`_outbreaker2_cpp_ll_timing_sampling`, data, param, i, custom_function) |
|
|
46 |
} |
|
|
47 |
|
|
|
48 |
cpp_ll_reporting <- function(data, param, i = NULL, custom_function = NULL) { |
|
|
49 |
.Call(`_outbreaker2_cpp_ll_reporting`, data, param, i, custom_function) |
|
|
50 |
} |
|
|
51 |
|
|
|
52 |
cpp_ll_contact <- function(data, param, i = NULL, custom_function = NULL) { |
|
|
53 |
.Call(`_outbreaker2_cpp_ll_contact`, data, param, i, custom_function) |
|
|
54 |
} |
|
|
55 |
|
|
|
56 |
cpp_ll_timing <- function(data, param, i = NULL, custom_functions = NULL) { |
|
|
57 |
.Call(`_outbreaker2_cpp_ll_timing`, data, param, i, custom_functions) |
|
|
58 |
} |
|
|
59 |
|
|
|
60 |
cpp_ll_all <- function(data, param, i = NULL, custom_functions = NULL) { |
|
|
61 |
.Call(`_outbreaker2_cpp_ll_all`, data, param, i, custom_functions) |
|
|
62 |
} |
|
|
63 |
|
|
|
64 |
cpp_move_mu <- function(param, data, config, custom_ll = NULL, custom_prior = NULL) { |
|
|
65 |
.Call(`_outbreaker2_cpp_move_mu`, param, data, config, custom_ll, custom_prior) |
|
|
66 |
} |
|
|
67 |
|
|
|
68 |
cpp_move_pi <- function(param, data, config, custom_ll = NULL, custom_prior = NULL) { |
|
|
69 |
.Call(`_outbreaker2_cpp_move_pi`, param, data, config, custom_ll, custom_prior) |
|
|
70 |
} |
|
|
71 |
|
|
|
72 |
cpp_move_eps <- function(param, data, config, custom_ll = NULL, custom_prior = NULL) { |
|
|
73 |
.Call(`_outbreaker2_cpp_move_eps`, param, data, config, custom_ll, custom_prior) |
|
|
74 |
} |
|
|
75 |
|
|
|
76 |
cpp_move_lambda <- function(param, data, config, custom_ll = NULL, custom_prior = NULL) { |
|
|
77 |
.Call(`_outbreaker2_cpp_move_lambda`, param, data, config, custom_ll, custom_prior) |
|
|
78 |
} |
|
|
79 |
|
|
|
80 |
cpp_move_t_inf <- function(param, data, list_custom_ll = NULL) { |
|
|
81 |
.Call(`_outbreaker2_cpp_move_t_inf`, param, data, list_custom_ll) |
|
|
82 |
} |
|
|
83 |
|
|
|
84 |
cpp_move_alpha <- function(param, data, list_custom_ll = NULL) { |
|
|
85 |
.Call(`_outbreaker2_cpp_move_alpha`, param, data, list_custom_ll) |
|
|
86 |
} |
|
|
87 |
|
|
|
88 |
cpp_move_swap_cases <- function(param, data, list_custom_ll = NULL) { |
|
|
89 |
.Call(`_outbreaker2_cpp_move_swap_cases`, param, data, list_custom_ll) |
|
|
90 |
} |
|
|
91 |
|
|
|
92 |
cpp_move_kappa <- function(param, data, config, list_custom_ll = NULL) { |
|
|
93 |
.Call(`_outbreaker2_cpp_move_kappa`, param, data, config, list_custom_ll) |
|
|
94 |
} |
|
|
95 |
|
|
|
96 |
cpp_prior_mu <- function(param, config, custom_function = NULL) { |
|
|
97 |
.Call(`_outbreaker2_cpp_prior_mu`, param, config, custom_function) |
|
|
98 |
} |
|
|
99 |
|
|
|
100 |
cpp_prior_pi <- function(param, config, custom_function = NULL) { |
|
|
101 |
.Call(`_outbreaker2_cpp_prior_pi`, param, config, custom_function) |
|
|
102 |
} |
|
|
103 |
|
|
|
104 |
cpp_prior_eps <- function(param, config, custom_function = NULL) { |
|
|
105 |
.Call(`_outbreaker2_cpp_prior_eps`, param, config, custom_function) |
|
|
106 |
} |
|
|
107 |
|
|
|
108 |
cpp_prior_lambda <- function(param, config, custom_function = NULL) { |
|
|
109 |
.Call(`_outbreaker2_cpp_prior_lambda`, param, config, custom_function) |
|
|
110 |
} |
|
|
111 |
|
|
|
112 |
cpp_prior_all <- function(param, config, custom_functions = NULL) { |
|
|
113 |
.Call(`_outbreaker2_cpp_prior_all`, param, config, custom_functions) |
|
|
114 |
} |
|
|
115 |
|