Filter by abundance (Here, I filter to only OTUs that have at least 25 observations)
input_rar_filt2 = rowSums(input_rar_filt$data_loaded)
class(input_rar_filt2)
input_rar_filt3 = input_rar_filt$data_loaded[input_rar_filt2 >= 25, ]
Filter by number of samples observed in (Here, I filter to only OTUs found in at least 5 samples)
input_rar_filt4 = rowSums(input_rar_filt3 [,] > 1) *1
input_rar_filt5 = input_rar_filt3 [input_rar_filt4 >= 5,]
Filter by abundance (Here, I filter to only OTUs that have at least 25 observations)
input_rar_filt2 = rowSums(input_rar_filt$data_loaded)
class(input_rar_filt2)
input_rar_filt3 = input_rar_filt$data_loaded[input_rar_filt2 >= 25, ]
Filter by number of samples observed in (Here, I filter to only OTUs found in at least 5 samples)
input_rar_filt4 = rowSums(input_rar_filt3 [,] > 1) *1
input_rar_filt5 = input_rar_filt3 [input_rar_filt4 >= 5,]