Consider a Poisson log-likelihood function with an unknown rate parameter 1(2) = [(y,In(2) - 1 - In(y,!)) i=1 Write an R function, which returns the log-likelihood value for a given sample and 2 parameter. Part b Generate 3 different samples of 100 observations from Poisson distribution with parameter 3. Combine them in a data frame. (Hint: You can check rpois() command). Then, test your function on the variables in this data frame using the corresponding *apply function.