Add partial fit for covid-19

[turgut090]

library(prophet)

df=read.csv('https://raw.githubusercontent.com/facebook/prophet/master/examples/example_wp_log_peyton_manning.csv')
m <- prophet(df,algorithm='LBFGS')
m$params


init_stan2 = function(){
  kmsig = as.list(vector(mode = 'numeric',3))
  names_=c('k','m','sigma_obs')
  names(kmsig)<-names_
  
  for (i in 1:length(kmsig)) {
    kmsig[[i]] <-m$params[[names_[i]]]
  }
  print('Done kmsigma')
  
  matrices_ = list(matrix(),matrix())
  names_2=c('delta','beta')
  names(matrices_)<-names_2
  
  for (i in 1:length(matrices_)) {
    matrices_[[i]] <-m$params[[names_2[i]]]
  }
  print('Done delta beta')
  
  
}

m2 = prophet(df, init=init_stan2, algorithm='LBFGS')