Simular RiskBurr12

# Install the 'actuar' package if it is not already installed
if (!require(actuar)) {
  install.packages("actuar")
  library(actuar)
} else {
  library(actuar)
}

# Simulate from the Burr distribution
SimulaBurr <- rburr(500e3, shape1 = 0.5679, shape2 = 3.664, scale = 0.008101)
summary(SimulaBurr)

# Plot histogram (corrected argument order)
hist(SimulaBurr, breaks = 100)

expSimulaBurr <- exp(SimulaBurr)
hist(n=100, expSimulaBurr)
plot(expSimulaBurr)
summary(expSimulaBurr)