constructs an sfc of MULTILINESTRING objects

sfc_multilinestring(obj = NULL, x = NULL, y = NULL, z = NULL,
  m = NULL, multilinestring_id = NULL, linestring_id = NULL)

Arguments

obj

sorted matrix or data.frame

x

x geometry column

y

y geometry column

z

z geometry column

m

m geometry column

multilinestring_id

column of ids for multilinestrings

linestring_id

column of ids for linestrings (within multilinestrings)

Value

sfc object of MULTILINESTRING geometries

notes

sfheaders functions do not perform any validity checks on the geometries. Nor do they set Coordinate Reference Systems, EPSG, PROJ4 or precision attributes.

The data.frame and matrices you send into the sfheader functions must be ordered.

Examples

m <- matrix(c(0,0,0,0,1,1), ncol = 3 ) sfc_multilinestring( m )
#> [[1]] #> [[1]] #> [,1] [,2] [,3] #> [1,] 0 0 1 #> [2,] 0 0 1 #> #> attr(,"class") #> [1] "XYZ" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> 0 0 0 0 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> 1 1 #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
m <- matrix(c(0,0,0,0,0,1,0,1,1,1,2,2,1,2,3), ncol = 3, byrow = TRUE) sfc_multilinestring( obj = m )
#> [[1]] #> [[1]] #> [,1] [,2] [,3] #> [1,] 0 0 0 #> [2,] 0 0 1 #> [3,] 0 1 1 #> [4,] 1 2 2 #> [5,] 1 2 3 #> #> attr(,"class") #> [1] "XYZ" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> 0 0 1 2 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> 0 3 #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = m, multilinestring_id = 1 )
#> [[1]] #> [[1]] #> [,1] [,2] #> [1,] 0 0 #> [2,] 0 1 #> [3,] 1 1 #> #> attr(,"class") #> [1] "XY" "MULTILINESTRING" "sfg" #> #> [[2]] #> [[1]] #> [,1] [,2] #> [1,] 2 2 #> [2,] 2 3 #> #> attr(,"class") #> [1] "XY" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> 0 0 2 3 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> NA NA #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = m, linestring_id = 1 )
#> [[1]] #> [[1]] #> [,1] [,2] #> [1,] 0 0 #> [2,] 0 1 #> [3,] 1 1 #> #> [[2]] #> [,1] [,2] #> [1,] 2 2 #> [2,] 2 3 #> #> attr(,"class") #> [1] "XY" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> 0 0 2 3 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> NA NA #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = m, linestring_id = 1, multilinestring_id = 1 )
#> [[1]] #> [[1]] #> [,1] [,2] #> [1,] 0 0 #> [2,] 0 1 #> [3,] 1 1 #> #> attr(,"class") #> [1] "XY" "MULTILINESTRING" "sfg" #> #> [[2]] #> [[1]] #> [,1] [,2] #> [1,] 2 2 #> [2,] 2 3 #> #> attr(,"class") #> [1] "XY" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> 0 0 2 3 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> NA NA #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = m, x = 2, y = 3 )
#> [[1]] #> [[1]] #> [,1] [,2] #> [1,] 0 0 #> [2,] 0 1 #> [3,] 1 1 #> [4,] 2 2 #> [5,] 2 3 #> #> attr(,"class") #> [1] "XY" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> 0 0 2 3 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> NA NA #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = m, x = 1, y = 2, z = 3 )
#> [[1]] #> [[1]] #> [,1] [,2] [,3] #> [1,] 0 0 0 #> [2,] 0 0 1 #> [3,] 0 1 1 #> [4,] 1 2 2 #> [5,] 1 2 3 #> #> attr(,"class") #> [1] "XYZ" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> 0 0 1 2 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> 0 3 #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = m, x = 2, y = 3, linestring_id = 1, multilinestring_id = 1 )
#> [[1]] #> [[1]] #> [,1] [,2] #> [1,] 0 0 #> [2,] 0 1 #> [3,] 1 1 #> #> attr(,"class") #> [1] "XY" "MULTILINESTRING" "sfg" #> #> [[2]] #> [[1]] #> [,1] [,2] #> [1,] 2 2 #> [2,] 2 3 #> #> attr(,"class") #> [1] "XY" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> 0 0 2 3 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> NA NA #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
df <- data.frame( ml_id = c(1,1,1,1,1,1,1,1,2,2,2,2,2) , l_id = c(1,1,1,2,2,3,3,3,1,1,1,2,2) , x = rnorm(13) , y = rnorm(13) , z = rnorm(13) , m = rnorm(13) ) sfc_multilinestring( obj = df, x = "x", y = "y")
#> [[1]] #> [[1]] #> [,1] [,2] #> [1,] 1.2706723 1.9931103 #> [2,] 0.9608648 -0.1541207 #> [3,] 0.7687214 2.5644083 #> [4,] 1.0359308 1.0619991 #> [5,] -0.4738871 1.1426949 #> [6,] -1.2753349 1.1238388 #> [7,] -0.3056207 -0.3970015 #> [8,] 2.2117695 -0.8232612 #> [9,] -1.0416684 -0.5788846 #> [10,] -1.1465239 1.7637894 #> [11,] -1.6753273 0.1329921 #> [12,] 1.5259387 0.3764993 #> [13,] 0.5541855 1.1387077 #> #> attr(,"class") #> [1] "XY" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> -1.6753273 -0.8232612 2.2117695 2.5644083 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> NA NA #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = df, x = "x", y = "y", z = "z")
#> [[1]] #> [[1]] #> [,1] [,2] [,3] #> [1,] 1.2706723 1.9931103 1.24126308 #> [2,] 0.9608648 -0.1541207 0.61209094 #> [3,] 0.7687214 2.5644083 -0.42938009 #> [4,] 1.0359308 1.0619991 1.36046133 #> [5,] -0.4738871 1.1426949 -0.07085743 #> [6,] -1.2753349 1.1238388 -0.27215368 #> [7,] -0.3056207 -0.3970015 -2.44668003 #> [8,] 2.2117695 -0.8232612 0.06548664 #> [9,] -1.0416684 -0.5788846 -1.09850890 #> [10,] -1.1465239 1.7637894 -0.63317818 #> [11,] -1.6753273 0.1329921 -2.06365445 #> [12,] 1.5259387 0.3764993 2.64893203 #> [13,] 0.5541855 1.1387077 -1.15339839 #> #> attr(,"class") #> [1] "XYZ" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> -1.6753273 -0.8232612 2.2117695 2.5644083 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> -2.446680 2.648932 #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = df, x = "x", y = "y", z = "z", m = "m")
#> [[1]] #> [[1]] #> [,1] [,2] [,3] [,4] #> [1,] 1.2706723 1.9931103 1.24126308 -0.34063788 #> [2,] 0.9608648 -0.1541207 0.61209094 0.78636258 #> [3,] 0.7687214 2.5644083 -0.42938009 -1.27051311 #> [4,] 1.0359308 1.0619991 1.36046133 0.54214155 #> [5,] -0.4738871 1.1426949 -0.07085743 0.07510590 #> [6,] -1.2753349 1.1238388 -0.27215368 0.55851442 #> [7,] -0.3056207 -0.3970015 -2.44668003 0.41540640 #> [8,] 2.2117695 -0.8232612 0.06548664 -1.45229977 #> [9,] -1.0416684 -0.5788846 -1.09850890 0.94120612 #> [10,] -1.1465239 1.7637894 -0.63317818 -0.33893587 #> [11,] -1.6753273 0.1329921 -2.06365445 -0.07557425 #> [12,] 1.5259387 0.3764993 2.64893203 0.04020439 #> [13,] 0.5541855 1.1387077 -1.15339839 0.12430107 #> #> attr(,"class") #> [1] "XYZM" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> -1.6753273 -0.8232612 2.2117695 2.5644083 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> -2.446680 2.648932 #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> -1.4522998 0.9412061 #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = df, x = 2, y = 3)
#> [[1]] #> [[1]] #> l_id x #> [1,] 1 1.2706723 #> [2,] 1 0.9608648 #> [3,] 1 0.7687214 #> [4,] 2 1.0359308 #> [5,] 2 -0.4738871 #> [6,] 3 -1.2753349 #> [7,] 3 -0.3056207 #> [8,] 3 2.2117695 #> [9,] 1 -1.0416684 #> [10,] 1 -1.1465239 #> [11,] 1 -1.6753273 #> [12,] 2 1.5259387 #> [13,] 2 0.5541855 #> #> attr(,"class") #> [1] "XY" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> 1.000000 -1.675327 3.000000 2.211769 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> NA NA #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = df, x = 2, y = 3, z = 4)
#> [[1]] #> [[1]] #> l_id x y #> [1,] 1 1.2706723 1.9931103 #> [2,] 1 0.9608648 -0.1541207 #> [3,] 1 0.7687214 2.5644083 #> [4,] 2 1.0359308 1.0619991 #> [5,] 2 -0.4738871 1.1426949 #> [6,] 3 -1.2753349 1.1238388 #> [7,] 3 -0.3056207 -0.3970015 #> [8,] 3 2.2117695 -0.8232612 #> [9,] 1 -1.0416684 -0.5788846 #> [10,] 1 -1.1465239 1.7637894 #> [11,] 1 -1.6753273 0.1329921 #> [12,] 2 1.5259387 0.3764993 #> [13,] 2 0.5541855 1.1387077 #> #> attr(,"class") #> [1] "XYZ" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> 1.000000 -1.675327 3.000000 2.211769 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> -0.8232612 2.5644083 #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> NA NA #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = df, x = 2, y = 3, z = 4, m = 5)
#> [[1]] #> [[1]] #> l_id x y z #> [1,] 1 1.2706723 1.9931103 1.24126308 #> [2,] 1 0.9608648 -0.1541207 0.61209094 #> [3,] 1 0.7687214 2.5644083 -0.42938009 #> [4,] 2 1.0359308 1.0619991 1.36046133 #> [5,] 2 -0.4738871 1.1426949 -0.07085743 #> [6,] 3 -1.2753349 1.1238388 -0.27215368 #> [7,] 3 -0.3056207 -0.3970015 -2.44668003 #> [8,] 3 2.2117695 -0.8232612 0.06548664 #> [9,] 1 -1.0416684 -0.5788846 -1.09850890 #> [10,] 1 -1.1465239 1.7637894 -0.63317818 #> [11,] 1 -1.6753273 0.1329921 -2.06365445 #> [12,] 2 1.5259387 0.3764993 2.64893203 #> [13,] 2 0.5541855 1.1387077 -1.15339839 #> #> attr(,"class") #> [1] "XYZM" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> 1.000000 -1.675327 3.000000 2.211769 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> -0.8232612 2.5644083 #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> -2.446680 2.648932 #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = df, multilinestring_id = "ml_id", linestring_id = "l_id" )
#> [[1]] #> [[1]] #> [,1] [,2] [,3] [,4] #> [1,] 1.2706723 1.9931103 1.2412631 -0.3406379 #> [2,] 0.9608648 -0.1541207 0.6120909 0.7863626 #> [3,] 0.7687214 2.5644083 -0.4293801 -1.2705131 #> #> [[2]] #> [,1] [,2] [,3] [,4] #> [1,] 1.0359308 1.061999 1.36046133 0.5421415 #> [2,] -0.4738871 1.142695 -0.07085743 0.0751059 #> #> [[3]] #> [,1] [,2] [,3] [,4] #> [1,] -1.2753349 1.1238388 -0.27215368 0.5585144 #> [2,] -0.3056207 -0.3970015 -2.44668003 0.4154064 #> [3,] 2.2117695 -0.8232612 0.06548664 -1.4522998 #> #> attr(,"class") #> [1] "XYZM" "MULTILINESTRING" "sfg" #> #> [[2]] #> [[1]] #> [,1] [,2] [,3] [,4] #> [1,] -1.041668 -0.5788846 -1.0985089 0.94120612 #> [2,] -1.146524 1.7637894 -0.6331782 -0.33893587 #> [3,] -1.675327 0.1329921 -2.0636545 -0.07557425 #> #> [[2]] #> [,1] [,2] [,3] [,4] #> [1,] 1.5259387 0.3764993 2.648932 0.04020439 #> [2,] 0.5541855 1.1387077 -1.153398 0.12430107 #> #> attr(,"class") #> [1] "XYZM" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> -1.6753273 -0.8232612 2.2117695 2.5644083 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> -2.446680 2.648932 #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> -1.4522998 0.9412061 #> attr(,"class") #> [1] "m_range"
sfc_multilinestring( obj = df, multilinestring_id = 1, linestring_id = 2 )
#> [[1]] #> [[1]] #> [,1] [,2] [,3] [,4] #> [1,] 1.2706723 1.9931103 1.2412631 -0.3406379 #> [2,] 0.9608648 -0.1541207 0.6120909 0.7863626 #> [3,] 0.7687214 2.5644083 -0.4293801 -1.2705131 #> #> [[2]] #> [,1] [,2] [,3] [,4] #> [1,] 1.0359308 1.061999 1.36046133 0.5421415 #> [2,] -0.4738871 1.142695 -0.07085743 0.0751059 #> #> [[3]] #> [,1] [,2] [,3] [,4] #> [1,] -1.2753349 1.1238388 -0.27215368 0.5585144 #> [2,] -0.3056207 -0.3970015 -2.44668003 0.4154064 #> [3,] 2.2117695 -0.8232612 0.06548664 -1.4522998 #> #> attr(,"class") #> [1] "XYZM" "MULTILINESTRING" "sfg" #> #> [[2]] #> [[1]] #> [,1] [,2] [,3] [,4] #> [1,] -1.041668 -0.5788846 -1.0985089 0.94120612 #> [2,] -1.146524 1.7637894 -0.6331782 -0.33893587 #> [3,] -1.675327 0.1329921 -2.0636545 -0.07557425 #> #> [[2]] #> [,1] [,2] [,3] [,4] #> [1,] 1.5259387 0.3764993 2.648932 0.04020439 #> [2,] 0.5541855 1.1387077 -1.153398 0.12430107 #> #> attr(,"class") #> [1] "XYZM" "MULTILINESTRING" "sfg" #> #> attr(,"n_empty") #> [1] 0 #> attr(,"crs") #> $epsg #> [1] NA #> #> $proj4string #> [1] NA #> #> attr(,"class") #> [1] "crs" #> attr(,"class") #> [1] "sfc_MULTILINESTRING" "sfc" #> attr(,"precision") #> [1] 0 #> attr(,"bbox") #> xmin ymin xmax ymax #> -1.6753273 -0.8232612 2.2117695 2.5644083 #> attr(,"class") #> [1] "bbox" #> attr(,"z_range") #> zmin zmax #> -2.446680 2.648932 #> attr(,"class") #> [1] "z_range" #> attr(,"m_range") #> mmin mmax #> -1.4522998 0.9412061 #> attr(,"class") #> [1] "m_range"