R/generate_model.R

In jakubnowicki/artificialmorpho: Generator of artificial landmark sets

#' Create linear model
#'
#' Creates linear of landmarks with size as predictor
#' @param data landmarks array
#' @export
#' @import geomorph

generate.model <- function(data) {
  data.m <- two.d.array(data$coords)
  size <- data$Csize
  n <- ncol(data.m)
  model <- lm(as.matrix(data.m)[,1:n] ~ size)
  return(model)
}