# Create a Triangle of Average Case O/S
avg <- MedMal$MedMalOutstanding / MedMal$MedMalOpen
# Select a rate of 15% and inflate the average =/S Triangle
inflated_tr <- inflateTriangle(Triangle = avg, rate = .15)
# Multiply it by open claims and add paymnets to calulate the adjusted Reported Claims Trinagle
adj_reported <- inflated_tr * MedMal$MedMalOpen + MedMal$MedMalPaid
# Calculate the IBNR from the unadjusted Triangle
std_ibnr <- summary(MackChainLadder(MedMal$MedMalReported))$Totals[4, 1]
# Calculate the IBNR from the adjusted Triangle
adj_reported_ibnr <- summary(MackChainLadder(adj_reported))$Totals[4, 1]
# Compare the two
std_ibnr - adj_reported_ibnr
Run the code above in your browser using DataLab