data(companies)
fit <- studentFit(companies, family = Student(eta = .25))
# compute the 5% quantile from the estimated distribution of the weights
p <- fit$dims[2]
eta <- fit$eta
wts <- fit$weights
cutoff <- qweights(.05, eta = eta, dim = p, scaled = FALSE)
# identify observations with 'small' weights
n <- fit$dims[1]
which <- seq_len(n)[wts < cutoff]
which
Run the code above in your browser using DataLab