R语言自定义函数问题

写一个名为Women.Cor的函数,这一函数具有两个参数,参数1能够接受一个data.frame,参数2能够接受一个vector,要求函数功能是根据传入的vector获取对应行,并计算这些行前2列值的相关系数(pearson方法)。例如,如果传递:参数1是women数据集,参数2是c(4:8),返回的是women数据集4到8行数据,前2列的相关系数。