Update AAAfan_transposition.R