Screen to detect invalid Taylor series artifact distribution objects
screen_ad_tsa(x, obj_name = "x")Does not return a value; will trigger a warning if ad_obj_tsa is not a valid artifact distribution.
Object to test for congruence with expected properties of Taylor series artifact distribution objects.
Object name for x.
## Not run
## ad_obj_int <- create_ad_int(rxxa = c(.9, .8), wt_rxxa = c(50, 150),
## rxxi = c(.8, .7), wt_rxxi = c(50, 150),
## ux = c(.9, .8), wt_ux = c(50, 150),
## ut = c(.8, .7), wt_ut = c(50, 150))
##
## ad_obj_tsa <- create_ad_tsa(rxxa = c(.9, .8), n_rxxa = c(50, 150),
## rxxi = c(.8, .7), n_rxxi = c(50, 150),
## ux = c(.9, .8), ni_ux = c(50, 150),
## ut = c(.8, .7), ni_ut = c(50, 150))
##
## screen_ad_tsa(x = ad_obj_tsa)
## screen_ad_tsa(x = ad_obj_int)
## screen_ad_tsa(x = data.frame(Value = 1, Weight = 1))
Run the code above in your browser using DataLab