# NOT RUN {
formula <- ~DIAGNOSIS
refs <- 'Not IBD'
dat <- prepare_data(otu_table=GEVERS$OTU,rows_are_taxa=FALSE,tax_table=GEVERS$TAX,
metadata=GEVERS$META,formula=formula,refs=refs,
cn_normalize=TRUE,drop=TRUE)
# }
# NOT RUN {
topics <- find_topics(dat,K=15)
functions <- predict(topics,reference_path='/references/ko_13_5_precalculated.tab.gz')
function_effects <- est(functions,level=3,
iters=500,method='hmc',
prior=c('laplace','t','laplace'),
return_summary=FALSE)
function_effects_summary <- extract(function_effects)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab