Retrieve Interpolated MUSIC Data from a SeaSondeRCS Object — seasonder

This function extracts the interpolated MUSIC cross-spectra data from a SeaSondeRCS object.

Usage

seasonder_getMUSICInterpolatedData(seasonder_cs_object)

Arguments

seasonder_cs_object: A SeaSondeRCS object containing interpolated MUSIC data as an attribute.

Value

A list representing the interpolated cross-spectra data.

Details

The function first checks if the interpolated data is set in the MUSIC_data attribute. If absent, it initializes the data with seasonder_MUSICInitInterpolatedData().

Examples

# Minimal example for seasonder_getMUSICInterpolatedData
cs_file <- system.file("css_data/CSS_TORA_24_04_04_0700.cs", package = "SeaSondeR")
apm_file <- system.file("css_data/MeasPattern.txt", package = "SeaSondeR")
apm_obj <- seasonder_readSeaSondeRAPMFile(apm_file)
#> seasonder_createSeaSondeRAPM:  APM object created successfully.
cs_obj <- seasonder_createSeaSondeRCS(cs_file, seasonder_apm_object = apm_obj)
#> new_SeaSondeRCS:  SeaSondeRCS object created successfully.
interp_data <- seasonder_getMUSICInterpolatedData(cs_obj)
str(interp_data)
#> List of 7
#>  $ SSA1: 'SeaSondeRCS_SSMatrix' num [1:63, 1:1024] NA NA NA NA NA NA NA NA NA NA ...
#>   ..- attr(*, "dimnames")=List of 2
#>   .. ..$ : chr [1:63] "range_001" "range_002" "range_003" "range_004" ...
#>   .. ..$ : chr [1:1024] "doppler_000" "doppler_001" "doppler_002" "doppler_003" ...
#>   ..- attr(*, "name")= chr "SSA1"
#>  $ SSA2: 'SeaSondeRCS_SSMatrix' num [1:63, 1:1024] NA NA NA NA NA NA NA NA NA NA ...
#>   ..- attr(*, "dimnames")=List of 2
#>   .. ..$ : chr [1:63] "range_001" "range_002" "range_003" "range_004" ...
#>   .. ..$ : chr [1:1024] "doppler_000" "doppler_001" "doppler_002" "doppler_003" ...
#>   ..- attr(*, "name")= chr "SSA2"
#>  $ SSA3: 'SeaSondeRCS_SSMatrix' num [1:63, 1:1024] NA NA NA NA NA NA NA NA NA NA ...
#>   ..- attr(*, "dimnames")=List of 2
#>   .. ..$ : chr [1:63] "range_001" "range_002" "range_003" "range_004" ...
#>   .. ..$ : chr [1:1024] "doppler_000" "doppler_001" "doppler_002" "doppler_003" ...
#>   ..- attr(*, "name")= chr "SSA3"
#>  $ CS12: 'SeaSondeRCS_CSMatrix' cplx [1:63, 1:1024] NA NA NA ...
#>   ..- attr(*, "dimnames")=List of 2
#>   .. ..$ : chr [1:63] "range_001" "range_002" "range_003" "range_004" ...
#>   .. ..$ : chr [1:1024] "doppler_000" "doppler_001" "doppler_002" "doppler_003" ...
#>   ..- attr(*, "name")= chr "CS12"
#>  $ CS13: 'SeaSondeRCS_CSMatrix' cplx [1:63, 1:1024] NA NA NA ...
#>   ..- attr(*, "dimnames")=List of 2
#>   .. ..$ : chr [1:63] "range_001" "range_002" "range_003" "range_004" ...
#>   .. ..$ : chr [1:1024] "doppler_000" "doppler_001" "doppler_002" "doppler_003" ...
#>   ..- attr(*, "name")= chr "CS13"
#>  $ CS23: 'SeaSondeRCS_CSMatrix' cplx [1:63, 1:1024] NA NA NA ...
#>   ..- attr(*, "dimnames")=List of 2
#>   .. ..$ : chr [1:63] "range_001" "range_002" "range_003" "range_004" ...
#>   .. ..$ : chr [1:1024] "doppler_000" "doppler_001" "doppler_002" "doppler_003" ...
#>   ..- attr(*, "name")= chr "CS23"
#>  $ QC  : 'SeaSondeRCS_QCMatrix' num [1:63, 1:1024] NA NA NA NA NA NA NA NA NA NA ...
#>   ..- attr(*, "dimnames")=List of 2
#>   .. ..$ : chr [1:63] "range_001" "range_002" "range_003" "range_004" ...
#>   .. ..$ : chr [1:1024] "doppler_000" "doppler_001" "doppler_002" "doppler_003" ...
#>   ..- attr(*, "name")= chr "QC"