dt <- as.list(tie.points.example[,2:6])
gap <- list()
fill <- list()
gap$Charce <- data.frame(dt = c(370,400), span = c(50,10))
gap$El.Porton <- data.frame(dt = -400, span = 30)
fill$Charce <- data.frame(l = 63, r = 65)
fill$El.Porton <- data.frame(l = c(-530), r = c(-630))
fill$Frielingen <- data.frame(l = 20, r = 30)
strat.repair(dt, gap, fill)
Run the code above in your browser using DataLab