Setter for data
Examples
# Minimal example for seasonder_setSeaSondeRCS_data
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.
new_data <- seasonder_getSeaSondeRCS_data(cs_obj)
cs_obj <- seasonder_setSeaSondeRCS_data(cs_obj, new_data)
str(seasonder_getSeaSondeRCS_data(cs_obj))
#> List of 7
#> $ SSA1: 'SeaSondeRCS_SSMatrix' num [1:63, 1:1024] 4.54e-11 3.38e-11 3.05e-11 3.80e-11 3.00e-11 ...
#> ..- 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] 3.47e-11 5.49e-11 8.77e-11 1.05e-10 2.90e-11 ...
#> ..- 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] -1.18e-10 -1.91e-10 -3.21e-10 -3.15e-10 -1.56e-10 ...
#> ..- 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] -3.08e-11+6.10e-12i -3.11e-11+1.74e-11i -3.10e-11+6.70e-12i ...
#> ..- 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] 5.08e-11+3.34e-11i 5.99e-11+2.59e-11i 5.34e-11+4.68e-11i ...
#> ..- 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] -3.79e-11-4.55e-11i -5.50e-11-8.05e-11i -9.27e-11-1.31e-10i ...
#> ..- 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] 1 1 1 1 1 ...
#> ..- 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"