Use data.frame row number as data if no response variable in formula