如何选择不包含特定字符的列？

Question

考虑一个向量，其中包括用于glm分析的预测变量名称，例如

    pred_vec <- c("var1", 
                  "var2", 
                  "var3", 
                  "var4", 
                  "var1*var2", 
                  "var1*var3", 
                  "var1*var4")

其中*表示两个预测变量之间的相互作用！我想选择pred_vec中不包含*的元素，即

pred_vec_new <- c("var1", 
                  "var2", 
                  "var3", 
                  "var4")

我需要它来为glm构造我的数据集

Dataset <- Dataset[ , pred_vec_new]