From 0ced7178b83d245d60a0c7a378f05954e11c064a Mon Sep 17 00:00:00 2001
From: "Emerson M. Del Ponte" <edelponte@gmail.com>
Date: Mon, 16 Oct 2023 16:26:04 -0300
Subject: [PATCH] update library

---
 R/CompMuCens.R                |  16 +++++++++++++++-
 data/DidymellaWatermellon.rda | Bin 578 -> 0 bytes
 data/DidymellaWatermelon.rda  | Bin 0 -> 577 bytes
 man/DidymellaWatermelon.Rd    |   2 +-
 4 files changed, 16 insertions(+), 2 deletions(-)
 delete mode 100644 data/DidymellaWatermellon.rda
 create mode 100644 data/DidymellaWatermelon.rda

diff --git a/R/CompMuCens.R b/R/CompMuCens.R
index d7b732d..bd7dc4c 100644
--- a/R/CompMuCens.R
+++ b/R/CompMuCens.R
@@ -45,7 +45,21 @@
 
 CompMuCens <- function(dat, scale, grade=T, ckData=F){
   #Check if the required packages are installed in the working environment
-
+  #Check if the required packages are installed in the working environment
+  if (class(try(library(interval))) =="try-error") {
+    if (class(try(library(Icens))) =="try-error") {
+      if (!require("BiocManager", quietly = TRUE))
+        install.packages("BiocManager")
+      #Installing the Icens package, which is required by the Interval package
+      BiocManager::install("Icens")
+    }
+    #Installing the interval package
+    install.packages ("interval", repos="http://cloud.r-project.org")
+  }
+  if (class(try(library(dplyr))) =="try-error") {
+    #Installing the dplyr package.
+    install.packages("dplyr", repos="http://cloud.r-project.org")
+  }
 
   # Converting data into a censored data format
   if (grade==T) {
diff --git a/data/DidymellaWatermellon.rda b/data/DidymellaWatermellon.rda
deleted file mode 100644
index 2fc675fd3f03ce299ce0127df8fb244a0d1e9cce..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 578
zcmV-I0=@l0T4*^jL0KkKS&ZFd0ste+|IYva%!r7I9E|1>*vP*p-Jn1K03bjB2mk;X
zzyk0N6k<V%CXE!+$W4?6fB?{F(0YvnC+R>!lvMQ%G|&c`007X?27mwqnlfTw0%9;D
zOb9U;CQJe_DN0C<7?_5D00E!?7=QxFT2}sIWQ_($*KWzuYN$w<f+VFh+#C}^5h{vO
zl-Vd`pi-$zNs`b8OF^$SK`?dIGBRvuBP_EcF-%(}plK1R0+ERlgbcE!i7BF$##%CJ
zkibNoH#vIgF{zc9M%0+qW0|35kYPnpm|zfq*<!$nvuQa-rlrKg7Z64SPIk=EcH&q`
z$Z1^2mJ(@cTahdz<x@)CiD4$Tm60qY!M760CRX%I2{qBWl+{?QB+WSVB--<7wY*8s
zB;=d)O@?S}<vjkns+e7+RWNSis+e8i0DLN})Xoa3X}MKRG#`KO=TwzWz6dz*CD{G^
z^+;Rh3J~aU>^T12&(^lKZ0tmfU}Q@&l*S1W+rz1zU0o-1xwtwxpy5o9@mo+5OOZV%
zNFeAvFlo|fgycq0hF?DmREG6E?xvkb1)4cA7l)yJ0tq3I01PM)Ko%k>)nNS1HPyHh
z^k4&Pq~Zx6iV*~oc5taj4iLC9rBho8$Jx*eUlJF%z%DP3!%!At3xhba1;t0Ec{q9b
zV$tpz9G>xm>buRS@ZB>HiZtM==!^GS8qD)Bntf<ZD3;mA9Su^9qRrN^^$PKE?tZW2
Q3SZ*xNT&)C5u2=FKmnrywg3PC

diff --git a/data/DidymellaWatermelon.rda b/data/DidymellaWatermelon.rda
new file mode 100644
index 0000000000000000000000000000000000000000..dcc52c1ef36f2fc057f4a19b8090e55c3cc3b82d
GIT binary patch
literal 577
zcmV-H0>1r1T4*^jL0KkKS?R;qIRGQe|IYva$cTuE9E|1>*vP*p-Jn1K03bjB2mk;X
zzyk0N0h=&sqG~jgPa!i<0ib9DKs`sO89zz_6rw14hJXOj000004Fj5DWXYomf?{ca
zOad4q0x$(BNfRR@5ugnkXaE2MAONyfmAEl7MuQ}4vt;QtR3uD65>lFP4hf+Ml|?B^
zZIm)lDO9DT$!G&5px2h5m^$j288$PKmRXUQrY(}tG>Fv!NW_Uk23b<Xl+jA#Eg3aP
zU?NT%+?{lo)XK~wbePp+nW1KoVMS4xU=V=WV!(;Fa&iq#OJ*3jf-oX;Hs*`XiD4%x
zrE{WKNu{N3M6i>WO)GXKgqqq`M6i<wHYJiwt>~5#Yom23s<Bu}nsR7Kx8>7sc$0jS
zVCc~{S)sL+Z}3%9MsU?rMVwVs(VfsQ1ywaO$5l-?DygP}@BRGhl~r<JON00F)gf<~
zs*1RBDP1p~rzhKs^{uU&2G&T6WMoS+l*S1W+rzD%M%Zq4T)f$$!k9ma+K7bRCCO+A
zv|OlK30DP*4B(9ZefAh7`g@w1br>HBbz?^kMgkBbAW{GW5eOi3B;CiuXRkP19PI_!
zJs{4FXsC&#JXtEOtSV9S!WWY&RW-1jovi@1@gaMR0^{5F>H^F`c=L}S042A*Erwj&
zl38|*3|+<_te4kM;$1qAi`sD2bcPG8727(A=+>Sy39O)E(6t#%E8be(p_3mT=jr|-
P3I7*zML1B9>BHAKVLAMI

literal 0
HcmV?d00001

diff --git a/man/DidymellaWatermelon.Rd b/man/DidymellaWatermelon.Rd
index ca89c42..2aebb2e 100644
--- a/man/DidymellaWatermelon.Rd
+++ b/man/DidymellaWatermelon.Rd
@@ -2,7 +2,7 @@
 \alias{DidymellaWatermelon}
 \title{Spatial data on gummy stem blight of watermelon}
 \description{
- Data form the paper "Temporal and spatial dynamics of watermelon gummy stem blight epidemics".
+ Data from the paper 'Temporal and spatial dynamics of watermelon gummy stem blight epidemics'.
 }
 \usage{data("DidymellaWatermelon")}
 \format{