In r, write the function by_type() that will work for the following codes:

1

x <- c("a", "1", "2.2", "house", "3.4", "6") by_type(x,sort = FALSE)

2

set.seed(1) x <- sample(c(1:10, (1:10)*0.3, letters[1:10])) by_type(x) by_type(x, sort = TRUE)

3

x <- 10:1 by_type(x, sort = TRUE)

x <- logical(5) by_type(x)

x <- seq(0,4,by = 0.2) by_type(x)

and this function's output should be something like the following:

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