Question

Consider the continuous function r22r+3 ifr < 0 f(r)=r+3 12 +4 7 if 2 < x. T>r50 Write a function tmpFn which takes a single argument xVec. The function should return the vector of values of the function f(x) evaluated at the values in xVec Hence plot the function f(x) for -3 <x< 3.

R programming

Answer 1

Code:

tempFn <- function(xVec){
    f = integer(length(xVec))
    for (i in seq(1, length(xVec))) {
    if(xVec[i] < 0){
        f[i] <- xVec[i]*xVec[i] + 2*xVec[i] + 3
        }
    else if(xVec[i] >= 0 && xVec[i] <2){
        f[i] <- xVec[i] + 3
        }
    else if(xVec[i] >= 2)
        {
    f[i] <- xVec[i]*xVec[i] + 4*xVec[i] - 7}
        }
    return(f)
 }
xVec <- seq(-3, 3) 
y <- tempFn(xVec)
print("f(x) = ")
print(y)
plot(xVec, y, 'o-')

Output of above Code:

[1] "f(x) 6 3 2 3 45 14 [1] 14 CO 3 2 1 0 -1 -2 3 xVec tol