Update fista.R

'fitype' should be one of 'ordinary', 'adapt', 'refit', 'adprf'