Use Rprof () to profile the gen Kids U () function in the previous exercise. As in Section 7.4, profile the code by calling gen Kids U () 1000 times with the parameter settings: b Time = 1, c Time = 100, and the default values for λ and κ. Also profile the code with one simulation, where c Time = 1000000. Do the profiles look different? Try improving the efficiency of your code based on the profile information. Additionally, does the code include calls to force () and deparse ()? Or some other unexpected functions? Can you determine why these functions are being called?