# NOT RUN {
ps=getProjectSummary("SRP047083")
samp=projectSamples(ps)
runs=runsBySample(ps,samp[2])
# merge two:
otu1=getRunOtu(runs[1])
otu2=getRunOtu(runs[2])
mergeOtu(otu1,otu2)
# merge many:
otuList=lapply(as.list(runs[1:5]),function(rid){getRunOtu(rid)})
Reduce(mergeOtu,otuList)
# }
Run the code above in your browser using DataLab