检查数据集中的日期是否对齐的函数

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")
}}

我做错了什么？