Update Sample dataframe

Used for updating the Sample dataframe if ConcLow or ConcHigh is manually adjusted. Adjusts ConcAve and Uncen columns.

Usage

fixSampleFrame(eList)

Arguments

eList

named list with at least the Sample dataframes

Value

localSample data frame

Examples

eList <- Choptank_eList
Sample <- eList$Sample
Sample[1,c("ConcLow","ConcHigh")] <- c(NA, 0.01) # Adjusted to left-censored
Sample[2,c("ConcLow","ConcHigh")] <- c(1.1, 1.3) # Adjusted to interval-censored
Sample[3,c("ConcLow","ConcHigh")] <- c(1.3, 1.3) # Simple adjustment
eList$Sample <- Sample
eList <- fixSampleFrame(eList)
eList$Sample[1:3,]
#>         Date ConcLow ConcHigh Uncen ConcAve Julian Month Day  DecYear MonthSeq
#> 1 1979-10-24      NA     0.01     0   0.005  47412    10 298 1979.813     1558
#> 2 1979-12-05     1.1     1.30     0   1.200  47454    12 340 1979.928     1560
#> 3 1979-12-21     1.3     1.30     1   1.300  47470    12 356 1979.971     1560
#>        SinDY     CosDY        Q     LogQ        yHat        SE   ConcHat
#> 1 -0.9230562 0.3846651 3.199804 1.163089 -0.22595368 0.2178958 0.8169198
#> 2 -0.4393995 0.8982918 2.973269 1.089662 -0.06320888 0.2295575 0.9638105
#> 3 -0.1792808 0.9837980 2.944952 1.080093  0.06656706 0.2418137 1.1005433