ToothGrowth    len supp dose1   4.2   VC  0.52  11.5   VC  0.53   7.3   VC  0.54   5.8   VC  0.55   6.4   VC  0.56  10.0   VC  0.57  11.2   VC  0.58  11.2   VC  0.59   5.2   VC  0.510  7.0   VC  0.511 16.5   VC  1.012 16.5   VC  1.013 15.2   VC  1.014 17.3   VC  1.015 22.5   VC  1.016 17.3   VC  1.017 13.6   VC  1.018 14.5   VC  1.019 18.8   VC  1.020 15.5   VC  1.021 23.6   VC  2.022 18.5   VC  2.023 33.9   VC  2.024 25.5   VC  2.025 26.4   VC  2.026 32.5   VC  2.027 26.7   VC  2.028 21.5   VC  2.029 23.3   VC  2.030 29.5   VC  2.031 15.2   OJ  0.532 21.5   OJ  0.533 17.6   OJ  0.534  9.7   OJ  0.535 14.5   OJ  0.536 10.0   OJ  0.537  8.2   OJ  0.538  9.4   OJ  0.539 16.5   OJ  0.540  9.7   OJ  0.541 19.7   OJ  1.042 23.3   OJ  1.043 23.6   OJ  1.044 26.4   OJ  1.045 20.0   OJ  1.046 25.2   OJ  1.047 25.8   OJ  1.048 21.2   OJ  1.049 14.5   OJ  1.050 27.3   OJ  1.051 25.5   OJ  2.052 26.4   OJ  2.053 22.4   OJ  2.054 24.5   OJ  2.055 24.8   OJ  2.056 30.9   OJ  2.057 26.4   OJ  2.058 27.3   OJ  2.059 29.4   OJ  2.060 23.0   OJ  2.0
tg <- ddply(ToothGrowth, c("supp", "dose"), summarise, length = mean(len))请问这行是什么意思呢？