`tested` (`actual`) not equal to `expected` (`expected`).

  `actual`: 3.8
`expected`: 4.9

test_that("polyreg() produced expected coefficients and variance covariance matrix from competing risks data with categorical exposure", {
output <- polyreg(nuisance.model = Event(t,epsilon)~+1, exposure = 'fruitq', data = diabetes.complications, effect.measure1='RR', effect.measure2='RR', code.exposure.ref='Q1', time.point=8, outcome.type='C')
test_that("polyreg() produced expected coefficients and variance covariance matrix when coded other than the default and stratified in IPCW", {
output <- polyreg(nuisance.model = Event(t,epsilon)~+1, exposure = 'fruitq1', data = diabetes.complications, strata = 'strata', effect.measure1='SHR', effect.measure2='SHR', time.point=8, outcome.type='C')
test_that("polyreg() produced expected coefficients and variance covariance matrix from survival data with missing data", {
expected_output <- polyreg(nuisance.model = Surv(t,d)~sex, exposure = 'fruitq1', strata = 'strata', data = expected_df, effect.measure1='RR', time.point=8, outcome.type='S')
output <- polyreg(nuisance.model = Event(t,d)~sex, exposure = 'fruitq1', strata = 'strata', data = diabetes.complications, effect.measure1='RR', effect.measure2='RR', time.point=8, outcome.type='S')
test_that("polyreg() produced expected common effects at 1:8", {
output <- polyreg(nuisance.model = Surv(t,epsilon)~+1, exposure = 'fruitq1', strata = 'strata', data = diabetes.complications, effect.measure1='RR', effect.measure2='RR', time.point=1:8, outcome.type='PP', report.boot.conf=FALSE)
test_that("polyreg() produced expected SE for common effects from survival data", {
df_test <- createTestData(100, 2, first_zero=TRUE, last_zero=TRUE, subset_present=FALSE, logical_strata=TRUE, na_strata=FALSE)
output <- polyreg(nuisance.model = Event(t,d) ~ +1, exposure = 'a', data = df_test,
effect.measure1='RR', time.point=20, outcome.type='PROPORTIONAL', report.boot.conf=TRUE, boot.parameter1=10, boot.parameter2=46)
tested <- round(output$summary$`event 1 (no competing risk`$tidy$std.error,digit=3)
test_that("polyreg() produced expected SE for common effects from competing-risks data", {
output <- polyreg(nuisance.model = Event(t,epsilon) ~ +1, exposure = 'a', data = df_test,
effect.measure1='RR', effect.measure2='RR', time.point=20, outcome.type='POLY-PROPORTIONAL', report.boot.conf=TRUE, boot.parameter1=10, boot.parameter2=46)