Update splicing.R

changed seqlogo function to accept file or vector