From a52df7b06208fbc4c445c2afa3294b5cf69c4846 Mon Sep 17 00:00:00 2001
From: Boyuan Ning <73546421+ningboyuan@users.noreply.github.com>
Date: Sun, 13 Mar 2022 22:28:58 +0100
Subject: [PATCH] Update MVAcarsim.r

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

diff --git a/QID-2546-MVAcarsim/MVAcarsim.r b/QID-2546-MVAcarsim/MVAcarsim.r
index 9dadfc9..4cf8a06 100644
--- a/QID-2546-MVAcarsim/MVAcarsim.r
+++ b/QID-2546-MVAcarsim/MVAcarsim.r
@@ -4,12 +4,16 @@ rm(list = ls(all = TRUE))
 graphics.off()
 
 # install and load packages
-libraries = c("simba")
-lapply(libraries, function(x) if (!(x %in% installed.packages())) {
-    install.packages(x)
-})
-lapply(libraries, library, quietly = TRUE, character.only = TRUE)
+# libraries = c("simba")
+# 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/simba")
+library(simba)       
+       
 x 	= read.table("carmean2.dat")  		# load data
 x 	= as.matrix(x[, 2:9])  			# retrieve Renault, Rover, Toyota
 x1719 	= x[c(17:19), ]