Create TransposeFunction.R