data(labour1)
x <- callback(labour1, "offer", "hist", "callback", comp = "all")
print(stat_tcs(x,level=0.90))
data(labour1)
x <- callback(labour1, "offer", "hist", "callback", comp = "all")
print(stat_ecs(x,level=0.90))
Run the code above in your browser using DataLab