please solve this problem using R language

3. Before an increase in excise duty on tea, 800 people out of a sample of 1000 were consumers of tea. After the increase in duty, 800 people were consumers of tea in a sample of 1200 persons. Write down the R programming code to test whether the significant decrease in the consumption of tea after the increase in duty at 1% level of significance