if (FALSE) {
cards_fsrs <- anki_cards_fsrs()
# Calculate current retrievability
cards_fsrs$retrievability <- fsrs_retrievability(
stability = cards_fsrs$stability,
days_elapsed = as.numeric(Sys.Date() - as.Date("1970-01-01")) -
cards_fsrs$due / 86400,
decay = cards_fsrs$decay
)
}
Run the code above in your browser using DataLab