# NOT RUN {
# Beginning with two data.frames with column OTU
dfOfChrSize$OTU<-1
dfOfMarks2$OTU<-1
# add column chrSize if missing
dfOfChrSizeWithChrSize <- armRatioCI(dfOfChrSize)
#data.frame of chr. size to list
listOfdfChr<-idiogramFISH:::dfToListColumn(dfOfChrSizeWithChrSize)
perMark(dfOfMarks2,listOfdfChr)
# }
Run the code above in your browser using DataLab