my $d = PDL::CV->new(sequence(4,5));
my $t = pdl sequence(100,5,5);
$d(0,1:4)->rp($t(0,0,1:4));