# load example data stored as SoilProfileCollection
data(sp5)
# sp5
str(sp5)
# list output
str(as(sp5, 'list'))
# data.frame output
str(as(sp5, 'data.frame'))
# Spatial Objects
# make some random coordinate data for each profile
sp5$x <- sp5$y <- rnorm(length(sp5))
initSpatial(sp5, crs = "OGC:CRS84") <- ~ x + y
if (requireNamespace("sf")) {
# sf output
str(as(sp5, 'sf'))
# SpatialPointsDataFrame output
str(as(sp5, 'SpatialPointsDataFrame'))
# SpatialPoints output
str(as(sp5, 'SpatialPoints'))
}
Run the code above in your browser using DataLab