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))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.