Как удалить столбцы по имени во фрейме данных

У меня большой набор данных, и я хотел бы прочитать определенные столбцы или отбросить все остальные.

data <- read.dta("file.dta")

Я выбираю столбцы, которые меня не интересуют:

var.out <- names(data)[!names(data) %in% c("iden", "name", "x_serv", "m_serv")]

и затем я хотел бы сделать что-то вроде:

for(i in 1:length(var.out)) {
   paste("data$", var.out[i], sep="") <- NULL
}

, чтобы удалить все ненужные столбцы. Это оптимальное решение?