In r，write two vectorized functions called is_true() and defined as follows.(a) the is_true() function inputs a vector x and, for each element in x, outputs true if and only if that element of x is true and outputs false otherwise.(b) the is_false() function inputs a vector x and, for each element in x, outputs true if and only if that element of x is false and outputs false otherwise. verify your functions on the vectors c(true, false, na) and c(1,0,1).