TireCompanies <- function(n=500) 
     {
     companyA = rnorm(n,32000,3000)
     companyB =abs(35500+20*(rnorm(n,333,100)-rexp(n,0.003)))


     Tires = data.frame(companyA,companyB)

     return(Tires)}