Как написать функцию расстояния в R?

---

Расстояние
Напишите функцию find_distance (), которая возвращает расстояние между двумя заданными точками. Вы
должен быть в состоянии вызвать функцию следующим образом:
# координаты точки-1 и точки-2
p1 <- c(0, 0)
p2 <- c(1, 1)
find_distance(Р1, Р2)
Середина
Напишите функцию find_midpoint (), которая возвращает среднюю точку между двумя заданными точками. Вы
должен быть в состоянии вызвать функцию следующим образом:
p1 <- c(0, 0)
p2 <- c(1, 1)
find_midpoint(Р1, Р2)
Склон
Напишите функцию find_slope (), которая возвращает наклон линии, соединяющей две заданные точки.
Вы должны быть в состоянии вызвать эту функцию следующим образом:
p1 <- c(0, 0)
p2 <- c(1, 1)
find_slope(Р1, Р2)
Перехват
Напишите функцию find_intercept (), которая возвращает перехват линии, соединяющей два
данная точка. Эта функция должна внутренне использовать find_slope()

Что я уже пробовал:

Мне нужно использовать для петель, это в R. пожалуйста, помогите! Я новичок в программировании , и я совершенно потерялся

---