错误：'R'中的函数后找不到对象

Question

我有一个项目要做，这就是数据被分成3的原因。我需要使用D1中的数据，但它仍然说D1即使在函数中定义了D1也没有找到。请帮助:)：

    diabetes<-read.table("diabetes_data.txt",T)
    attach(diabetes)
    dimnames(diabetes)

#splitting the data
    group3.split=function(diabetes,group.num)
{

  set.seed(28)
  index.1=1:442
  d1=sort(sample(index.1,size=180,replace=FALSE))
  index.2=index.1[-d1]
  d2=sort(sample(index.2,size=180,replace=FALSE))
  d3=sort(c(d1,d2))
  test.d=index.1[-c(d3)]
  D1=diabetes[d1,]
  D2=diabetes[d2,]
  D3=diabetes[d3,]
  D.test=diabetes[test.d,]
  list(D1=D1, D2=D2, D3=D3, D.test=D.test)
}

#Renaming
Y=D1$Y
X1=D1$AGE
X2=D1$SEX
X3=D1$BMI
X4=D1$BP
X5=D1$S1
X6=D1$S2
X7=D1$S4
X8=D1$S4
X9=D1$S5
X10=D1$S6