## ----eval=FALSE---------------------------------------------------------------
#  library(dryingkineticmodels)
#  
#  # From an Excel file
#  result <- dryingkineticmodels("drying_data.xlsx")
#  
#  # From a data frame
#  df <- data.frame(
#    time = c(0, 30, 60, 90, 120),
#    MR   = c(1.00, 0.74, 0.51, 0.32, 0.18)
#  )
#  result <- dryingkineticmodels(df)

## ----eval=FALSE---------------------------------------------------------------
#  # Access results programmatically
#  result$comparison_table
#  result$anova_table