User Data Entry.R

#1 Define Function
Userinput <- function(){
#2 Define User Input and Data Entry Code
User.Input <- readline(prompt="Enter Text: ")
#3 Print 
print(User.Input)
}
Userinput()