From 0ce40dcce689abcd8b61ae23f7308130e7b21074 Mon Sep 17 00:00:00 2001
From: Boyuan Ning <73546421+ningboyuan@users.noreply.github.com>
Date: Sat, 12 Mar 2022 23:30:22 +0100
Subject: [PATCH] Update MVACARTBan2.r

---
 QID-1708-MVACARTBan2/MVACARTBan2.r | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/QID-1708-MVACARTBan2/MVACARTBan2.r b/QID-1708-MVACARTBan2/MVACARTBan2.r
index c7ef1d2..25e2e79 100644
--- a/QID-1708-MVACARTBan2/MVACARTBan2.r
+++ b/QID-1708-MVACARTBan2/MVACARTBan2.r
@@ -4,11 +4,15 @@ rm(list = ls(all = TRUE))
 graphics.off()
 
 # install and load packages
-libraries = c("mvpart")
-lapply(libraries, function(x) if (!(x %in% installed.packages())) {
-    install.packages(x)
-})
-lapply(libraries, library, quietly = TRUE, character.only = TRUE)
+# libraries = c("mvpart")
+# lapply(libraries, function(x) if (!(x %in% installed.packages())) {
+#     install.packages(x)
+# })
+# lapply(libraries, library, quietly = TRUE, character.only = TRUE)
+
+install.packages("devtools")
+devtools::install_github("cran/mvpart")
+library(mvpart)
 
 # load data
 x  = read.table("bankruptcy.dat")