Exercise 4-1

p <- runif(1000, 0, 1)
y <- as.logical(rbinom(1000, 1, .5))

cross_entropy_loss_2 <- -mean(y * log(p) + (1-y)*log(1-p))