Implémentation Var bayesien
Bonjour,
Dans le cadre d'un projet, je dois réaliser un VAR bayesien sur 27 séries de données datant du Q1 1950 à Q1 2019.
Je vous joins une photo de mes données en pièce-jointe.
Le problème est que lorsque j'ai réalisé mon BVAR, j'ai obtenu ce message : " Error in bvar(data, lags = 5, n_draw = 10000, n_burn = 5000, n_thin = 1, :
Problem with the data. Make sure it is numeric without any NAs. "
Pour corriger ce problème, j'ai essayé de transformer toutes mes colonnes grâce à as.numeric mais cela ne change pas le message d'erreur et de plus cela à modifié mes cellules vides qui prennent maintenant la valeur "1". De plus, j'ai utilisé na.omit pour supprimer les NA.
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
|
class(data$USUPDAWNB)
data <- na.omit(data)
n <- ncol(data)-1
for (i in 2:n) {
data[,i] <- as.numeric(data[,i])
}
bvar(data,lags=5,n_draw = 10000, n_burn = 5000, n_thin = 1,priors = bv_priors(hyper = "auto", mn = bv_mn(alpha = bv_alpha(mode = 0.5, min = 1e-12, max = 10), |
D'ailleurs j'ai aussi essayé de transformer le tableau en TS mais je n'y arrive pas non plus.
Avez-vous une solution à me proposer ?
Merci d'avance.
Bien cordialement.
