# NOT RUN {
f <- system.file("ex/lux.shp", package="terra")
v <- vect(f)
x <- svc()
x <- svc(v, v[1:3,], as.lines(v[3:5,]), as.points(v))
length(x)
x
# extract
x[3]
# replace
x[2] <- as.lines(v[1,])
# }
Run the code above in your browser using DataLab