GTQuaternionQ[q]
gives True if q is a quaternion, and gives False otherwise.
First, load the package:
Then run the example:
GTGetEulerAngles GTGetMatrix GTGetQuaternion GTGetSymbol GTEulerAnglesQ GTGroupQ GTSymbolQ GTQAbs GTQConjugate GTQInverse GTQPolar GTTransformation MatrixQ