如何编写代码来测试数据集的三行是否可以是R中三角形的边

# 定义一个函数来判断三个点是否可以构成一个三角形
is_triangle <- function(x1, y1, x2, y2, x3, y3) {
  # 计算三个点之间的距离
  d1 <- sqrt((x2 - x1)^2 + (y2 - y1)^2)
  d2 <- sqrt((x3 - x2)^2 + (y3 - y2)^2)
  d3 <- sqrt((x1 - x3)^2 + (y1 - y3)^2)
  
  # 判断三个距离是否满足三角形的边长关系
  if (d1 + d2 > d3 && d2 + d3 > d1 && d1 + d3 > d2) {
    return(TRUE)
  } else {
    return(FALSE)
  }
}

# 测试数据集的三行是否可以构成一个三角形的边
x1 <- 1
y1 <- 1
x2 <- 2
y2 <- 3
x3 <- 4
y3 <- 2

is_triangle(x1, y1, x2, y2, x3, y3)