R/find_model_response_from_coeff.R

In jakubnowicki/artificialmorpho: Generator of artificial landmark sets

#' Solves equation
#'
#' Solves equation y = ax + b
#'
#' @param interception interception
#' @param slope slope
#' @param x x
#' @param y y
#' @export

find.model.response.from.coeff <- function(interception, slope,x=NA,y=NA) {
  if (is.na(x) & is.na(y)) {
    stop("x or y value needed")
  }
  if (!is.na(x) & !is.na(y)) {
    stop("x, y - only one value needed")
  }
  if (!is.na(x)) {
    y <- slope * x + interception
    return(y)
  }
  else {
    x <- (y-interception)/slope
    return(x)
  }
}