Update diagnose.R

Fixed bug in diagnose.ds for multivariate time series (PCA)