# NOT RUN {
data(otu_table)
# Create a small table for z-score normalization
example <- year_subset("05", otu_table)
example <- bog_subset("TBE", example)
# Remove OTUs that are not present in this subset
example <- example[which(rowSums(example) > 0), ]
z_otu_table <- zscore(example)
# }
Run the code above in your browser using DataLab