R/group_index.R

In salah31416/eeiR: Ecological Evaluation Index in R

##-------------------------------------------
## Author  : Izi
## Project : 
## Created : dom 17 mai 2020 14:13:29 -03
## License : MIT
## Updated :
##-------------------------------------------
group_index = function(data, id_names = c("Taxa"), col_data = "Taxa", variable_name = "variable", by = NULL, ref = NULL, add = NULL, k = NULL, na.rm = FALSE){

	DTA = copy(data)

	idNames = unique(c(names(DTA[, id_names, with=F]), "FG", col_data))

	GE = group_esg(DTA, col_data, ref, add)

	out = index(GE, id_names=idNames, fg_name = "FG",  variable_name, by, k, na.rm)
	
	return(out)
}#end group_index