#How to calculate Euclidean Distance in R?

euclidean_dist

#How to calculate Euclidean Distance in R?
print("How to calculate Euclidean Distance in R?")
 
fa <- c(5,2,1,4)
fb <- c(5,5,4,2)
 
fm <- matrix(c(fa,fb), byrow=T, nrow=2)
 
col_names_vectors <- c("U1", "U2", "U3", "U4")
row_names_vectors <- c("FilmA","FilmB")
 
colnames(fm) <- col_names_vectors
rownames(fm) <- row_names_vectors
 
fm
 
#Euclidean Distance based on matrix

#Distance from user1 (U1) to the new user
d1 <- sqrt((fm[1,1]-fm[1,4])^2 + (fm[2,1]-fm[2,4])^2)
d1

#Distance from user2 (U2) to the new user 
d2 <- sqrt((fm[1,2]-fm[1,4])^2 + (fm[2,2]-fm[2,4])^2)
d2

#Distance from user3 (U3) to the new user 
d3 <- sqrt((fm[1,3]-fm[1,4])^2 + (fm[2,3]-fm[2,4])^2)
d3
 
distance_vector <- c(d1,d2,d3)
#Checking which distance is the smallest one
min(distance_vector)
#For the new user, system should recommend user1 (U1)