Create an R function $`$pwfun$()`,$ which computes values of the piece$-$wise $($mathematical$)$ function

Its graph is as follows.

Your R function $`$pwfun$()`$ should also accept $`$x$`$ as a vector of arbitrary length and return vector of the same length with entries defined as values of the mathematical function, evaluated at the corresponding entries of vector $`$x$`.$