Interactive R shiny variance inflation factor sandbox