一応休日も、少しだけでも進めるようにしていきたいと思う。まず、対数を取る意味がなくなっていたので、先生のご指摘の通り関数を改善。 f3 <- function(x,y,z){ N <- sum(x,y,z) (lfactorial(N)+log(1/3)*N)- (lfactorial(x)+lfactorial(y)+lfactorial(z))…