ar(1) code snippets in r

suppose that the price of sugar this month is 20 cents per pound. what price per pound does the ar(1) model forecast for sugar for next month? in r