Assign a new otu_table object to x orig_feat slot

Assign a new otu_table object to x orig_feat slot

orig_feat(x) <- value

# S4 method for siamcat,otu_table
orig_feat(x) <- value

Arguments

x	an object of class siamcat-class
value	an object of class otu_table-class

Value

none

Examples

data(siamcat_example)
orig_feat(siamcat_example) <- orig_feat(siamcat_example)