polarolouis/anova-phylogenetique-projet-msv
1
0
Fork 0
mirror of https://github.com/Polarolouis/anova-phylogenetique-projet-msv.git synced 2026-06-17 18:25:25 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨Extracting nb_species and K number of groups from model fit

Browse source
This commit is contained in:
Louis Lacoste 2024-02-07 11:43:50 +01:00
parent aa13972a3d
commit 00d4f979f8
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
R/utils.R
View file

@ -231,7 +231,6 @@ compute_trait_values <- function(
return(trait + trait_phylo + trait_error) return(trait + trait_phylo + trait_error)
} }
# TODO Récupérer K et nb_species des objets
#' Infere an ANOVA and a phyloanova #' Infere an ANOVA and a phyloanova
#' #'
#' @param y the vector of traits for which to fit the models #' @param y the vector of traits for which to fit the models
@ -263,6 +262,10 @@ pvalues_from_fits <- function(
#  For sanity test #  For sanity test
match.arg(tested_method) match.arg(tested_method)
# Extracting values
nb_species <- nrow(model.frame(fit_anova))
K <- length(unique(model.frame(fit_anova)$groups))
is_invalid_value <- function(value) { is_invalid_value <- function(value) {
return(is.nan(value) || return(is.nan(value) ||
is.null(value) || is.null(value) ||