Simplest way to work out structural variant type?
GRIDSS's author had posted his own solution on Github. The code is:

simpleEventType &lt;- function(gr) {
    return(ifelse(seqnames(gr) != seqnames(partner(gr)), "ITX", # inter-chromosomosal
           ifelse(gr$insLen &gt;= abs(gr$svLen) * 0.7, "INS",
           ifelse(strand(gr) == strand(partner(gr)), "INV",
           ifelse(xor(start(gr) &lt; start(partner(gr)), strand(gr) == "-"), "DEL", "DUP")))))
}