Please use R.

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 <- c("house", "6", "2.2", "a", "3.4", "1") Then the output of by_type(x) will be a list:

$integers

[1] 6 1 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"

If the vector contains logical TRUE/FALSE values, those should be put into the character section.