Got 4 samples, and got: 5 data fields.
Header: infected_01	infected_02	uninfected_01	uninfected_02
Next: TRINITY_DN0_c0_g1	3114.83	2579.54	3731.78	1548.10

$VAR1 = {
          'uninfected_02' => 4,
          'infected_02' => 2,
          'infected_01' => 1,
          'uninfected_01' => 3
        };
Contrasts to perform are: $VAR1 = [
          [
            'infected',
            'uninfected'
          ]
        ];
Loading required package: edgeR
Loading required package: limma