質問編集履歴

3

2020/07/16 08:23

投稿

ayaka64
ayaka64

スコア1

test CHANGED
File without changes
test CHANGED
@@ -429,7 +429,3 @@
429
429
  を使用しています。どちらも先日インストールしたので最新のバージョンだと思います。
430
430
 
431
431
  Excelのテキスト(タブ区切り)形式のファイルを読み込んで使用しており、データセットはパッケージの説明に使用されていた例のデータ(「ojtcata」)と同様にセットしました。
432
-
433
-
434
-
435
- https://jwuo365-my.sharepoint.com/:x:/g/personal/m1922004ka_gr_jwu_ac_jp/EaoPtgvYDjFDk-pg6T0h8OUBa9Iy03D7W57SqAj-eSYbxw

2

データのURLを補足情報欄に記載しました。あまり記載したままにしたくないので確認(保存)したらご連絡いただいてもよろしいでしょうか(URLを削除します)。よろしくお願いいたします。

2020/07/16 08:23

投稿

ayaka64
ayaka64

スコア1

test CHANGED
File without changes
test CHANGED
@@ -429,3 +429,7 @@
429
429
  を使用しています。どちらも先日インストールしたので最新のバージョンだと思います。
430
430
 
431
431
  Excelのテキスト(タブ区切り)形式のファイルを読み込んで使用しており、データセットはパッケージの説明に使用されていた例のデータ(「ojtcata」)と同様にセットしました。
432
+
433
+
434
+
435
+ https://jwuo365-my.sharepoint.com/:x:/g/personal/m1922004ka_gr_jwu_ac_jp/EaoPtgvYDjFDk-pg6T0h8OUBa9Iy03D7W57SqAj-eSYbxw

1

ご指摘いただきましたxの出力内容を追加しました。文字数の関係上、途中は結果の数のみとなっています。よろしくお願いいたします。

2020/07/16 07:31

投稿

ayaka64
ayaka64

スコア1

test CHANGED
File without changes
test CHANGED
@@ -28,6 +28,346 @@
28
28
 
29
29
  x <- aggregate(名前[, -c(1:4)], list(samp = 名前$samp, attribute = 名前$attribute), sum)
30
30
 
31
+
32
+
33
+ > x
34
+
35
+ time_0s1 time_0s2 time_0s3 time_0s4 time_0s5 time_0s6 time_0s7
36
+
37
+ 0 0 0 0 0 0 0
38
+
39
+ time_0s8 time_0s9 time_0s10 time_1s1 time_1s2 time_1s3 time_1s4
40
+
41
+ 0 0 0 0 0 0 0
42
+
43
+ time_1s5 time_1s6 time_1s7 time_1s8 time_1s9 time_1s10 time_2s1
44
+
45
+ 0 0 0 0 0 0 0
46
+
47
+ 0 0 0 0 0 0 0
48
+
49
+ 0 1 0 0 0 0 2
50
+
51
+ 0 1 0 1 1 0 5
52
+
53
+ 1 2 2 0 2 0 1
54
+
55
+ 2 0 7 1 2 2 3
56
+
57
+ 7 0 1 4 0 7 5
58
+
59
+ 2 3 10 8 0 1 9
60
+
61
+ 1 8 7 3 6 16 9
62
+
63
+ 0   1   8   2  12   7   3
64
+
65
+ 8  21  13   0   1   9   2
66
+
67
+ 15   8   5   8  22  16   0
68
+
69
+ 1  12   2  17  10   6   9
70
+
71
+ 26  19   0   2  14   2  18
72
+
73
+ 11   8   8  26  20   0   3
74
+
75
+ 16   4  19  11   8   8  28
76
+
77
+ 21   0   2  16   4  19  13
78
+
79
+ 8   8  28  22   0   2  17
80
+
81
+ 5  20  13   8   8  27  23
82
+
83
+ 0   2  18   6  22  15  10
84
+
85
+ 8  28  23   0   3  18   6
86
+
87
+ 22  15  12   8  30  24   0
88
+
89
+ 4  18   6  22  15  14   8
90
+
91
+ 31  24   0   4  20   7  22
92
+
93
+ 16  14   9  30  24   0   4
94
+
95
+ 20   7  22  17  16   8  30
96
+
97
+ 24   0   4  20   7  22  18
98
+
99
+ 17   9  31  25   0   4  21
100
+
101
+ 7  22  18  17   9  31  25
102
+
103
+ 0   4  22   8  22  20  18
104
+
105
+ 9  30  25   0   4  23   7
106
+
107
+ 23  21  18   9  30  25   0
108
+
109
+ 4  23   7  23  20  18   9
110
+
111
+ 29  27   0   4  22   7  23
112
+
113
+ 20  19   9  31  27   1   4
114
+
115
+ 22   7  23  20  19  10  33
116
+
117
+ 26   2   5  23   7  23  22
118
+
119
+ 19  12  33  26   1   5  23
120
+
121
+ 5  24  22  19  11  34  25
122
+
123
+ 2   5  22   5  25  22  19
124
+
125
+ 11  33  25   1   5  22   5
126
+
127
+ 26  22  20  11  33  26   2
128
+
129
+ 5  23   5  25  22  20  11
130
+
131
+ 34  26   2   6  23   5  25
132
+
133
+ 21  20  11  34  24   1   5
134
+
135
+ 23   5  25  21  20  11  35
136
+
137
+ 23   2   4  23   5  24  21
138
+
139
+ 19  10  36  23   2   4  22
140
+
141
+ 5  24  21  20  10  38  23
142
+
143
+ 1   4  21   5  24  20  19
144
+
145
+ 11  38  24   2   4  22   5
146
+
147
+ 24  20  19  11  38  24   1
148
+
149
+ 4  21   4  25  20  17  12
150
+
151
+ 39  23   2   4  20   4  26
152
+
153
+ 20  17  12  38  23   2   4
154
+
155
+ 20   3  26  21  17  12  38
156
+
157
+ 23   1   4  20   3  26  21
158
+
159
+ 18  12  38  22   2   4  20
160
+
161
+ 3  25  21  18  11  38  20
162
+
163
+ 2   4  19   3  25  21  18
164
+
165
+ 10  38  20   1   4  17   1
166
+
167
+ 26  21  18  12  37  20   1
168
+
169
+ 4  18   1  25  21  17  12
170
+
171
+ 37  20   0   5  19   1  25
172
+
173
+ 20  17  13  34  18   2   5
174
+
175
+ 20   1  25  20  17  13  33
176
+
177
+ 18   2   5  20   1  23  20
178
+
179
+ 17  12  34  18   1   5  19
180
+
181
+ 1  23  21  16  12  32  18
182
+
183
+ 2   5  18   1  23  20  15
184
+
185
+ 12  34  17   2   5  20   1
186
+
187
+ 23  21  15  13  34  17   1
188
+
189
+ 5  20   1  23  21  15  10
190
+
191
+ 34  16   2   5  19   1  23
192
+
193
+ 21  16  10  33  16   2   4
194
+
195
+ 19   1  24  22  14  11  33
196
+
197
+ 15   1   4  18   1  24  22
198
+
199
+ 14  11  33  16   2   4  17
200
+
201
+ 1  21  23  14   8  33  16
202
+
203
+ 1   4  17   1  21  23  14
204
+
205
+ 9  33  16   2   4  18   1
206
+
207
+ 22  23  13  10  33  14   2
208
+
209
+ 4  17   1  23  23  13  10
210
+
211
+ 33  14   1   2  17   1  23
212
+
213
+ 23  12  10  34  14   2   2
214
+
215
+ 18   1  23  23  12  10  34
216
+
217
+ 13   2   2  17   1  22  23
218
+
219
+ 12   9  33  14   1   2  17
220
+
221
+ 1  21  22  12   8  32  14
222
+
223
+ 2   2  17   1  21  22  12
224
+
225
+ 7  33  14   1   2  16   1
226
+
227
+ 21  22  12   7  32  14   2
228
+
229
+ 1  16   1  23  20   9   7
230
+
231
+ 32  13   2   1  16   0  23
232
+
233
+ 20   9   7  31  13   1   1
234
+
235
+ 16   0  23  18   9   8  31
236
+
237
+ 13   2   1  15   0  24  17
238
+
239
+ 9   7  31  12   2   1  16
240
+
241
+ 0  23  17   9   6  31  12
242
+
243
+ 1   1  16   0  23  17   8
244
+
245
+ 6  31  12   2   1  15   0
246
+
247
+ 24  17   8   7  30  11   1
248
+
249
+ 1  15   0  23  17   8   7
250
+
251
+ 28  11   2   1  15   0  20
252
+
253
+ 19   8   5  28  10   2   1
254
+
255
+ 15   0  21  19   7   6  27
256
+
257
+ 10   1   1  15   0  21  19
258
+
259
+ 7   7  27  10   2   1  15
260
+
261
+ 0  21  18   8   7  27   9
262
+
263
+ 2   1  15   0  20  17   8
264
+
265
+ 6  25   8   1   1  15   0
266
+
267
+ 20  17   7   6  24   8   2
268
+
269
+ 1  15   0  22  15   7   7
270
+
271
+ 24   7   2   1  14   0  22
272
+
273
+ 14   7   5  24   6   1   2
274
+
275
+ 13   0  23  14   7   5  24
276
+
277
+ 5   1   2  13   0  22  14
278
+
279
+ 7   5  25   5   0   2  13
280
+
281
+ 0  21  14   6   4  24   5
282
+
283
+ 1   2  14   0  20  13   6
284
+
285
+ 4  24   5   1   2  14   0
286
+
287
+ 22  13   5   5  22   5   0
288
+
289
+ 2  14   0  20  13   5   5
290
+
291
+ 21   5   0   2  14   0  21
292
+
293
+ 13   5   5  20   6   0   2
294
+
295
+ 14   0  20  13   5   5  20
296
+
297
+ 6   0   2  14   0  20  12
298
+
299
+ 5   4  19   6   0   2  14
300
+
301
+ 0  19  12   4   4  19   6
302
+
303
+ 0   1  14   0  17  11   4
304
+
305
+ 3  19   6   0   1  14   0
306
+
307
+ 16  11   4   3  19   5   0
308
+
309
+ 1  14   0  16  11   4   4
310
+
311
+ 19   3   0   1  13   0  15
312
+
313
+ 12   4   4  18   3   0   1
314
+
315
+ 13   0  13  12   4   3  18
316
+
317
+ 3   0   1  13   0  13  12
318
+
319
+ 4   3  18   3   0   1  13
320
+
321
+ 0  10  10   2   1  17   3
322
+
323
+ 0   1  12   0  10   8   2
324
+
325
+ 0  16   3   0   1  12   0
326
+
327
+ time_100s2 time_100s3 time_100s4 time_100s5 time_100s6 time_100s7 time_100s8
328
+
329
+ 12 9 1 3 16 3 0
330
+
331
+ time_100s9 time_100s10
332
+
333
+ 1 11
334
+
335
+
336
+
337
+ ご参考までに、以下は「ojtcata」でxを出力した結果(3行目まで)です。
338
+
339
+ > head(x, 3)
340
+
341
+ samp attribute time_0s time_1s time_2s time_3s time_4s time_5s time_6s time_7s time_8s
342
+
343
+ 1 1 Astringent 0 0 0 0 0 0 2 2 3
344
+
345
+ 2 2 Astringent 0 0 0 0 1 1 2 3 4
346
+
347
+ 3 3 Astringent 0 0 0 0 1 1 1 2 2
348
+
349
+ time_9s time_10s time_11s time_12s time_13s time_14s time_15s time_16s time_17s time_18s
350
+
351
+ 1 3 5 4 6 6 6 6 7 7 7
352
+
353
+ 2 3 3 2 2 2 3 3 3 3 3
354
+
355
+ 3 4 3 4 5 6 5 5 7 7 7
356
+
357
+ time_19s time_20s
358
+
359
+ 1 9 9
360
+
361
+ 2 5 5
362
+
363
+ 3 7 8
364
+
365
+
366
+
367
+
368
+
369
+
370
+
31
371
  p.1.checked <- x[x$samp == 1, -c(1:2)]
32
372
 
33
373
  p.1.eval <- length(unique(名前$cons))