R/move_fish.R

In DanOvando/spasm: SPatial Age Structured Model (SPASM)

#' \code{move_fish} moves fish via a movement function
#'
#' @param here_pop
#'
#' @return relocated adult fish
#' @export
#'
move_fish <- function(here_pop, num_patches, fish, move_matrix){

  # from Siegal et al. 2003

  # move_foo <- function(numbers, move_matrix) {
  #
  #   moved <- as.numeric(numbers %*% move_matrix)
  #
  # }

  there_pop <- here_pop %>%
    group_by(age) %>%
    # mutate(numbers = eigen_mat_mult(matrix(numbers) %>% t(), move_matrix) %>% as.numeric()) %>%
    mutate(numbers = crossprod(numbers, move_matrix) %>% as.numeric()) %>%
    # mutate(numbers = move_foo(numbers, move_matrix)) %>%
    ungroup()

  return(there_pop)

}