## Not run:
# # Example solution code:
# # x <- mean(1:3)
#
# # Example SCT
# test_correct({
# test_object("x")
# }, {
# test_function("mean", "x")
# })
#
# # Following submissions will all be accepted:
# x <- mean(1:3)
# x <- 2
# x <- mean(-1:5)
# ## End(Not run)
Run the code above in your browser using DataLab