read.abif function.plotabif(abifdata,
chanel = 1,
tmin = 1/tscale,
tmax = abifdata$Data[["SCAN.1"]]/tscale,
tscale = 1000,
yscale = 1000, type = "l", las = 1,
xlab = paste("Time", tscale, sep = "/"),
ylab = paste("RFU", yscale, sep = "/"),
irange = (tmin*tscale):(tmax*tscale),
x = irange/tscale,
xlim = c(tmin, tmax),
chanel.names = c(1:4,105),
DATA = paste("DATA", chanel.names[chanel], sep = "."),
y = abifdata$Data[[DATA]][irange]/yscale,
ylim = c(min(y), max(y)),
dyn = abifdata$Data[[paste("DyeN", chanel, sep = ".")]],
main = paste(deparse(substitute(abifdata)), chanel, dyn, sep = " ; "),
calibr = NULL,
ladder.bp = NULL,
allele.names = "identifiler",
ladder.lab = TRUE,
...)read.abifplotplotplotplotplotplotplotplotcitation("seqinr")read.abif to import files in ABIF format,
data gs500liz for internal size standards,
data identifiler for allele names in the allelic ladder,
data JLO for an example of an individual sample file,
data ECH for an example of an allelic lader.data(ECH)
plotabif(ECH,chanel = 1, tmin = 3.2, tmax = 6.1)Run the code above in your browser using DataLab