2011-06-13 R sapplyの使い方が分からんねんな。gram <- sapply(x1, function(x) kf.gauss(x,x1))qr(行列)で?汎化能力がかなり低い。これじゃ駄目ね。