MUST BE DONE IN R LANGUAGE!!

Let subset.iris.2 <- as.matrix(iris[, 1:4]), fill blanks in the find.max function defined below to find the maximal value in each column of subset.iris.2.

find.max <- function(x){

y <- function(xcol){

return(_________)

}

return(_______(x, ____, y))

}

________(subset.iris.2)

I can't get past the second return function. It keeps popping up with an error because it starts a new line, and isn't a continuation. I can't get the bracket spaces to work in R either.