knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
A <- matrix(c(1:50),ncol = 5,nrow = 10 )
A <- A/100
A
result <- test_gl_to_gp(A)
plot(result)
B <- log(A)
B
log_sum_exp(B[1,])
log(sum(A[1,]))
log_likelihood_forB(B)
log_like(A)
log_gl_to_gp(B)
log(gl_to_gp(A))


HanweiH/ld documentation built on Dec. 17, 2021, 10:29 p.m.