New libraries

NAMESPACE

@@ -81,6 +81,8 @@ export(.p2r_arima)
 export(.p2r_context)
 export(.p2r_datasupplier)
 export(.p2r_datasuppliers)
+export(.p2r_date)
+export(.p2r_likelihood)
 export(.p2r_matrix)
 export(.p2r_metadata)
 export(.p2r_moniker)
@@ -133,6 +135,7 @@ export(.r2p_calendar)
 export(.r2p_context)
 export(.r2p_datasupplier)
 export(.r2p_datasuppliers)
+export(.r2p_date)
 export(.r2p_lparameters)
 export(.r2p_metadata)
 export(.r2p_moniker)
@@ -193,6 +196,7 @@ export(intervention_variable)
 export(jarquebera)
 export(julianeaster_variable)
 export(kurtosis)
+export(likelihood)
 export(ljungbox)
 export(long_term_mean)
 export(lp_variable)

R/protobuf.R

@@ -183,11 +183,16 @@ NULL
 }
 
 
+#' @export
+#' @rdname jd3_utilities
 .p2r_likelihood<-function(p){
   return (likelihood(p$nobs, p$neffectiveobs, p$nparams,
                          p$log_likelihood, p$adjusted_log_likelihood,
                          p$aic, p$aicc, p$bic, p$bicc, p$ssq))
 }
+
+#' @export
+#' @rdname jd3_utilities
 .p2r_date<-function(p){
   if (p$has('year')){
     return (ymd(p$year, p$month, p$day))
@@ -196,6 +201,8 @@ NULL
   }
 }
 
+#' @export
+#' @rdname jd3_utilities
 .r2p_date<-function(s){
   if (is.null(s)) return(jd3.Date$new())
   else return (parseDate(s))

R/utils.R

@@ -53,6 +53,23 @@ test_anova<-function(ssm, dfm, ssr, dfr){
   return (statisticaltest(val, pval, desc))
 }
 
+#' Title
+#'
+#' @param nobs
+#' @param neffectiveobs
+#' @param nparams
+#' @param ll
+#' @param adjustedll
+#' @param aic
+#' @param aicc
+#' @param bic
+#' @param bicc
+#' @param ssq
+#'
+#' @return
+#' @export
+#'
+#' @examples
 likelihood<-function(nobs, neffectiveobs=NA, nparams=0, ll, adjustedll=NA, aic, aicc, bic, bicc, ssq){
 
   if (is.na(neffectiveobs)) neffectiveobs=nobs