Write an R script that will read keyboard input of 3 test scores. Use a function named CalcAveargeScore that will return the average of the 3 test scores. Print the average of test scores returned from the function according to the following format: The AverageTestScore is 89.54 Data Function Heading Algorithm