fix the bug in sampleName<- method #129