# NOT RUN {
loss_name <- "loss"
x <- qchar_frame(
measure, training, validation |
"minus binary cross entropy", .(loss_name), val_loss |
accuracy, acc, val_acc )
print(x)
str(x)
cat(draw_frame(x))
qchar_frame(
x |
1 |
2 ) %.>% str(.)
# }
Run the code above in your browser using DataLab