ノルム： norm=function(x){ return(sqrt(t(x)%*%x)) } 線形カーネル(標準内積) linearKernel=function(x1,x2){ return (t(x1)%*%x2) } x1=c(1,2) x2=c(3,4) linearKernel(x1,x2) >11 正規化線形カーネル (normalized linear kernel) normalizedLinearKernel…