Generate AFT model with exponential distribution in R

Question

I have problem in simulating an AFT model with different distribution in R, for example, exponential distribution as simplest. My current code goes like this,