| as_tna_model | R Documentation |
Convert a tidy simulab TNA result to a native tna model
as_tna_model(x, group = NULL)
x |
A result from |
group |
Optional group name for a grouped model. When omitted, the complete native grouped model is returned. |
A native tna or group_tna model object. For a
compare_tna_models() result the stored models are returned as a list
named by model type instead.
data <- simulate_sequences(n = 40, n_states = 3, chain_length = 12, seed = 1)
if (requireNamespace("tna", quietly = TRUE)) {
model <- as_tna_model(fit_tna(data, model = "tna"))
class(model)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.