Nothing
readSeqChiang <-
function(filename) {
## We do not know if the two reads have chromosome match; one read missing
seqMatch = read.table(filename, as.is=TRUE, sep="\t")
seqChr = seqMatch[,1]
seqPos = seqMatch[,2]
rm(seqMatch)
return(list(seqF=seqPos, seqChr=seqChr))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.