# NO PONERLO SI CORRO EL CODIGO
# library(devtools)
# check()
# load_all()
#
# Pruebas
# timesTwo(5)
# a <- factor(c("character", "hits", "your", "eyeballs"))
# b <- factor(c("but", "integer", "where it", "counts"))
#
# fbind(a,b)
#
#
# usethis::use_rcpp_armadillo()
#
#
# fit3 <- binomial_probit(y = matrix(beetle_ext$y),
# X = cbind(1, beetle_ext$x),
# maxit = 100
# )
#
# fit3$beta
# fit3 <- binomial_logit(Y = matrix(beetle_ext$y), X)
# # binomial_logit(1,2)
# # fit3$beta
#
# devtools::install_github("ylleonv/pcglm")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.