by the data from Feb 20, 2020 to Feb 23, 2020, and R