How to get 100 samples each of length 1000 of sample proportion of 5-mers that are AATAA

Question

I am very new to R. Could you please help?

I need to calculate the mean of the sample proportions of 5-mers that are AATAA. But stuck in obtaining 100 samples each of