R/ChronsTrack2SpatialLine.r

#' @title XXX
#'
#' @description XXX
#'
#' @export
ChronsTrack2SpatialLine <- function(input=nchrons,which.tow=1)

{
#input reorganised chrons data

Stn      <- input[input$id == which.tow,]        #Select station
coordinates(Stn) <- ~long+lat                    #add on coordinates
StnL     <- Lines(list(Line(Stn)),ID=as.character(which.tow))
return(StnL)
}
einarhjorleifsson/datrasr documentation built on May 16, 2019, 1:26 a.m.