利用grep函数提取tianmao1的stock、stockclass两列，将其保存到stockc数据集中；

你可以使用以下代码利用`grep()`函数提取`tianmao1`数据集中的`stock`和`stockclass`两列，并将它们保存到`stockc`数据集中：

stockc <- tianmao1[, grep("stock|stockclass", colnames(tianmao1))]

这段代码使用`grep()`函数来匹配列名中包含"stock"或"stockclass"的列，并使用索引操作符`[, ]`将这些列从`tianmao1`数据集中提取出来，然后将提取的结果保存到`stockc`数据集中。