R 使われていない引数 エラー

Question

world<-function(data){
  +  year<-deparse(substitute(data))
  + year<-substring(year,nchar(year)-3)
  + index<-order(data,decreasing = FALSE)[1:10]
  + world1<-data[index]
  + names(world1)<-rownames(ppp)[index]
  + result<-data.frame(world1)
  + colnames(result)<-paste("GDP.",year,sep = "")
  + result
  + }
> world(ppp$X1999,1:5)
 world(ppp$X1999, 1:5) でエラー:  使われていない引数 (1:5)

GDPのランキングなんですけど、１位から１０位までの関数を作って、その中の１位から5位を抜き出したいのですがエラーが出ます、どうしたらよいのでしょうか。

Answer 1

function(data)と、パラメータを一つしか受け取らない定義になっているので、1:5の指定は無効になるでしょう。

world <- function(data, from, to) {
...
  return(result[c(from:to),])
}

world(ppp$X1999, 1, 5)

ざっくりこんな雰囲気に書き換える必要があると思います。

Comments

[退会済みユーザー]

回答ありがとうございます。function()の中のfromとtoをカンマ区切りではなく、一つにまとめて表現したい場合どうしたらいいのでしょうか？

[KojiDoi]

Rのオブジェクトは基本的にベクトルです。ベクトルとして処理するように各ステップを書けばよいだけです。

world <- function(data, r){
...
return(result[r,])
}

world(ppp$X1999, c[1:5])

こんな感じ。

[退会済みユーザー]

できました！ありがとうございます！