Calculate in R

T's = (Xs1, . . . , Isn) and Ws = (Ws1, . .., Wan) (s = 1, 2, 3, 4) are vectors defined in the R code below. We want to calculate _: (I si / Wsi) 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) *s