Create functional_response.R