Got 2 samples, and got: 3 data fields.
Header: D26_infected_01	D26_uninfected_01
Next: TRINITY_DN0_c0_g1	2578.60	1547.93

$VAR1 = {
          'D26_infected_01' => 1,
          'D26_uninfected_01' => 2
        };
Contrasts to perform are: $VAR1 = [
          [
            'infected',
            'uninfected'
          ]
        ];
Loading required package: edgeR
Loading required package: limma