IN R!!!!!

This is what I have but I am not sure.

Part 1 Write a function called by_type () that takes an atomic vector as input and an optional argument 'sort with default value FALSE. The function looks at each element in the atomic vector and sees if it can coerce them into integer or floating- point values. The function outputs a list that has separated the values into a list with integers, doubles, and character values. If the optional argument sort is TRUE, then it will sort the results of each vector. For example, if x is the following vector, X $integers [1] 6 1 $doubles [1] 2.2 3.4 $character [1] "house" "a" If sort = TRUE then the output will sort each section and return: by_type(x, sort = TRUE) $integers [1] 1 6 $doubles [1] 2.2 3.4 $character [1] "a" "house" Numbers such as 5.0 and 5 will be classified as integers. If the vector contains logical TRUE/FALSE values, those should be put into the character section. If the input has no values of a certain type, it should show a zero-length vector of that type. For example, if there are no character values, the list should have character(0) in the character part of the list. NA values can be assumed to be of character type and when sorted will show up at the end after all other characters. No warnings should be produced in your output. = = numerico, "characters" character(0) 0/ #1 by_type