cc_matlab =  xcorr(x,y,176); %You can upload the ts via github
stem(cc_matlab) %alternatively, to see the shape use plot()

x <- R.matlab::readMat('x.mat')$x #read the series
y <- R.matlab::readMat('y.mat')$y
cc_R<-stats::ccf(array(x),array(y),176,plot=T) #cross-correlation function