Open sashahafner opened 2 years ago
man.trt3
is missing none
, and there are None
and none
acidtab <- table(paste(pdat$man.trt1, pdat$man.trt2, pdat$man.trt3), pdat$acid)
acidtab <- acidtab[order(-acidtab[, 'TRUE']), ]
acidtab
FALSE TRUE
Acidification None NA 0 42
Acidification NA NA 0 24
Barn acidification NA 0 12
Field acidification NA 0 12
Acidification Anaerobic digestion NA 0 8
Acidification Mechanical separation NA 0 8
Anaerobic digestion Mechanical separation Acidification 0 8
none NA 72 0
Anaerobic digestion NA 26 0
Anaerobic digestion Ammonia stripping NA 3 0
Anaerobic digestion Floculation NA 9 0
Anaerobic digestion Mechanical separation NA 10 0
Anaerobic digestion Mechanical separation None 18 0
Anaerobic digestion NA NA 32 0
anaerobic digestion none NA 1 0
Anaerobic digestion none NA 137 0
Anaerobic digestion None NA 6 0
Dilution NA NA 3 0
Filtration NA 21 0
Floculation NA 10 0
Gravity separation NA 21 0
Gravity separation NA NA 24 0
In-house separation none NA 62 0
Low DM none NA 12 0
Low protein diet none NA 9 0
Mechanical separation none NA 4 0
Mechanical separation None NA 6 0
NA NA NA 3 0
None NA 99 0
None Anaerobic digestion NA 8 0
None Mechanical separation NA 8 0
None NA NA 66 0
none none NA 231 0
None none NA 950 0
None None NA 218 0
Surface none NA 48 0