data <- data.frame(
Cephalobus = c(10, 20, 30),
Eucephalobus = c(5, 10, 12),
Acrobeloides = c(1, 2, 3),
Caenorhabditis = c(5, 8, 15),
Aphelenchus = c(5, 13, 11),
Leptonchus = c(3, 10, 15),
Pratylenchus = c(9, 2, 15),
Tylenchus = c(5, 0, 15),
Mesodorylaimus = c(7, 10, 18),
Discolaimus = c(1, 10, 25),
row.names = c("Sample1", "Sample2", "Sample3")
)
abundance <- data.frame(
Abundance = c(100, 200, 300),
row.names = c("Sample1", "Sample2", "Sample3")
)
result <- NEF(data, abundance)
print(result)
Run the code above in your browser using DataLab