Подмножество сэмплов для объекта ExpressionSet

У меня есть объект ExpressionSet со 100 сэмплами:

> length(sampleNames(eset1))
100

У меня также есть вектор имен 75 сэмплов (не сами данные):

> length(vecOf75)
75

Как я могу подмножество eset1 (и сохранить его) в соответствии с 75 именами примеров? То есть я хочу игнорировать те образцы в eset1 , имена которых не указаны в vecOf75 . Имейте в виду, что некоторые из семплов, соответствующих 75 названиям семплов, могут отсутствовать в eset1 . Таким образом,

> length(sampleNames(eset1))

теперь должно давать что-то <75.