質問編集履歴
2
誤字
test
CHANGED
File without changes
|
test
CHANGED
@@ -190,7 +190,7 @@
|
|
190
190
|
|
191
191
|
15: .External(list(name = "CppMethod__invoke_notvoid", address = <pointer: 0x000000000858fda0>,
|
192
192
|
|
193
|
-
dll = list(name = "Rcpp", path = "C:/Users/
|
193
|
+
dll = list(name = "Rcpp", path = "C:/Users/User/Documents/R/win-library/3.4/Rcpp/libs/x64/Rcpp.dll",
|
194
194
|
|
195
195
|
dynamicLookup = TRUE, handle = <pointer: 0x000000006abc0000>,
|
196
196
|
|
1
誤字
test
CHANGED
File without changes
|
test
CHANGED
@@ -48,7 +48,7 @@
|
|
48
48
|
|
49
49
|
+ data <- mx.symbol.Variable('data')
|
50
50
|
|
51
|
-
+ # 1st convolutional layer 5x5 kernel
|
51
|
+
+ # 1st convolutional layer 5x5 kernel
|
52
52
|
|
53
53
|
+ conv_1 <- mx.symbol.Convolution(data= data, kernel = c(5,5), num_filter = unit1)
|
54
54
|
|
@@ -56,7 +56,7 @@
|
|
56
56
|
|
57
57
|
+ pool_1 <- mx.symbol.Pooling(data = tanh_1, pool_type = "max", kernel = c(2,2), stride = c(2,2))
|
58
58
|
|
59
|
-
+ # 2nd convolutional layer 5x5 kernel
|
59
|
+
+ # 2nd convolutional layer 5x5 kernel
|
60
60
|
|
61
61
|
+ conv_2 <- mx.symbol.Convolution(data = pool_1, kernel = c(5,5), num_filter = unit2)
|
62
62
|
|
@@ -88,8 +88,6 @@
|
|
88
88
|
|
89
89
|
+ device <- mx.cpu()
|
90
90
|
|
91
|
-
+ # Train on 1200 samples
|
92
|
-
|
93
91
|
+ model <- mx.model.FeedForward.create(model, X = train_array, y = train.y,
|
94
92
|
|
95
93
|
+ ctx = device,
|