Added R example for heat_transfer