as_emphatic function

Convert a data.frame, matrix or atomic vector into an emphatic version