library("Biostrings")

s1 <-
  DNAString("TGCTCTCGGGAGCCGCCTCCCGACACCCGAGCCCCGCCGGCGCCTCCCGCTCCCGGCTCCCGGCTCCTGGCTCCCTCCGCCTCCCCCGCCCCTCGCCCCGCCGCCGAAGAGGCCCCGCTCCCGGGTCGGACGCCTGGGTCTGCCGGGAAGAGCGATGAGAGGTGTCTGAAGGTGGCTATTCACTGAGCGATGGGGTTGGACTTGAAGGAATGCCAAGAGATGCTGCCCCCACCCCCTTAGGCCCGAGGGATCAGGAGCTATGGGACCAGAGGCCCTGTCATCTTTACTGCTGCTGCTCTTGGTGGCAAGTGGAGATGCTGACATGAAGGGACATTTTGATCCTGCCAAGTGCCGCTATGCCCTGGGCATGCAGGACCGGACCATCCCAGACAGTGACATCTCTGCTTCCAGCTCCTGGTCAGATTCCACTGCCGCCCGCCACAGCAGGTTGGAGAGCAGTGACGGGGATGGGGCCTGGTGCCCCGCAGGGTCGGTGTTTCCCAAGGAGGAGGAGTACTTGCAGGTGGATCTACAACGACTGCACCTGGTGGCTCTGGTGGGCACCCAGGGACGGCATGCCGGGGGCCTGGGCAAGGAGTTCTCCCGGAGCTACCGGCTGCGTTACTCCCGGGATGGTCGCCGCTGGATGGGCTGGAAGGACCGCTGGGGTCAGGAGGTGATCTCAGGCAATGAGGACCCTGAGGGAGTGGTGCTGAAGGACCTTGGGCCCCCCATGGTTGCCCGACTGGTTCGCTTCTACCCCCGGGCTGACCGGGTCATGAGCGTCTGTCTGCGGGTAGAGCTCTATGGCTGCCTCTGGAGGGATGGACTCCTGTCTTACACCGCCCCTGTGGGGCAGACAATGTATTTATCTGAGGCCGTGTACCTCAACGACTCCACCTATGACGGACATACCGTGGGCGGACTGCAGTATGGGGGTCTGGGCCAGCTGGCAGATGGTGTGGTGGGGCTGGATGACTTTAGGAAGAGTCAGGAGCTGCGGGTCTGGCCAGGCTATGACTATGTGGGATGGAGCAACCACAGCTTCTCCAGTGGCTATGTGGAGATGGAGTTTGAGTTTGACCGGCTGAGGGCCTTCCAGGCTATGCAGGTCCACTGTAACAACATGCACACGCTGGGAGCCCGTCTGCCTGGCGGGGTGGAATGTCGCTTCCGGCGTGGCCCTGCCATGGCCTGGGAGGGGGAGCCCATGCGCCACAACCTAGGGGGCAACCTGGGGGACCCCAGAGCCCGGGCTGTCTCAGTGCCCCTTGGCGGCCGTGTGGCTCGCTTTCTGCAGTGCCGCTTCCTCTTTGCGGGGCCCTGGTTACTCTTCAGCGAAATCTCCTTCATCTCTGATGTGGTGAACAATTCCTCTCCGGCACTGGGAGGCACCTTCCCGCCAGCCCCCTGGTGGCCGCCTGGCCCACCTCCCACCAACTTCAGCAGCTTGGAGCTGGAGCCCAGAGGCCAGCAGCCCGTGGCCAAGGCCGAGGGGAGCCCGACCGCCATCCTCATCGGCTGCCTGGTGGCCATCATCCTGCTCCTGCTGCTCATCATTGCCCTCATGCTCTGGCGGCTGCACTGGCGCAGGCTCCTCAGCAAGGCTGAACGGAGGGTGTTGGAAGAGGAGCTGACGGTTCACCTCTCTGTCCCTGGGGACACTATCCTCATCAACAACCGCCCAGGTCCTAGAGAGCCACCCCCGTACCAGGAGCCCCGGCCTCGTGGGAATCCGCCCCACTCCGCTCCCTGTGTCCCCAATGGCTCTGCGTTGCTGCTCTCCAATCCAGCCTACCGCCTCCTTCTGGCCACTTACGCCCGTCCCCCTCGAGGCCCGGGCCCCCCCACACCCGCCTGGGCCAAACCCACCAACACCCAGGCCTACAGTGGGGACTATATGGAGCCTGAGAAGCCAGGCGCCCCGCTTCTGCCCCCACCTCCCCAGAACAGCGTCCCCCATTATGCCGAGGCTGACATTGTTACCCTGCAGGGCGTCACCGGGGGCAACACCTATGCTGTGCCTGCACTGCCCCCAGGGGCAGTCGGGGATGGGCCCCCCAGAGTGGATTTCCCTCGATCTCGACTCCGCTTCAAGGAGAAGCTTGGCGAGGGCCAGTTTGGGGAGGTGCACCTGTGTGAGGTCGACAGCCCTCAAGATCTGGTTAGTCTTGATTTCCCCCTTAATGTGCGTAAGGGACACCCTTTGCTGGTAGCTGTCAAGATCTTACGGCCAGATGCCACCAAGAATGCCAGGAATGATTTCCTGAAAGAGGTGAAGATCATGTCGAGGCTCAAGGACCCAAACATCATTCGGCTGCTGGGCGTGTGTGTGCAGGACGACCCCCTCTGCATGATTACTGACTACATGGAGAACGGCGACCTCAACCAGTTCCTCAGTGCCCACCAGCTGGAGGACAAGGCAGCCGAGGGGGCCCCTGGGGACGGGCAGGCTGCGCAGGGGCCCACCATCAGCTACCCAATGCTGCTGCATGTGGCAGCCCAGATCGCCTCCGGCATGCGCTATCTGGCCACACTCAACTTTGTACATCGGGACCTGGCCACGCGGAACTGCCTAGTTGGGGAAAATTTCACCATCAAAATCGCAGACTTTGGCATGAGCCGGAACCTCTATGCTGGGGACTATTACCGTGTGCAGGGCCGGGCAGTGCTGCCCATCCGCTGGATGGCCTGGGAGTGCATCCTCATGGGGAAGTTCACGACTGCGAGTGACGTGTGGGCCTTTGGTGTGACCCTGTGGGAGGTGCTGATGCTCTGTAGGGCCCAGCCCTTTGGGCAGCTCACCGACGAGCAGGTCATCGAGAACGCGGGGGAGTTCTTCCGGGACCAGGGCCGGCAGGTGTACCTGTCCCGGCCGCCTGCCTGCCCGCAGGGCCTATATGAGCTGATGCTTCGGTGCTGGAGCCGGGAGTCTGAGCAGCGACCACCCTTTTCCCAGCTGCATCGGTTCCTGGCAGAGGATGCACTCAACACGGTGTGAATCACACATCCAGCTGCCCCTCCCTCAGGGAGCGATCCAGGGGAAGCCAGTGACACTAAAACAAGAGGACACAATGGCACCTCTGCCCTTCCCCTCCCGACAGCCCATCACCTCTAATAGAGGCAGTGAGACTGCAGGTGGGCTGGGCCCACCCAGGGAGCTGATGCCCCTTCTCCCCTTCCTGGACACACTCTCATGTCCCCTTCCTGTTCTTCCTTCCTAGAAGCCCCTGTCGCCCACCCAGCTGGTCCTGTGGATGGGATCCTCTCCACCCTCCTCTAGCCATCCCTTGGGGAAGGGTGGGGAGAAATATAGGATAGACACTGGACATGGCCCATTGGAGCACCTGGGCCCCACTGGACAACACTGATTCCTGGAGAGGTGGCTGCGCCCCCAGCTTCTCTCTCCCTGTCACACACTGGACCCCACTGGCTGAGAATCTGGGGGTGAGGAGGACAAGAAGGAGAGGAAAATGTTTCCTTGTGCCTGCTCCTGTACTTGTCCTCAGCTTGGGCTTCTTCCTCCTCCATCACCTGAAACACTGGACCTGGGGGTAGCCCCGCCCCAGCCCTCAGTCACCCCCACTTCCCACTTGCAGTCTTGTAGCTAGAACTTCTCTAAGCCTATACGTTTCTGTGGAGTAAATATTGGGATTGGGGGGAAAGAGGGAGCAACGGCCCATAGCCTTGGGGTTGGACATCTCTAGTGTAGCTGCCACATTGATTTTTCTATAATCACTTGGGGTTTGTACATTTTTGGGGGGAGAGACACAGATTTTTACACTAATATATGGACCTAGCTTGAGGCAATTTTAATCCCCTGCACTAGGCAGGTAATAATAAAGGTTGAGTTTTCCACAAAAAAAAAAAAAAAAAA")
s2 <-
  DNAString("GCCGCCGAAGAGGCCCCGCTCCCGGGTCGGACGCCTGGGTCTGCCGGGAAGAGCGATGAGAGAGATGCTGCCCCCACCCCCTTAGGCCCGAGGGATCAGGAGCTATGGGACCAGAGGCCCTGTCATCTTTACTGCTGCTGCTCTTGGTGGCAAGTGGAGATGCTGACATGAAGGGACATTTTGATCCTGCCAAGTGCCGCTATGCCCTGGGCATGCAGGACCGGACCATCCCAGACAGTGACATCTCTGCTTCCAGCTCCTGGTCAGATTCCACTGCCGCCCGCCACAGCAGGTTGGAGAGCAGTGACGGGGATGGGGCCTGGTGCCCCGCAGGGTCGGTGTTTCCCAAGGAGGAGGAGTACTTGCAGGTGGATCTACAACGACTGCACCTGGTGGCTCTGGTGGGCACCCAGGGACGGCATGCCGGGGGCCTGGGCAAGGAGTTCTCCCGGAGCTACCGGCTGCGTTACTCCCGGGATGGTCGCCGCTGGATGGGCTGGAAGGACCGCTGGGGTCAGGAGGTGATCTCAGGCAATGAGGACCCTGAGGGAGTGGTGCTGAAGGACCTTGGGCCCCCCATGGTTGCCCGACTGGTTCACTTCTACCCCCGGGCTGACCGGGTCATGAGCGTCTGTCTGCGGGTAGAGCTCTATGGCTGCCTCTGGAGGGATGGACTCCTGTCTTACACCGCCCCTGTGGGGCAGACAATGTATTTATCTGAGGCCGTGTACCTCAACGACTCCACCTATGACGGACATACCGTGGGCGGACTGCAGTATGGGGGTCTGGGCCAGCTGGCAGATGGTGTGGTGGGGCTGGATGACTTTAGGAAGAGTCAGGAGCTGCGGGTCTGGCCAGGCTATGACTATGTGGGATGGAGCAACCACAGCTTCTCCAGTGGCTATGTGGAGATGGAGTTTGAGTTTGACCGGCTGAGGGCCTTCCAGGCTATGCAGGTCCACTGTAACAACATGCACACGCTGGGAGCCCGTCTGCCTGGCGGGGTGGAATGTCGCTTCCGGCGTGGCCCTGCCATGGCCTGGGAGGGGGAGCCCATGCGCCACAACCTAGGGGGCAACCTGGGGGACCCCAGAGCCCGGGCTGTCTCAGTGCCCCTTGGCGGCCGTGTGGCTCGCTTTCTGCAGTGCCGCTTCCTCTTTGCGGGGCCCTGGTTACTCTTCAGCGAAATCTCCTTCATCTCTGATGTGGTGAACAATTCCTCTCCGGCACTGGGAGGCACCTTCCCGCCAGCCCCCTGGTGGCCGCCTGGCCCACCTCCCACCAACTTCAGCAGCTTGGAGCTGGAGCCCAGAGGCCAGCAGCCCGTGGCCAAGGCCGAGGGGAGCCCGACCGCCATCCTCATCGGCTGCCTGGTGGCCATCATCCTGCTCCTGCTGCTCATCATTGCCCTCATGCTCTGGCGGCTGCACTGGCGCAGGCTCCTCAGCAAGGCTGAACGGAGGGTGTTGGAAGAGGAGCTGACGGTTCACCTCTCTGTCCCTGGGGACACTATCCTCATCAACAACCGCCCAGGTCCTAGAGAGCCACCCCCGTACCAGGAGCCCCGGCCTCGTGGGAATCCGCCCCACTCTGCTCCCTGTGTCCCCAATGGCTCTGCCTACAGTGGGGACTATATGGAGCCTGAGAAGCCAGGCGCCCCGCTTCTGCCCCCACCTCCCCAGAACAGCGTCCCCCATTATGCCGAGGCTGACATTGTTACCCTGCAGGGCGTCACCGGGGGCAACACCTATGCTGTGCCTGCACTGCCCCCAGGGGCAGTCGGGGATGGGCCCCCCAGAGTGGATTTCCCTCGATCTCGACTCCGCTTCAAGGAGAAGCTTGGCGAGGGCCAGTTTGGGGAGGTGCACCTGTGTGAGGTCGACAGCCCTCAAGATCTGGTCAGTCTTGATTTCCCCCTTAATGTGCGTAAGGGACACCCTTTGCTGGTAGCTGTCAAGATCTTACGGCCAGATGCCACCAAGAATGCCAGGAATGATTTCCTGAAAGAGGTGAAGATCATGTCGAGGCTCAAGGACCCAAACATCATTCGGCTGCTGGGCGTGTGTGTGCAGGACGACCCCCTCTGCATGATTACTGACTACATGGAGAACGGCGACCTCAACCAGTTCCTCAGTGCCCACCAGCTGGAGGACAAGGCAGCCGAGGGGGCCCCTGGGGACGGGCAGGCTGCGCAGGGGCCCACCATCAGCTACCAAATGCTGCTGCATGTGGCAGCCCAGATCGCCTCCGGCATGCGCTATCTGGCCACACTCAACTTTGTACATCGGGACCTGGCCACGCGGAACTGCCTAGTTGGGGAAAATTTCACCATCAAAATCGCAGACTTTGGCATGAGCCGGAACCTCTATGCTGGGGACTATTACCGTGTGCAGGGCCGGGCAGTGCTGCCCATCCGCTGGATGGCCTGGGAGTGCATCCTCATGGGGAAGTTCACGACTGCGAGTGACGTGTGGGCCTTTGGTGTGACCCTGTGGGAGGTGCTGATGCTCTGTAGGGCCCAGCCCTTTGGGCAGCTCACCGACGAGCAGGTCATCGAGAACGCGGGGGAGTTCTTCCGGGACCAGGGCCGGCAGGTGTACCTGTCCCGGCCGCCTGCCTGCCCGCAGGGCCTATATGAGCTGATGCTTCGGTGCTGGAGCCGGGAGTCTGAGCAGCGACCACCCTTTTCCCAGCTGCATCGGTTCCTGGCAGAGGATGCACTCAACACGGTGTGAATCACACATCCAGCTGCCCCTCCCTCAGGGAGCGATCCAGGGGAAGCCAGTGACACTAAAACAAGAGGACACAATGGCACCTCTGCCCTTCCCCTCCCGACAGCCCATCACCTCTAATAGAGGCAGTGAGACTGCAGGTGGGCTGGGCCCACCCAGGGAGCTGATGCCCCTTCTCCCCTTCCTGGACACACACTCATGTCCCCTTCCTGTTCTTCCTTCCTAGAAGCCCCTGTCGCCCACCCAGCTGGTCCTGTGGATGGGATCCTCTCCACCCTCCTCTAGCCATCCCTTGGGGAAGGGTGGGGAGAAATATAGGATAGACACTGGACATGGCCCATTGGAGCACCTGGGCCCCACTGGACAACACTGATTCCTGGAGAGGTGGCTGCGCCCCCAGCTTCTCTCTCCCTGTCACACACTGGACCCCACTGGCTGAGAATCTGGGGGTGAGGAGGACAAGAAGGAGAGGAAAATGTTTCCTTGTGCCTGCTCCTGTACTTGTCCTCAGCTTGGGCTTCTTCCTCCTCCATCACCTGAAACACTGGACCTGGGGGTAGCCCCGCCCCAGCCCTCAGTCACCCCCACTTCCCACTTGCAGTCTTGTAGCTAGAACTTCTCTAAGCCTATACGTTTCTGTGGAGTAAATATTGGGATTGGGGGGAAAGAGGGAGCAACGGCCCATAGCCTTGGGGTTGGACATCTCTAGTGTAGCTGCCACATTGATTTTTCTATAATCACTTGGGGTTTGTACATTTTTGGGGGGAGAGACACAGATTTTTACACTAATATATGGACCTAGCTTGAGGCAATTTTAATCCCCTGCACTAGGCAGGTAATAATAAAGGTTGAGTTTTCCACaaaaaaaaaaaaaaaa")
s1
s2

mat <- nucleotideSubstitutionMatrix(match = 2, mismatch = -3, baseOnly = FALSE)

psa2 <-
  pairwiseAlignment(pattern = s1,
                    subject = s2,
                    substitutionMatrix = mat,
                    type = "local",
                    gapOpening = 5, gapExtension = 2,
                    scoreOnly=FALSE)

x <- insertion(psa2)

gives 

IRangesList of length 1
[[1]]
IRanges object with 2 ranges and 0 metadata columns:
          start       end     width
      <integer> <integer> <integer>
  [1]        63       118        56
  [2]      1619      1729       111

I want a single string which looks like this  63-118, 1619-1729 or two strings which look like this 63,1619 & 118,1729.

i.e I just want all the start and ends in one variable.

Sorry but i'm not an R Programer or a Biologist so this is all a struggle to me.

paste(as.character(x[[1]]), collapse=", ")