Haroperi

require(lars)

y <- iris[,1]
x <- iris[,2:4]
x <- as.matrix(x)
result <- lars(x=x, y=y, type="lasso")

coefs <- predict.lars(result, x, type='coefficients')

print(coefs)

Haroperi

SB棟の低層区の市民はエレベータの下のボタンを押しつつも、エレベータが高層区の乗降でしばらく下に来ないと分かるやいなや、階段で一階まで降りる。その結果高層区からエレベータで降りてくる市民は、乗客いない階で足止めを食らう。高層区の市民は自分より下の階にエレベータは不要であると思っているし、また、全ての市民は自分より上の階は崩れればいいと思っている。このような憎しみ合いの結果、だるま落としの上手い巨人でも現れない限り、SB棟は最上階から順に徐々に崩れ、いずれはSB棟を平屋建てにするだろう。

Haroperi

mecab --node-format="%m/%h/%f[7] "  --unk-format="%M" --eos-format="\n" --eon-format=' ' | sed -e 's/ $//'