Проекция двух векторов в R

Question

Я хочу рассчитать проекцию u⟶v

Определение: proj (u⟶v) = u⋅v | v | 2v

# my 2 vectors 
u<-c(1.5,sqrt(3)/2)
v<-c(2,0)

Ответ должен выглядеть следующим образом :

[1] 1.5 0.0

Answer 1

Не совсем уверен, что вы ищете.

u <- c(1.5,sqrt(3)/2)
v <- c(2,0)

as.vector( (u %*% v) / (v %*% v) ) * v

дает

[1] 1.5 0.0

Вы можете обернуть это в функцию

proj <- function(u, v) {
 return(as.vector( (u %*% v) / (v %*% v) ) * v)
}