Summarize a mooring
summaryMooring(object, ...)a mooring object, created by mooring().
ignored.
library(mooring)
m <- mooring(anchor(), wire(length = 80), float(), waterDepth = 100)
summaryMooring(m)
#> <mooring::mooringS7>
#> @ elements :List of 3
#> .. $ : <mooring::floatS7>
#> .. ..@ model : chr "Kiel SFS40in"
#> .. ..@ buoyancy : num 320
#> .. ..@ height : num 1
#> .. ..@ area : num 0.785
#> .. ..@ CD : num 0.65
#> .. ..@ source : chr "Dewey"
#> .. ..@ originalName: chr "Kiel SFS40in"
#> .. ..@ x : num 0
#> .. ..@ x0 : num 0
#> .. ..@ z : num -18.8
#> .. ..@ z0 : num -18.8
#> .. ..@ phi : num 0
#> .. ..@ tau : num 320
#> .. ..@ group : num 0
#> .. $ : <mooring::wireS7>
#> .. ..@ model : chr "1/4in wire/jack"
#> .. ..@ buoyancy : num -10.4
#> .. ..@ height : num 80
#> .. ..@ area : num 0.64
#> .. ..@ CD : num 1.3
#> .. ..@ source : chr "Dewey"
#> .. ..@ originalName: chr "1/4 wire/jack"
#> .. ..@ x : num 0
#> .. ..@ x0 : num 0
#> .. ..@ z : num -19.8
#> .. ..@ z0 : num -19.8
#> .. ..@ phi : num 0
#> .. ..@ tau : num 310
#> .. ..@ group : num 0
#> .. $ : <mooring::anchorS7>
#> .. ..@ model : chr "1 Railway Wheel"
#> .. ..@ buoyancy : num -350
#> .. ..@ height : num 0.15
#> .. ..@ area : num 0
#> .. ..@ CD : num 1.3
#> .. ..@ source : chr "Dewey"
#> .. ..@ originalName: chr "1 Railway Wheel"
#> .. ..@ x : num 0
#> .. ..@ x0 : num 0
#> .. ..@ z : num -99.8
#> .. ..@ z0 : num -99.8
#> .. ..@ phi : num 0
#> .. ..@ tau : num 310
#> .. ..@ group : num 0
#> @ waterDepth: num 100
#> @ u : num 0
#> @ attributes: list()