R:追加問題の解答
This presentation is the property of its rightful owner.
Sponsored Links
1 / 6

R:追加問題の解答 PowerPoint PPT Presentation


  • 40 Views
  • Uploaded on
  • Presentation posted in: General

R:追加問題の解答. 新納浩幸. 問題(1)の解答. playerHRRBIAVG A1856242 B1753306 C1458314 D842244 E652257 F18219 G2467281 H1873298 I23208 J18233 K537310 L16228 M17277 N411220 O03400 P02118 Q00250 R02261 S01188 T50107334 U1233318

Download Presentation

R:追加問題の解答

An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


6070320

R:追加問題の解答

新納浩幸


6070320

問題(1)の解答

playerHRRBIAVG

A1856242

B1753306

C1458314

D842244

E652257

F18219

G2467281

H1873298

I23208

J18233

K537310

L16228

M17277

N411220

O03400

P02118

Q00250

R02261

S01188

T50107334

U1233318

(問題1) 上記データをファイルに保存して、そのファイルから上記データを

data.frame として読み込め。

df ← read.table(”datafile”,header=T)


6070320

問題(2)の解答

(問題2) itm は "HR" か "RBI" か "AVG" の値をとるとする。

問題1で作った data.frame と itm を入力し、その

平均 itm 数、最高 itm 数、最低 itm 数、最高 itm 数をもつ選手、

の4組を取り出す関数 bunseki を作成せよ。

ただし itm の入力がない場合は itm="AVG" として処理するようにせよ。

例えば、 itm="HR" なら、

8.666667, 50, 0, T

の4組を返す。この4組のデータ構造は何でも良い。

bunseki <- function(df,itm="AVG") {

ids <- which(df[itm] == max(df[itm]))

lt <- list(mean=mean(df[itm]),max=max(df[itm]),

min=min(df[itm]),maxplayer=df[ids[1],]["player"])

lt

}


6070320

問題(2)の別解答

多くの人は attach を使っていました。

attach を使うと itm を文字列にしなくてすみます。

bunseki3 <- function(df,itm=AVG) {

attach(df);

ids <- which(itm == max(itm))

lt <- list(mean=mean(itm),max=max(itm),

min=min(itm),maxplayer=player[ids[1]])

lt

}


Which

which の利用例

> x ← 10:20

> x

[1] 10 11 12 13 14 15 16 17 18 19 20

> y ← which(x %% 2 == 0)

> y

[1] 1 3 5 7 9 11

> x[y]

[1] 10 12 14 16 18 20

>


6070320

その他

関数はファイル( bunseki.r )に書いて、それを

> source(”bunseki.r”)

と読み込んで使うのが普通です。


  • Login