Setter for BEAR
Examples
# Minimal example for seasonder_setSeaSondeRAPM_BEAR
apm_file <- system.file("css_data/MeasPattern.txt", package = "SeaSondeR")
apm_obj <- seasonder_readSeaSondeRAPMFile(apm_file)
#> seasonder_createSeaSondeRAPM: APM object created successfully.
new_bear <- attributes(apm_obj)$BEAR
apm_obj <- seasonder_setSeaSondeRAPM_BEAR(apm_obj, new_bear)
print(attributes(apm_obj)$BEAR)
#> [1] -22 -21 -20 -19 -18 -17 -16 -15 -14 -13 -12 -11 -10 -9 -8 -7 -6 -5
#> [19] -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9 10 11 12 13
#> [37] 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
#> [55] 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
#> [73] 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
#> [91] 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85
#> [109] 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103
#> [127] 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118