fishy288
kfunction <- function(linear =0, quadratic=0)
{
k <- function (x,y)
{
linear*sum((x)*(y)) + quadratic*sum((x^2)*(y^2))
}
class(k) <- "kernel"
k
}
这个函数里面的参数 x y 和 linear quadratic 都具备怎样的性质?
doubletang
kfunction用来定制并返回一个新的function,linear和quadratic决定了被定制的新function的内部参数,在使用该function时无法改变,x和y是使用该function时用户传入的参数,是可以自定义的
ryo
k = function (x, y, quadratic = quadratic)
就可以了,子函数就可以呼叫到母函数的参数了。