Timing check to see how long it will take to run runInfluence.

Timing check to see how long it will take to run runInfluence.

Usage

timeInfluenceCheck(model, id)

Arguments

model: Fitted model object (glm, gamMRSea or gam)
id: blocking structure

Examples

# load data
data(ns.data.re)

ns.data.re$blockid<-paste(ns.data.re$GridCode, ns.data.re$Year, ns.data.re$MonthOfYear, 
                     ns.data.re$DayOfMonth, sep='')
ns.data.re$blockid<-as.factor(ns.data.re$blockid)
model<-gamMRSea(birds ~ observationhour + as.factor(floodebb) + as.factor(impact),  
              family='poisson', data=ns.data.re)

timeInfluenceCheck(model, ns.data.re$blockid)
#> [1] "Calculating the influence measures will take approximately 18 minutes"