fixed acf with similar not exact results in R