Update BaiscTrans.R