Question

Can you give me the code for Question 12 through using R-programming? The Question instruction is Above question 9. Please help.

Functional programming For problems 9-12, you are shown a for loop. Write a function f which can be used with the indicated functional programming construct to "replace" this for loop. For example, if you are given: n - length(input) output vector("double", n) for (i in 1:n) { output I[i-(input[i mean(input[i]))/sd( input[[i]]) # replace with: output <-map(iput, f) then a solution could be: f <- funct ion(x) (x mean(x)) / sd(x) Problem 9 nlength(input) output-vector("double", n) for (i in 1:n) output imax(inputi min(irouti]I) # replace with: output <-map-dbl (input, f9)

Answer 1

Problem 9 : To calculate range of 'input'

f9 <- function(x){
diff(range(x))
}

Problem 10 : to calculate the cumulative sum inn 'input'

f10 <- function(x){
cumsum(x)
}

Problem 11 : to calculate mode in 'input'

f11 <- function(x){
max((x-mean(x))/sd(x))
}