Extend head for Tensor
## S4 method for signature 'Tensor' head(x, ...)
x
the Tensor instance
...
additional parameters to be passed into head()
head(x,...)
tail-methods
tnsr <- rand_tensor() head(tnsr)