# NOT RUN {
library(repmis)
source_data("https://github.com/jimclarkatduke/gjam/blob/master/fungEnd.RData?raw=True")
ymat <- gjamReZero(fungEnd$yDeZero) # OTUs stored without zeros
length(fungEnd$yDeZero$yvec) # size of stored version
length(ymat) # full size
yDeZero <- gjamDeZero(ymat)
length(yDeZero$yvec) # recover de-zeroed vector
# }
Run the code above in your browser using DataLab