Update function_sdp_testandtreat_d1.R

Clean up assignment of "art.type"