シェア


消費社会への問題提起。
人はなぜ、たまにしか使わないものを所有したがるのか？
工具、ドレス、車、やりおわったゲーム、読み終わった本、子供服・・・

近年、ネットの発達により遠くに離れた人でもすぐに結び付けられるようになった。
ネットを使えば、貸したい人と借りたい人、いらない人と欲しい人をつなげることができる。
いつでも、必要なときに必要なものを借りられるようになれば、物を所有する必要はなくなる。
ドリルが欲しいんじゃない。穴を開けたいんだ。

今や、シェアできるものは、物だけではなく、
時間、空間、お金、知識、技術にまで広がり、これからシェアの考え方はどんどん広がるだろう。
って話

{

    xx <- apply(condition,c(1,2),as.numeric)

    decision <- apply(decision,c(1,2),as.numeric)>=clas

    ans<-TRUE

    for(ii in 1:nrow(condition)){

        ll <- apply(t(t(xx)-xx[ii,])>=0,1,sum)>=ncol(condition)

        hh <- apply(t(-(t(xx)-xx[ii,]))>=0,1,sum)>=ncol(condition)

        th2 <- sum(!decision&ll)

        th1 <- sum(decision&hh)

        ans<-c(ans,th1/(th1+th2)>=beta)

    }

    tail(ans,nrow(condition))

}

------------------------------------------------------------


使用例:下近似集合に属する対象を抽出する
subset(condition, lower.apx(condition,decision,1,beta=1) )

東京ミッドタウンにて

ミッドタウンに来た。

面接まで時間があったので、

横に公園があってベンチで和み中。

さっき散歩してた時に、公園掃除の人をみた。

5人がかりで、川の掃除をしてた。

でも、めっちゃダラダラしてやってたし、帰ったあとも、めっちゃ落ち葉とかゴミとか残ってた。

もっとキッチリやれよーと思いつつ、近くのベンチに座ってたら、女の子が通っていった。

公園にゴミ捨てたらダメなんだよー
って言いながら
小さいながら頑張って手を伸ばしてゴミを拾ってた。

気にも止めない大人
気が付くが行動しない大人
気に留めてすぐ行動する子ども

理由があれば行動しないで良いのか？