Функция, чтобы проверить, совпадают ли даты в наборе данных

Question

Я хочу сгенерировать функцию, которая проверяет, совпадают ли даты трех наборов данных в каждой строке.

x<-Gold_Mly$date 
y<-SMI_Mly$date 
z<-SP500_Mly$date

date.check <- function(x, y, z)
{ 
if (x=y=z)
{ 
print("dates align")
}
else { print("dates do not align")
}}

Что я делаю не так?