こちらから Rでは、複数の「名前のついた情報のまとまり」を返すときには、listで返すことになっている 返り値のセットから、特定のものを取り出すには"$"を使う g2<- function(x){ pattern<- 0 score<- 0 switch(x, list(pattern= 1,score= 0), list(patter…