Nothing
.Optimization_one_constraint_2_SPOR_DynProg <- function(X,Y,deg,timeT,mat_param,sigma2,EM,constraint){
if(constraint == 1 | constraint == 2){
if(EM==TRUE){
param_est <- .EM_algorithm_one_constraint_2_SPOR_DynProg(X,Y,deg,timeT,mat_param,sigma2,constraint)
}else{
obs_weights_i <- .Observations_weigths(X,timeT)
regimes_prob_i <- obs_weights_i
param_est <- .Fixed_point_method_one_constraint_2_SPOR_DynProg(X,Y,deg,timeT,sigma2,obs_weights_i,regimes_prob_i,constraint)
}
}else{
obs_weights_i <- .Observations_weigths(X,timeT)
MLL <- .Minus_Complete_log_likelihood(X,Y,deg,timeT,mat_param,sigma2,obs_weights_i)
param_est <- list(mat_param,sigma2,MLL)
}
return(param_est)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.