in r programming language

Read the following script snippets and results, and then write your script to

(a) reverse a character string REDRUM by characters and print the result.

(b) reverse a character string \"what is going on\" by words and print the result.

> strsplit(\"big bang theory\", split = \"\")[[1]] ]]

[1] \"b\" \"\" \"\" \"\" \"\" \"a\" \"n\" \"g\" \" \" \"\" \"\" \"\" \"\" \"r\" \"Y\"

> strsplit(\"big bang theory\", split = \" \")

[[1]] [1] \"big\" \"bang\" \"theory\"

> paste(c(\"hello\", \"world\"), collapse \"'\"')

[1] \"helloworld\" >

paste(c(\"hello\", \"world\"), collapse \")

[1] \"hello world\" >

rev(1 : 5) [1] 5 4 3 2 1 = =