Please provide the R Code

1. Basic calculation in R. (5 pts) T's = (Is1, . . .; Isn) and Ws = (Wg1, . .., Wan) (8 = 1, 2, 3, 4) are vectors defined in the R code below. We want to calculate _: (Isi/ Wgi) where i is the element index. Using Map/mapply function to achieve this calculation for all s. Note you need to return a vector instead of a list. set . seed (32611) x5