Skip to content

A data set related to the success or failure of academic grants.

Source

Kuhn and Johnson (2013). Applied Predictive Modeling. Springer.

Value

grants_other,grants_test,grants_2008

two tibbles and an integer vector of data points used for training

Details

The data are discussed in Kuhn and Johnson (2013):

"These data are from a 2011 Kaggle competition sponsored by the University of Melbourne where there was interest in predicting whether or not a grant application would be accepted. Since public funding of grants had decreased over time, triaging grant applications based on their likelihood of success could be important for estimating the amount of potential funding to the university. In addition to predicting grant success, the university sought to understand factors that were important in predicting success."

The data ranged from 2005 and 2008 and the data spending strategy was driven by the date of the grant. Kuhn and Johnson (2013) describe:

"The compromise taken here is to build models on the pre-2008 data and tune them by evaluating a random sample of 2,075 grants from 2008. Once the optimal parameters are determined, final model is built using these parameters and the entire training set (i.e., the data prior to 2008 and the additional 2,075 grants). A small holdout set of 518 grants from 2008 will be used to ensure that no gross methodology errors occur from repeatedly evaluating the 2008 data during model tuning. In the text, this set of samples is called the 2 0 0 8 holdout set. This small set of year 2008 grants will be referred to as the test set and will not be evaluated until set of candidate models are identified."

To emulate this, grants_other contains the training (pre-2008, n = 6,633) and holdout/validation data (2008, n = 1,557). grants_test has 518 grant samples from 2008. The object grants_2008 is an integer vector that can be used to separate the modeling with the holdout/validation sets.

Examples

data(grants)
str(grants_other)
#> 'data.frame':	8190 obs. of  1503 variables:
#>  $ class                   : Factor w/ 2 levels "successful","unsuccessful": 1 1 1 1 2 1 2 2 1 1 ...
#>  $ num_ci                  : int  1 1 3 1 1 1 3 2 2 1 ...
#>  $ num_dr                  : int  0 0 1 0 0 0 0 0 0 0 ...
#>  $ num_ea                  : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ num_eci                 : int  0 0 3 3 0 0 1 1 2 3 ...
#>  $ num_hv                  : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ num_ps                  : int  0 0 0 1 0 0 0 0 0 0 ...
#>  $ num_sr                  : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ num_sci                 : int  0 0 0 1 0 0 0 0 0 0 ...
#>  $ num_unk                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1900                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1925                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1930                 : int  0 0 0 0 0 0 0 0 0 1 ...
#>  $ ci_1935                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1940                 : int  0 0 0 0 0 0 0 1 0 0 ...
#>  $ dr_1940                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1945                 : int  0 0 0 0 0 0 0 0 1 0 ...
#>  $ dr_1945                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_1945                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1945                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1950                 : int  0 0 2 0 0 1 1 0 1 0 ...
#>  $ dr_1950                 : int  0 0 1 0 0 0 0 0 0 0 ...
#>  $ eci_1950                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1950                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1950                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1955                 : int  0 0 1 0 0 0 0 0 0 0 ...
#>  $ dr_1955                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_1955                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1955                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1955                 : int  0 0 0 1 0 0 0 0 0 0 ...
#>  $ ci_1960                 : int  0 1 0 0 0 0 2 0 0 0 ...
#>  $ dr_1960                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_1960                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1960                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1960                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1965                 : int  1 0 0 0 1 0 0 1 0 0 ...
#>  $ dr_1965                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_1965                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1965                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1965                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1970                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ dr_1970                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_1970                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1970                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1970                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1975                 : int  0 0 0 1 0 0 0 0 0 0 ...
#>  $ dr_1975                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_1975                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1975                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1975                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ sr_1975                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1980                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ dr_1980                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1980                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1985                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1985                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_asia_pacific         : int  1 0 1 0 0 0 0 0 0 0 ...
#>  $ dr_asia_pacific         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_asia_pacific         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_australia            : int  0 1 2 1 0 1 2 2 2 0 ...
#>  $ dr_australia            : int  0 0 1 0 0 0 0 0 0 0 ...
#>  $ eci_australia           : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_australia            : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_australia            : int  0 0 0 1 0 0 0 0 0 0 ...
#>  $ ci_eastern_europe       : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_great_britain        : int  0 0 0 0 0 0 1 0 0 0 ...
#>  $ dr_great_britain        : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_great_britain       : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_great_britain        : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_middle_eastand_africa: int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_new_zealand          : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_new_zealand          : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_north_america        : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_south_africa         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_south_africa         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_the_americas         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_the_americas         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_western_europe       : int  0 0 0 0 1 0 0 0 0 0 ...
#>  $ eci_western_europe      : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_english              : int  0 0 0 0 0 0 0 0 2 0 ...
#>  $ dr_english              : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_english             : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_english              : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_other_lang           : int  1 0 0 0 0 0 0 0 0 0 ...
#>  $ dr_other_lang           : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_ph_d                 : int  0 1 2 1 1 1 2 0 2 0 ...
#>  $ dr_ph_d                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_ph_d                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_ph_d                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_ph_d                 : int  0 0 0 1 0 0 0 0 0 0 ...
#>  $ sr_ph_d                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ success_ci              : num  0 0 0 0 0 2 0 0 2 0 ...
#>  $ unsuccess_ci            : num  0 0 0 0 0 0 1 3 1 0 ...
#>  $ success_dr              : num  0 0 0 0 0 0 0 0 0 0 ...
#>  $ unsuccess_dr            : num  0 0 0 0 0 0 0 0 0 0 ...
#>  $ success_eci             : num  0 0 0 0 0 0 0 0 0 0 ...
#>  $ unsuccess_eci           : num  0 0 0 0 0 0 0 0 0 0 ...
#>  $ success_ps              : num  0 0 0 0 0 0 0 0 0 0 ...
#>  $ unsuccess_ps            : num  0 0 0 0 0 0 0 0 0 0 ...
#>   [list output truncated]
str(grants_test)
#> 'data.frame':	518 obs. of  1503 variables:
#>  $ class                   : Factor w/ 2 levels "successful","unsuccessful": 2 2 1 1 1 1 1 1 1 1 ...
#>  $ num_ci                  : int  2 2 2 0 1 3 0 1 1 1 ...
#>  $ num_dr                  : int  0 1 0 0 0 0 0 1 0 0 ...
#>  $ num_ea                  : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ num_eci                 : int  0 2 0 0 0 1 1 1 0 0 ...
#>  $ num_hv                  : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ num_ps                  : int  0 0 0 1 0 0 0 0 0 0 ...
#>  $ num_sr                  : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ num_sci                 : int  0 0 3 1 0 0 0 0 0 0 ...
#>  $ num_unk                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1900                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1925                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1930                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1935                 : int  0 1 0 0 0 0 0 0 0 0 ...
#>  $ ci_1940                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ dr_1940                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1945                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ dr_1945                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_1945                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1945                 : int  0 0 0 1 0 0 0 0 0 0 ...
#>  $ ci_1950                 : int  0 0 0 0 0 2 0 0 0 0 ...
#>  $ dr_1950                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_1950                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1950                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1950                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1955                 : int  1 0 0 0 1 0 0 0 1 0 ...
#>  $ dr_1955                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_1955                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1955                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1955                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1960                 : int  0 0 1 0 0 0 0 0 0 0 ...
#>  $ dr_1960                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_1960                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1960                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1960                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1965                 : int  0 0 0 0 0 0 0 1 0 0 ...
#>  $ dr_1965                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_1965                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1965                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1965                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1970                 : int  1 1 0 0 0 0 0 0 0 1 ...
#>  $ dr_1970                 : int  0 0 0 0 0 0 0 1 0 0 ...
#>  $ eci_1970                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1970                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1970                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1975                 : int  0 0 1 0 0 1 0 0 0 0 ...
#>  $ dr_1975                 : int  0 1 0 0 0 0 0 0 0 0 ...
#>  $ eci_1975                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1975                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1975                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ sr_1975                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1980                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ dr_1980                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_1980                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_1985                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_1985                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_asia_pacific         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ dr_asia_pacific         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_asia_pacific         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_australia            : int  2 1 2 0 1 3 0 1 1 1 ...
#>  $ dr_australia            : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_australia           : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_australia            : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_australia            : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_eastern_europe       : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_great_britain        : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ dr_great_britain        : int  0 0 0 0 0 0 0 1 0 0 ...
#>  $ eci_great_britain       : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_great_britain        : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_middle_eastand_africa: int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_new_zealand          : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_new_zealand          : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_north_america        : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_south_africa         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_south_africa         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_the_americas         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_the_americas         : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_western_europe       : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_western_europe      : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_english              : int  0 0 1 0 0 0 0 0 0 0 ...
#>  $ dr_english              : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_english             : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_english              : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_other_lang           : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ dr_other_lang           : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ci_ph_d                 : int  2 1 2 0 0 2 0 1 0 1 ...
#>  $ dr_ph_d                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ eci_ph_d                : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ hv_ph_d                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ ps_ph_d                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ sr_ph_d                 : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ success_ci              : num  5 6 1 0 2 6 0 2 5 0 ...
#>  $ unsuccess_ci            : num  2 13 0 0 4 3 0 5 15 1 ...
#>  $ success_dr              : num  0 0 0 0 0 0 0 2 0 0 ...
#>  $ unsuccess_dr            : num  0 0 0 0 0 0 0 0 0 0 ...
#>  $ success_eci             : num  0 0 0 0 0 0 0 0 0 0 ...
#>  $ unsuccess_eci           : num  0 0 0 0 0 0 0 0 0 0 ...
#>  $ success_ps              : num  0 0 0 0 0 0 0 0 0 0 ...
#>  $ unsuccess_ps            : num  0 0 0 0 0 0 0 0 0 0 ...
#>   [list output truncated]
str(grants_2008)
#>  int [1:6633] 1 2 3 4 5 6 7 8 9 10 ...