```r
find_intersection_point <- function(vector1, vector2) {
  # Extract coordinates from vectors
  x1 <- vector1[1]
  y1 <- vector1[2]
  x2 <- vector2[1]
  y2 <- vector2[2]
  
  # Calculate determinant of the matrix
  det <- x1 * y2 - x2 * y1
  
  # Check if determinant is zero, which means the vectors are parallel
  if (det == 0) {
    return(NULL)
  }
  
  # Calculate the intersection point
  x <- (x2 * y1 - x1 * y2) / det
  y <- (-y2 * x1 + x2 * y1) / det
  
  # Return intersection point as a vector
  return(c(x, y))
}
```
```r
find_intersection_point <- function(vector1, vector2) {
  # Extract coordinates from vectors
  x1 <- vector1[1]
  y1 <- vector1[2]
  x2 <- vector2[1]
  y2 <- vector2[2]
  
  # Calculate determinant of the matrix
  det <- x1 * y2 - x2 * y1
  
  # Check if determinant is zero, which means the vectors are parallel
  if (det == 0) {
    return(NULL)
  }
  
  # Calculate the intersection point
  x <- (x2 * y1 - x1 * y2) / det
  y <- (-y2 * x1 + x2 * y1) / det
  
  # Return intersection point as a vector
  return(c(x, y))
}
```