#加载sangerseqR包
library(sangerseqR)
#读入数据
seq = readsangerseq('input.ab1')
#读取碱基数据,0.33指的是将达到主峰0.33的次峰定义为杂合子峰
bc = makeBaseCalls(seq, ratio = 0.33)
#读主峰
primarySeq(seq)
#读次峰
secondarySeq(seq)
#输出可视化图像,也可以选择输出到pdf
chromatogram(bc, showcalls = 'both')
R包SangerSeqR处理ab1数据
最新推荐文章于 2022-02-10 20:37:52 发布