test_method <- function (arg_1, arg_2) {
	result <- arg_1 + arg_2
	return(result)
}