Extension to R package BTYD