X-set-funData-method function

Set X slot for funData objects

## S4 replacement method for signature 'funData'
X(object) <- value