Write R code to create a function that returns Jaccard Coefficient. Your function should look like, yourFunction(A, B), where A and B respectively take a vector of words as input. Your function should return Jaccard Coefficient as a result as shown in Example1 below. (Hint: Use two functions, intersection() and union() inside your function. Intersection() returns common elements from two vectors. Union() returns union from two vectors as shown in Example2.] # Example1: v1 = c("California, state) V2 = c("California, state, university) yourFunction(v1, v2) >> 2/3 # Example2: v1 = c("California, state) V2 = c("California", "state, university) intersection(v1, v2) >> "georgia "state" union(v1, v2) >>"California" "state" "university" Write R code to create a function that returns Jaccard Coefficient. Your function should look like, yourFunction(A, B), where A and B respectively take a vector of words as input. Your function should return Jaccard Coefficient as a result as shown in Example1 below. (Hint: Use two functions, intersection() and union() inside your function. Intersection() returns common elements from two vectors. Union() returns union from two vectors as shown in Example2.] # Example1: v1 = c("California, state) V2 = c("California, state, university) yourFunction(v1, v2) >> 2/3 # Example2: v1 = c("California, state) V2 = c("California", "state, university) intersection(v1, v2) >> "georgia "state" union(v1, v2) >>"California" "state" "university