ところで、function()で指定している引数(df)が、data.frameかvectorか？を判別する方法はあるだろうか？nrow(df)が1になった時は、vectorと判断して、各要素間でdist()するようにして、nrow(df)が1でない時は、各行をrbindしてdist()するようにする、、、と…