Create allgood.R

New supporting function