Так что, если вы просто хотите, чтобы Евклидово расстояние соответствовало возрасту каждого человека, вы можете сделать что-то вроде:
d <- dist(myData[c("person","person_age")])
Ваш вопрос все еще невероятно искажен.Например, что означает «вычислить [sic] евклидово расстояние между каждым человеком и компанией»?
Если вы просто хотите узнать расстояние между каждым человеком и компанией, в которой он работает, вы можете закодировать это как:
with(myData, ((person_age - company_age)^2)^.5 )
, что является просто формулой 2-го евклидова расстояния