https://stats-learn.com/en/r-learn/the-way-to-prepare-rows-in-r/