I implemented "varbvsmixoptimize" in R.