RでDeep Learning(8)

前回の続き。

正解率はこの通り。

> test_acc
[1] 0.9713
> train_acc
[1] 0.9892667

正解できなかった問題の一部。

y <- predict(x_test)
y_1 <- apply(y,1,which.max)
t <- apply(t_test,1,which.max)
error <- t!=y_1

num_image <- x_test[error,]
num_t <- t_test[error,]
num_predict <- y[error,]

hyozi <- function(x){
a <- num[x,]
b <- matrix(a,nrow=28,byrow=T)
d <- t(b[nrow(b):1,ncol(b):1])[ncol(b):1,]
image(d,axes=FALSE)

print(paste("正解:",which.max(num_t[x,])-1))
print(paste("予測:",which.max(num_predict[x,])-1))
}

正解:9、予測:3
f:id:touch-sp:20170428044716p:plain:w200

正解:5、予測:6
f:id:touch-sp:20170428044813p:plain:w200

正解:0、予測:8
f:id:touch-sp:20170428044939p:plain:w200