add simple freq pattern R