knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) library(LuoYinengTools)
#data(d) #luoplot1(d$x,d$p) #luoplot2(d$x,d$p) #luoplot3(d$x,d$p)
#x1 <- rgamma(100, 3) #func10 = function(theta,x1) dgamma(x1, shape = theta,log = TRUE) #result7_gamma <- func10(x1, func1, c(0,3)) #result7_gamma
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.