# Read dataset
data(Week3_otu)
Week3_otu = data.frame(Week3_otu)
otu_mat_w3 = t(data.matrix(Week3_otu[ , 1:2720]))
# Import dataset from the result of zero_per_group
data(data_zero_per_group_otu_w3)
# Using the function
otu_trim_w3 = SecondFilter(zero.per.group = data_zero_per_group_otu_w3,
Micro.mat = otu_mat_w3, threshold = 0.7, week = 3)
Run the code above in your browser using DataLab