r-statistics-fanの日記

統計好きの現場の臨床医の覚書のようなもの

データの出力時にrownamesを出したくない/ポケモンGO,ラッキーCP777になる固体値全部

ふつうに行列をコンソールに出力すると

> lucky777
AT DF HP Lv
[1,] 0 2 14 24
[2,] 0 3 11 24
[3,] 0 3 12 24
[4,] 0 4 8 24
[5,] 0 4 9 24

のようにrownamesがNULLであっても、[1,] のように何行目か
分かるようにコンソールに出力される。
これを消したい。

write.table(lucky777, "", quote=F, sep="\t", row.names=F, col.names=T)

のようにwrite.tableで出力ファイルを""にすれば、コンソールにcolnamesのみ
出力される。

以下ラッキーがCP777になるすべての固体値組み合わせ

ans <- list()
ct <- 1
for(i in 0:15){
      for(j in 0:15){
            for(k in 0:15){
                  for(l in 1:39){
if(cp.cal(i, j, k, 60, 176, 500, l) == 777){
      ans[[ct]] <- c(i,j,k,l)
      ct <- ct + 1
}
                  }}}}

lucky777 <- matrix(unlist(ans), ncol = 4, byrow = TRUE)
colnames(lucky777) <- c("AT", "DF", "HP", "Lv")

write.table(lucky777, "", quote=F, sep="\t", row.names=F, col.names=T)

ラッキーがCP777になる固体値/レベルの組み合わせは110も有るようだ。
ラッキー777が2体になってほくそ笑んでいたけど、それほどレアでは
ないようだ。

AT	DF	HP	Lv
0	2	14	24
0	3	11	24
0	3	12	24
0	4	8	24
0	4	9	24
0	5	6	24
0	6	3	24
0	7	0	24
1	0	3	24
1	1	0	24
1	1	1	24
1	12	13	23
1	13	10	23
1	14	7	23
1	14	8	23
1	15	5	23
2	6	13	23
2	7	10	23
2	8	7	23
2	8	8	23
2	9	4	23
2	9	5	23
2	10	2	23
3	0	14	23
3	1	11	23
3	2	8	23
3	3	5	23
3	4	2	23
3	5	0	23
4	10	15	22
4	11	12	22
4	12	9	22
4	12	10	22
4	13	6	22
4	13	7	22
4	14	4	22
4	15	1	22
5	5	13	22
5	6	10	22
5	7	7	22
5	8	4	22
5	8	5	22
5	9	2	22
6	0	11	22
6	0	12	22
6	1	9	22
6	2	6	22
6	3	3	22
6	4	0	22
7	10	15	21
7	11	13	21
7	12	10	21
7	13	7	21
7	13	8	21
7	14	5	21
7	15	2	21
8	5	14	21
8	5	15	21
8	6	11	21
8	6	12	21
8	7	9	21
8	8	6	21
8	9	3	21
8	10	0	21
8	10	1	21
9	0	14	21
9	1	11	21
9	2	8	21
9	3	5	21
9	4	2	21
9	5	0	21
10	12	15	20
10	13	12	20
10	13	13	20
10	14	10	20
10	15	7	20
11	7	14	20
11	7	15	20
11	8	12	20
11	9	9	20
11	10	6	20
11	11	3	20
11	11	4	20
11	12	1	20
12	2	14	20
12	2	15	20
12	3	11	20
12	3	12	20
12	4	8	20
12	4	9	20
12	5	6	20
12	6	3	20
12	7	0	20
13	0	6	20
13	1	3	20
13	2	0	20
14	11	13	19
14	11	14	19
14	12	11	19
14	13	8	19
14	14	5	19
14	14	6	19
14	15	3	19
15	6	14	19
15	7	11	19
15	8	8	19
15	9	5	19
15	10	2	19
15	10	3	19
15	11	0	19