added Truncate

I have added a `Truncate` function (`trunc` and `truncate` are already base named functions).  It may need cleaned up/renamed ect.  It basically provides a truncated display of data.frames and matrices.  It may not fir with the package though.  If it doesn't my feelings will remain in tact.

TR