From cae7b6cd08fa2bf401f076c6bbc8430d212e6edf Mon Sep 17 00:00:00 2001 From: melkiades Date: Thu, 17 Jul 2025 16:16:04 +0200 Subject: [PATCH 1/4] add --- R/radsl.R | 7 +++++-- man/radsl.Rd | 3 +++ random.cdisc.data.Rproj | 1 + tests/testthat/test-radsl_alt_args.R | 9 +++++++++ 4 files changed, 18 insertions(+), 2 deletions(-) create mode 100644 tests/testthat/test-radsl_alt_args.R diff --git a/R/radsl.R b/R/radsl.R index f9e8c2f47..89e0b0a37 100644 --- a/R/radsl.R +++ b/R/radsl.R @@ -18,7 +18,8 @@ #' @param study_duration (`numeric`)\cr Duration of study in years. #' @param with_trt02 (`logical`)\cr Should period 2 be added. #' @param ae_withdrawal_prob (`proportion`)\cr Probability that there is at least one -#' Adverse Event leading to the withdrawal of a study drug. +#' Adverse Event leading to the withdrawal of a study drug. +#' @param female_prob (`proportion`)\cr Probability of a subject being female, male is calculated by `1-female_prob`. #' @template param_cached #' @templateVar data adsl #' @@ -51,6 +52,7 @@ radsl <- function(N = 400, # nolint "BMRKR1" = c(seed = 1234, percentage = 0.1), "BMRKR2" = c(1234, 0.1), "BEP01FL" = NA ), ae_withdrawal_prob = 0.05, + female_prob = 0.52, cached = FALSE) { checkmate::assert_flag(cached) if (cached) { @@ -63,6 +65,7 @@ radsl <- function(N = 400, # nolint checkmate::assert_number(study_duration, lower = 1) checkmate::assert_number(na_percentage, lower = 0, upper = 1) checkmate::assert_true(na_percentage < 1) + checkmate::assert_number(female_prob, lower = 0, upper = 1) if (!is.null(seed)) { set.seed(seed) @@ -84,7 +87,7 @@ radsl <- function(N = 400, # nolint SUBJID = paste("id", seq_len(N), sep = "-"), AGE = sapply(stats::rchisq(N, df = 5, ncp = 10), max, 0) + 20, AGEU = "YEARS", - SEX = c("F", "M") %>% sample_fct(N, prob = c(.52, .48)), + SEX = c("F", "M") %>% sample_fct(N, prob = c(female_prob, 1 - female_prob)), ARMCD = c("ARM A", "ARM B", "ARM C") %>% sample_fct(N), RACE = c( "ASIAN", "BLACK OR AFRICAN AMERICAN", "WHITE", "AMERICAN INDIAN OR ALASKA NATIVE", diff --git a/man/radsl.Rd b/man/radsl.Rd index 5ebae4e79..a1acc83ff 100644 --- a/man/radsl.Rd +++ b/man/radsl.Rd @@ -13,6 +13,7 @@ radsl( na_vars = list(AGE = NA, SEX = NA, RACE = NA, STRATA1 = NA, STRATA2 = NA, BMRKR1 = c(seed = 1234, percentage = 0.1), BMRKR2 = c(1234, 0.1), BEP01FL = NA), ae_withdrawal_prob = 0.05, + female_prob = 0.52, cached = FALSE ) } @@ -38,6 +39,8 @@ If \code{NA}, \code{na_percentage} is used as a default.} \item{ae_withdrawal_prob}{(\code{proportion})\cr Probability that there is at least one Adverse Event leading to the withdrawal of a study drug.} +\item{female_prob}{(\code{proportion})\cr Probability of a subject being female, male is calculated by \code{1-female_prob}.} + \item{cached}{boolean whether the cached ADSL data \code{cadsl} should be returned or new data should be generated. If set to \code{TRUE} then the other arguments to \code{radsl} will be ignored.} } diff --git a/random.cdisc.data.Rproj b/random.cdisc.data.Rproj index 270314b87..a639c5a85 100644 --- a/random.cdisc.data.Rproj +++ b/random.cdisc.data.Rproj @@ -1,4 +1,5 @@ Version: 1.0 +ProjectId: 7739ff9e-3031-45c0-914e-ed3c155867b0 RestoreWorkspace: Default SaveWorkspace: Default diff --git a/tests/testthat/test-radsl_alt_args.R b/tests/testthat/test-radsl_alt_args.R new file mode 100644 index 000000000..9b36e8420 --- /dev/null +++ b/tests/testthat/test-radsl_alt_args.R @@ -0,0 +1,9 @@ +test_that("radsl produces expected values with change of sex percentage", { + adsl <- radsl(100000, seed = 1) + female_prop <- sum(adsl$SEX == "F") / nrow(adsl) + expect_equal(female_prop, 0.52, tolerance = 1e-03) + + adsl <- radsl(100000, seed = 1, female_prob = 0.8) + female_prop <- sum(adsl$SEX == "F") / nrow(adsl) + expect_equal(female_prop, 0.8, tolerance = 1e-03) +}) From 9cfe3d0c950899078476aba574807568335c2100 Mon Sep 17 00:00:00 2001 From: melkiades Date: Thu, 17 Jul 2025 16:42:14 +0200 Subject: [PATCH 2/4] trial fix --- data-raw/git_diff_main.sh | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/data-raw/git_diff_main.sh b/data-raw/git_diff_main.sh index a088b4e0b..d68ec602d 100644 --- a/data-raw/git_diff_main.sh +++ b/data-raw/git_diff_main.sh @@ -10,14 +10,15 @@ set -e # Exit immediately if a command exits with a non-zero status. # --- Helper Function to Normalize Git URLs --- # This function reliably extracts the 'owner/repo' part from various URL formats. +# This function reliably extracts the 'owner/repo' part from various URL formats. normalize_git_url() { local url=$1 # Step 1: Remove an optional trailing slash local repo_path=${url%/} # Step 2: Remove the optional .git suffix repo_path=${repo_path%.git} - # Step 3: Remove everything up to the last colon or slash - repo_path=${repo_path##*[:/]} + # Step 3: Use a regular expression to extract the 'owner/repo' part + repo_path=$(echo "$repo_path" | sed -E 's|.*[:/]([^/]+/[^/]+)$|\1|') echo "$repo_path" } @@ -39,6 +40,17 @@ ORIGIN_URL=$(git remote get-url origin 2>/dev/null || echo "") # Get origin URL NORM_UPSTREAM_URL=$(normalize_git_url "$UPSTREAM_URL") NORM_ORIGIN_URL=$(normalize_git_url "$ORIGIN_URL") +# Show the normalized URLs for debugging +if [[ -z "$NORM_ORIGIN_URL" ]]; then + echo "Warning: 'origin' remote not found or has no URL." >&2 +else + echo "Info: 'origin' remote URL found." >&2 +fi + +echo "Info: Normalized URLs (owner/repo):" >&2 +echo "Info: ORIGIN_URL - $NORM_ORIGIN_URL" >&2 +echo "Info: UPSTREAM_URL - $NORM_UPSTREAM_URL" >&2 + # Check if the normalized 'owner/repo' strings match if [[ -n "$NORM_ORIGIN_URL" && "$NORM_ORIGIN_URL" == "$NORM_UPSTREAM_URL" ]]; then # Scenario: Running in the main (non-forked) repository. From 1391d02ff1b6c4412272cb11b8a2a9203300eddf Mon Sep 17 00:00:00 2001 From: melkiades Date: Thu, 17 Jul 2025 16:49:10 +0200 Subject: [PATCH 3/4] add caddv? --- data/caddv.RData | Bin 7332 -> 7336 bytes 1 file changed, 0 insertions(+), 0 deletions(-) diff --git a/data/caddv.RData b/data/caddv.RData index 9d969f9fec929bbc81f8810c662bcbca2bdb6830..88283e4ae77b44c7ba64bd889135654970614c3d 100644 GIT binary patch literal 7336 zcmV;Z99QH0H+ooF0004LBHlIv03iV!0000G&sfah?#di#T>vQ&2UKVgRpfklJ z)Cw1%v#nn{1OYnOYyJAsqs;liV8N>zj8ZQ4_efgfxkwCq%nT=p+n+fyYmS` z%v(#@SlopFRIs?v=$`h*4%5l|ZLxK>d8(_^wPo}wVz;|PLZNC*CtrBANv<@WeC;=_~rwO^gVocXC~BbV%X_E zqT^_1ECLPL$d)%edd1H{3iY9@-+=IH;7(GdY)4}5r3aJX{VQZ7uf8#1ZRG#UX~-{4 zlF!~%O*8;flHTGc1H8=;#dNI9@eSCuayWxgYV`DLf4}-o*uXNpCSVzzN1_qN1FTq}`+6sl8>HLB zn3veoT52{%Zb1Jmso`bOWZJ?-@fiM4elJIoY$;G4%g(i@d-rqRAqg;vEdveO9r6I(CqrsJ-$et$DcY)A$q5)4l?s^Cv$cp%_5 zNuuDrofa0IEV(o2T=Gt|%0|%)qa$aO84#Tni%xS%!uNZetWggla0#;Ls*;s*6~K6B zWBLR)7{S_GT^n8)wgHDHZZ(13w{G?6RvRoyG|^vi;?=*=FU4p6iTGObKkOSWeQ{7< z<=X*A(a{pu?)?vLEGmna_lFq-qOp5~vIv3hWH$@n%bE@~yM051%iZR%=chJ9>wlXP z+?(o$T;^(-p!e6nPeeOzntvubr?a0cO?FR(+{G)9Yh9n+FX8K4ok1>C-DH3*Ax;>A zoMP&ksw5>2x2*5!G%`Xaba)2SEV@RbW@dYfab%guV1^B-CR`B|nLZaN{#$)7FMn4Z z5@p!;%p9L1JH7vW9?eX@9tL5O5`mRTS^8sQ->^*|uLgDXCm7cOO!9oqr57eOzrKBt zS+uchtH7w@l1z=jSxSeR6lpED@giGe8yo$Adi~rZZ|$kl5m!U;=4~B9v^8ojS@Zm< zgje&MSqMb!C9X%MoYZfcKG;MXaFpbee*)BPw;TvK(R43x+vgo;+%f;!+YrK@$_Dc> zEZ$*;a^}-xQFriG!Dvrc-`tEytzK`|P(98#be!A?Jkb(%1HWV<7gR0-k{8Eg%)}=K zq2(){cR=v{z^p~GE+$ls7K=-dCI>FzfZCf-2YD*Cm(>etbOr1tmWK)|(eAeDWH()$ zmdN4z(Th5?QO6MiDUY0oa$O9P-1WVHFt5V13DE7Nh*&nFY=KOU&6E198l@9zw2Nx{$_t4_JrM8#6po>M;`D^5=m-J2t) zuQvZl)E_E7!K(<8*kL|%8BOv|5S(3D+f`$fiN-?GVyz%jkCH1o{YV{i)_%U%`%xg` zp_mcXag*18{M$&M%yI!L$yo1K9xZL9d13LEQgwWl&QE6?wJrQL@dKoTYXYg|D)-UT zumyYq6T+9uL~iN5pKM>T{{UA!psZy^zz#~q@@}fhJi;~Lku>ZIXjTBcZ51LM;dmUp zPJU6YT`__4q$@JVDr4SdPjg4>2ntvDi-A%_Dx`9{voq|fuqS^;DaI}E#G{3Xw1&Ck4E8Ci24gDQCDt&oyE)ff?K7}Z;rW|feL7~&vrX-m zH|x-*3Ttejz`g}E{)maf#BJRVPG%ijgC7-zzfO>oI1cllgAWP)vLs%H$PVTAc*&?g z_UuL$70T5X*QhnFoV6VcFl(&e`<7afk!HP3m0DZLM_pD5KO=jb?LfN6W$po#cF5c@Q* zJNi5dG2Iu6uJj2md+>*xBz6G^Yb^w$sNLG*xQ-)&AyUuLZIwhuI7RwY_>QX(Lmv0! zg$wt*j@y&i%)42J`WSkWIBTP=8KA9(ZnC@gV0)}n{=V8n6Mj(b$8n4-`0L8#`w>x@ zv=IxwEn6`%&I9HH=NhU!YbXpHqB~=PYVHx^UG3<`iE#=V@3JRd^dLg07*UY33{6$B zCs^0A)L9%+UktJ|TAO(m(lg>N0HVn>Zo>(pTexCEN!4?(#b)7v3Ipg9U}baOR&QIx z(j7%8ZLrg7-u9qZ4pl~T!L;Vfg(#_gZsu#1ksaQ1ae$#+Piy^AkIjLm8!MuPH52w$ zjz|=5wiEcdW8TeNS7}pj&y{;#+^Suns(TfxuBCBUd{(7t37A-qg}&BNVIoe#otZ?I zS8jNQ7Z7R@g9zf$rw>fB!gj&7G4;-{R{+YvCVgiC$~cZ{fQZ}^Q(4i8Q>VIYhcx|2 z`ePp_KA~YRzDkq4J&v!^hk(P5W<1HmTWVy&dn>%z7n~cRZa|%_>c3=IapkK*?2x>5 zk58odEIeI$0pRp)`Y@N*SmwI9y6Q%ThG4fQrQ7*;3_5PCDl=G{DVVl|*WoSjpvZ?H z^KbhP3Z1CbUG~s=OY?k6>%rore1vDK<+G{cvScLA?(;f<5Dize>DHzz%<#`JGzl>Q zz%7bNm?CY%SttQv+OtGXZmnWxWxL@aK~2AXvQOUM^V>0v_vFk++&bBkODeBm(&qtp z1P3{Al6FJ~CK@SB#`>NIZ?5Xw^j4}smU-7Hbams$nio9T&e9FwVHC2@>0!SuFk-b+ zT*6eFE6L?uXycXfPJcMfnjsz%I+8!KSJNbQNg5$e+hz|7&>*?;g*WOm#e$mQPZ~^m zxGFDl6&lNG5(ZQkeUH1A5)>cZ*cBv$ky11Zynhlpq14h4DgTUuFzZcTKfaiA%bJs! zS6LGF*w?Hzpo)b{jRu_L^U@l1003oTm~r`U5)YlAle{FHWQf>Z z5!l^!?0SkZ&R`@X$3a6=nmwM`=Cw`P3rwe(gIc*havWvEVy^TLfUiDEb8m*s2bk4W zwM3HwDi#EIzdnuMO8_DT@2gL?*ubAK!EC0gnWZAlyFPl4DeD68H3EGNai1wyTHf5n zzj9c9+eo&-;~3U&C3!6+YHL0N=M{)fqk+=A#6};`pAO6Fc)l z+k0lshbMt1{gpf%sk#lrc(1T4=khby0+YNK6u{9WGf`g;a1uEniDamE9#&&qhlAp< zi%K>*#6x@(wBPJkS}K-}dl)-A02L$WrVJ99g;R5TF`mJSt(Xur9r;)Q1a4h2LB)V? zk`92(&UIA6LM@#lb}it6BgL81KT+VDDtJ}$>S4bzRCuw+9ZOho2q6JZUe64eu$~cY zuBqccp*fdU?;UUu=!2O@%cRtYkl~3jsFS_H-C>q^6ULFik47|{ksq?wRE%!W&_SS~ zyMd>l8IsQFU%CFsk3f*;IJIibe@7bZv1QE@N+FNelYiF+l^rq^eok4xcfz_$nSmjo0&8{ zX+KodM>qQl$Xw5L8ZFbP0(WBz`cbMy>A-dnBEhBEH z4Uk)kO|a&xnjvNCQI}Nw^9%l3-`{bqBfgSP9dpcTjrO2(DJwq!oc{jw@FCYl&CkO3nn*2ALlr1d zB8$EEXb zBa8C$RVt}`8{B9vY`-Wtp*}=|6S=p_MULSMV!KJHqIF=!x!qoflQuxcq1^ha3kiSe z;jptkMy|U8u`;D05zMXo&h{;J-=un~r~N=##) z;hXsAzl(rXzR)su1tsWAnB|_F^I&QF>CSKV3yRxlZB9%IZE`Vi_evU(^$;U#@FV-> z`^5Ntt&?(ofZ=j7J;&1p$G{=cQq}+-J*Bz%B(yU8MhbW%sv|1-n49_+d(xb-`2hXgL@tkKGrmRGq6 zRIbv{Wo(h+O^hK1g}L59)_Mp1++&<%w6Kpkbye1_9M$GFQS-EwhpArk0<8y^3Q3kq3fufc`1iiCx8_iNW&x zLTZi4SI6gO4Y4z!1n}AL#p4>0gH7)VN&#M=dRq+Xt-r2-^|SaB&6eS28ze0YlB9Cw zgG|0|%&h_bbQfPS3%^u@IOs1mLQq%XkMT*88fp*4VLxu3&O-rPR(x39)FlGX4)<9u zAX)+;3wQ#C-gM|3uMl#_MMf@l8*G)YyLSkP*QnH;7FufKERd$6GC;7cC<4<6Fr@uS zLP{V7$M!8AM6cZ-$~IVpq#dNBd1PPjk}@-1hVx2cZ=~jrVYl~0l+t}qx$&*z6Ou*p|l zAaEcKxyl%neubHAg?5Ocw@m{hIYo@y7z1dntQ{_?|r1JTzVtP~Dz6 znDoqoG;v@OW;bg2K)g4%&t{qi!xBQc!N^v;71>=jj0u!OP7z@yz?Xdxq!<|% zV|dMj&<$c?eZu`-6e01h3m>5G&f+^T+2gR%vDNc!R>NAET{z}xnIwzZ3o|4XnqzeV zhg-RU(d)(CR{WJ)6&G0kRak4R`}siu&wJUlU!VIn9P=HkgxO)iF6Qp<)9^0JsoC!P z0xCG+f>#ovH71O;P=kx7tAG?fWF_Et7-OFU%LS!*ttUNV(v-aI3wy)E`Kp6Z6700* zyKPHjkS$KX#RWa0dSF|Dj-*JQVk2r{-f@wCg7-?u% zs+U&Ffic$|W&6IcSjFgMFZa#7DPy{7?%VZC4#Z6UN@iQ?cqF(HHj2zoaP-P!TIr)x z5m*yp;sjy>-3OZzs zoAsJ|0U7{lEBX=I8{jvwJEEYLR|G7_vk4w#=r-@H~ z#J&ZP6cPPTkXftl{Px2$Z>Z_G3cANcP7ei|_@p;g;83PW3AFTH1n%R#x^(J{q9`sH zONbvwC2#7(VnTL|h+8PC_^@9gPB{iHSf{W_t~9gZ_nTl@xH{bs*X zj>31zb>3s#+=+6%e=vT6^cpiItUt< zC!^I)HMQ4EaftD8r7HRi$&C8cv5|i8i3i54JJx4|NzCP#(NzTSeJjuB%b4KbI4hOf z0&#q!w1h{9Z}L=ZI z#mVJ(+Y@M&$CW-6=Af=aJedHzj0C133jJL>x%YyN(|-VB(gM{)?~;wVGoBn3zo zxRtRev?wm*KM>!S6<&bY5WK>UjU2N!0nQ#UixaQ?lN<`P0L(Uhz|6Nob6|!X*&%8; zf4jc`^D)!eYb-m)hcB|Y;hpYV$_|`l(5=~pkuC!*fMd9^zhBy8QXVxLpW^ZSAZhVEb$~3&8`m|XG38Dpj`>&(yv#5%2&wf9sn`3|4`9@jK~I#4lH_Re!MFE$zNZxNn`Q1+M40-a}+Gfp!5 z4K_Ao)KD~LZ^eqa#h|^+UKF2xm$pQ|KZ;y44?%dECk9sQ zliPs$vs#-PcK+jU_95H|{QpdmoG`%+{k>xb1J+<&ITZf#9kyb08*#x?%jud_Nh~N?fE>DYhu>6Q#TI1TjXu+G?g1Av zbe;}m5JgC%C`-BSxR|X!e13w`oW$uB?-;?k?j@oTBH8qq?Agg8T+Rhzl}!T%61B}H z6==%DpqMeJ8c?uUo69H7Td_DQnMZG(K(f*s7L&pSPeHnAIFVZWDm$P8NLcaFucawr z3Y7~I40fzP+xr-h0V#wsUKNsWCO^1qZpO9_o;cY-D#5}#`jPQfO%GDqh)QHKViBjc z-_2x!mJ;*rv#?v>XSMEJyZj)ouII5~AQgbcjM z*;!l+rVUzg0!k&+xX*1Nyioww<0=V{3v%x+EYrOvje&d5Sq)%~2lk+nrfn0zzOx-V zURA0ho}iM{w@~UTU4Q`YB=9?_|GQWAKrQk-z%f@1pXshQMB$ah?(-x>Miq~#x$uAD5wXUqDgviHEfxH(ySt+ z)j=aN*YqLJHlh<0AaTaIjh?BNc4roVDiZ=}GSz6SLP1vj^ALBcC&=)pe!Vx+k?Ywy z6NKwl?f->&{X_tH2{{$Y4WpC3Oa}QuiMn4p}9b&9Uaq7-|xS7e= zp&$svp|`JRhdrgCF+IL{{=syV!O?CN$CGTbp*yC23?TE+{EaJ>KPvJ51l=}D*PcFP zB=*UERu~*nvZD=&Uszc2p$C3#ICjVebU@{pRcd`ClX}M83=3zVbqhi>;;gil24(k8_0002xrQ(vQ&2UKVgRpfklJ zg|CQ+sGx@7!;ml`j7PI6^78o*glB@sv@Xtg4=O^3n)m{asu85gZZj6R15}qfI;E)O zn9}pz&scjrV_!g@`nfhbIy2oTdaj*}0Ib41=f75_U0K(TABN#^#-|T8;HtXVYiU_C>{O^hLR+G$)3kHt&l76g&d(aY z2#%iSNA-M;a?Rd%QjD-j>{n+?3nfD6*H<-3bmA<_|5d0#LV~xElU;qOVtxT__dJsb z5{O6IS!j;v?K1Nk55b4*x8L%J@6#QawtBMqX}i7GZtc(?%b~~qjLnCk7GSj+=x`$E zuAetl-WziTP{P70hOhmCGVNK)VkURMRDIi)^~aMWk9^q5F4GLtewbs(mg#ZhZC2vR zwiB+vmOL~nve8WSqQK|}+;+>ik9k?qzYew+|9+5&D#WfQH$!Su|K$+l#&Jq#ZPRh} zYIw3W(nlxB<63^CQWSF5Cl9cYnN^LzU7|B=!@Tx{9QNtre7W{^iHP>m(c)%Gxr>_kg9Btiq$g{O#i-i&!sw$ZORm4xou{A6xE21d6X6D8f2g-sJZ9G_$3eYY@dyUl#VUgrd zpL%vE9U)7mvsrOmf^i=LfAFZXm3n8p)xSxp=QwS2Fs1uELkI*&#La!sR$e$K@mX)vBl4HWCtEZpOoZ68uU6&$DD9e2Mbs{XO_(Ap6z_@M&1JGy&BD(}cp($#Fj+ z7YYF2O@!(=%*=Wrhw7SV62YhyX1e9ZmL+j*#PoxXSv|@k|IDqHxSM*>pjqSXPg*y2 zx_t`oL*v}f$<-4=ZB~MeOaunX5TGn|-~Gidd5KHqYCA7NU$kH|&Z=B7H>!Jgi3`1S zj>zskFfx=}X5d_yHaTl$g#~*bngj~2Um1zXsB_SnLXMe9e3F^Q^5{8bg#c>37x>+q zTyTZiKbA@kd|Gt16NRW&e-bGI1@2Mxvq8A#PNj?mqm zwyAJf4f(NG3wYkeTuglvF|yRDD&|nSM=qZ&G(xISMa=uHIr8s~D{dqt&U>DNc!(P0 zj&M9|^k9I!{ZNtHlWMIqZcd)iD~o@V%%8W{9Y8IpLH2ODLgv%W2>$Vg1;#3eVyi?l}Bt{yNJs z-Dqa(Sxy*F{b!Y50(%t48=LNqDZGC@leH*8;=!HlgQJRTbX(A?>V4vaZhG7=*^Kuk zBUsqTezQbc^NmESIPW!NRzpw2j|#F)tu>Mv%p;Z4CdqiwbK$r~bzkr+ujcf=f!sGU!P;jtgEn!{xYL}T!87OWM|R0W$PvnckDzj7Rd6CAw)UmpdLq~pS&pnP)vBX( z9)=7*a<`B{)sOPCIzr7AMVRj=)A9``(u^T=lh(4}eWoe3ex}9^zhStoJDdd=LAH_DPF$%3Um{c6e@S%d9 zTqlc2x4i0@>t~B#2g47vAr;rTlD)DYFC21;Q%;s>k|@Y2#nIDd(5b+LA9lJt2PoSL zE=4f6D`v;#EVuCU%S$fqsr_ynJ9HEWN&0)5n_E=4rDz;4s?6^(W@I=D-#`HN z2}BF{sJ2lNo^L78Yzbh&E0F6a{xGfCW%xEl(i}1guoc?b3H*6TXKI=WtlVxY$i~ zI|l0B+Is!$>?Zi7N+X%lyO#BXn_)^(<#Hvzt*qeZ4kAH8VzY_1<5?@%;jk;~>QE*a5a=+$^_# zYd4?nvWo>8QrG&gv}{Fm7y1L!B&ZAv6CgrnHv0{zru^ZXRg!-yXCg;tpJ&I%IkK8Z z9H`{Dl1Y?a-e>4IX~Y^Yj*la~KAJPMRs~&oQPG}MDQe+vfmS^3C}vt(r<9BMM>a66 z32e%MVaCAB4rilmgGSa6yoA1`-PO~v+ie*YbOtSp`p?v2@EYgPszasKCih^GsCk;- z^*slR_V!C?5Qe70Y{I5&n3KOEMDn3=ENDSL0|K*8Cv6TB*#d$(IE0~Zf#wJVr6QSs zFa-uiS-G&&O1V3+35PYurAS4gx9c$nMA^SoQoG=(E2RhT^9$Ge4YSxi4Qm#6xL@n; z&g$%Don6JZG)Tm_{l*QoX5?SbuVNd0Je(d^?T$3Q^mJoiW*AI2#Y_V5;|Kn-qnuPz zaU&DS?N&RZyT&-&qBNoCg3FE$lw_=G!rUj@=SDe;NO$YNNk}&lBzl0D7Gw`1_8k2z z@|QAxUm&$bYyiaW`G30S@1nk=zTqbZ0c9fBHiZGAtT6Q4Ho4R^otCtVJ;fBT7ONX$ zH)G!v(E%k9%b{BHqDQZg~*6oEX_(rO9LNtR?sMZ+x8c7pyw721j^UJPwCanRv>lNfeg# zZquedmKk&)inC0?0D}gewfkH^Npr?Qi00Jw{Pkl^_}2(*|1%Ly#GCSHrNjB1sfX%G zycj^m;xz7HjXSji7>LX^(q8G?(U|tin_utznjUi10!KiwC^HCU zy7!|d8^rNAtL#Dy|7_yPr@pjl0}UGH*zk^S{o zo-j5)r}0G|*p8HnKpFhmewVbzpq(Z-x?&uCCrQ{}sKT3ENZ0-OiOqU2T8z;NP%JmVj-X%-6EotkRGOMNpu}4tm&~WfSpq3oGHSoe#T$CBt}L3iIy%lrztUgMtFW9Xl52> z?E93*597kU`%{CsA1FW~=lEaS^G}ZrrCfisUyqN?7e6C7@iY#mn3i~s9$NN`k;D75*{o$3X?8#*Zy+~Eu43J~wJsgd?|F3E;qv3uHD)N>RwZd^O_oig@!TGHvhiv- zT+Kq`V-0lTFHp7a2%ne|^P*LOH;c2G$TO&67MPhMklLvUlsvPvTXCr=W6Eh53C4g( zgGDm!GrSOBrRtpGUa+xs$lx9x8NJS`N-TC9T^L(1)QqwPuNiVRBmH&l0}-fT{KpCM zs5>8>{14VcFo2T^$gC`czMx!q%c)e)>}E_CfLUM5FATBw^Dfrr6?!a|3+MzN3M4OM zW8~)`_*f5Lyh@a8&ghTvSODoE#>|pXY!OtsGlGE%7^2CdqAQ&{djyi=t1S51Vu6LD zzK`2Yu%eT_ZJ>ZFzLrmt=86&ITfDuNg<6f-ix$qsM%FGLjwiJDmxbBb2iL0Tz{ObK z%dX3t?wtW7i#&I8;n|*IDTaq6$`9AK=ndIQLGQVVv_-lWAVjKwWU8ApOICdyg)O1X_JIJAQvp|WpM1soq! z!x&+QY2)h)kOp=DyHg#J=5Bt|(kmf+9rN<+I1-4X9WUIK#!2GGb3#VYnQ zIflQ!1pcT%Q~IHBYht2@e_0voAHc|)r7hJZ2}u}H9m18@>--tXjDGTpNv3rL0`iwiq(FbE=bWQ z_sipNh=<7!5z8B7$Wfax{6|=K~b;ONiX-yO>E4-VE4 zDLWDkioY3&Fcj?MV$(_+4?j?Hokp#?_jayPN9O;7cj`%-jm1VB!*AgPU(qA?A8oux zFmG)mAtKrJ`SnDp+uDI1>7Hd_Do^rV`@jaqFlq2xs2F)|FM4aN_ap(FxyG(AbHsLo z^yE(oTLv=UoO3_QJ7$#;+(;JGKtbl#i$~zs?Joid{Ea;;)Jas;V~X>r>U`b$V}MkV ztnt#8;A7m+#G+*$a_!6yE}m-kcT$8v33i9h9$28t61sLw$qnH*Saeg^(?R5O6RL<) zR=SoPM-)JktlOD(`GQ5Yh(&`NnUoW|6Gz61wZGPIQ{0)o zPLMB5)L8JuP91y&a$o0vb_zg6)5&uao_t8YfeUSm7M-T}q_srIMF<_Z;pM&-8hb1^q+Sgz(#EM^NYe?L1h6vgcoGw3%h{#Gvcb7R2Py zz!B~Z0<$<=ZKm!iKOk9X!HByfr3}LKW7)tGU2y@LXh|Z3?Z(I1&Wi@xqAd?(_5H5e zJYGcJ)iXsP!QvRJA44FK<_4~ecH_WFTSt#I>L^ReBXec97&UUIg4o{3TuKba{zq

wXCIgu2{7*# zuCWh+a&TdW^}{Q`hdF6W;DPFpeNOaTlml zY*Q}nz;GJ55uym0G;yQB-MZ>6SoBVQn9$W2VJ8K(P%8@LXtwNk4m==BF@z;~h_4Z3 zd+_(*QBGCI!Q&djRJOFR9tRM$Uu}#qB)bPeH*e(PbfCy~=}<@!wCP2V{^8&I8o;MG z7MbN!6GHqFUXn|r_-4blTV7fACSPFW9Oz+*&0%ql$^)3t%M-Wqv2R^ z&g%JAsM>t}KgHMq#?DWd(3_(8gd=H#7;8tu!%66D=>6uR&!uoZ>3&!LoK+gkOS~aT zptjv?MjCjxn<0DkCM-fMsS3Giysb=QH@%a)2wY~xr1tdAMBh}_YpC)6bra$$zhn-U zMQPliRwN^0yS4(Ibnajh2FSDXuCpQ}9R>f@0x9vEi}~@~_+gJ2iE(KVI6@B@rWcc-dgu{(?dIkz|N2XXAgWQ&vOY%Z@Lj7P_=ZO=*AG&wJ6%y^zpB4K?Sw&O>Y>XwFuDC(x53cm3)jIN-t~~pDf}o{J&>? zC*stI6cN};lFE-7We@3-ZuqjQpoknnkw>G6Fo2=tZi~!c8vRqoQLzCiel@0!4MH@T zz&x&|ZRopqR?rQ}CbBf|z~FO?9RW2pZ(e)D{=LAJKCY;6$JMv|m5J(SwIT}yd5nbcVpV1~EC(r4 zw^ykRazys)h;|KH&K3;@Q{#3PB$Yk%~=R{d58(R6gBC z?;9=wxwP8}7K%gf$ZZN5dep1}k0g*PiilRMCJw6qxnGA!&ODMxJru>5YXu0NZW&Pf zaP3j34GGW=b^8$q90ige(yD_a-C6SjbVW{dU93b}TxUGr+yUJ6C8>fI(65Mj&73Oa!I}_sLN@=j4>ArF}mXr zxK#=Rw^@ED-^<`2$cJr=BddC_P(s%g zrCZU*1@$K~bh*%c{j8(Dz1x~;9`W+?Bv8#J@xjY zPz1}lk_iHljS$8kuD%JD#F}mbD$tbMVn}z#QupDl7XMn;Wpz-Fk+MGX>2Yl!&QScD@Su9!o|$Y_99w-FEL{zH}i5m}hFja+U|K zwnb|bq(x=$Y?wcpIKVweGhemRX16qe6^py2tru$WET%|~d+EC0wm;*oGRw0Dv!lLz zo2k7-(S5*yQQ_2VV)SG9W*XW7rJBv}en6%5jb(#}pf(pUrGE{wrSi(lw7Greem9ov z`%n2}8(%ynIJlD|%FZ%HO%8Z~QEs9ajFr%ZYCr&AHt8_aXvZ`32Cf`Jr((Pz)#mtD zT^Mea3on%4kT6YS`;(;>@Xw0K+4Wj!5eSQmH9pAKF%G#{DFd=oW-b2C^~pi74Fk=F z+U8L9NSSrxkQPU(Y(2-pY!BDq4}}fOydxx<4b^oRsN5V|!mke`^t%P#yv{l_oAQKm z-+pxCut#(g=HMT$540sr;hT`B!p}*N*pIC;zm2q2%k#h9QO06Mi@vwWGIv*OCC&cq zb=KEQy~f{dum%L;27GAaavTnV+~2=Y9$vC_r`*eIjzOi)<{s)M0N-o$+@0j~ULXPH zzRay_sy#}ru{*grmxFQsKXI_WitYLjA(2il(syfwAXTt8XuG-BpxwgEH*V={KWaEE zU-O_=#qg8?WsTqCj^TNLA!ILr4#|?VTGyp857fT-j*?k=rSR1Lb}JgjU)4F$Otz2k zMaMRSi^-2`852k-mfy1?S5=W{cIy5?4Hl7S>bWX?y#1|o(;kG%48iBLeQmSWELFmK zk3j_UdZvNbG|FvvKUD=k)9RJ@h4Vbdj(3mOd9DvaE94=vC}X$BKi}9wmBF4kQw?sd z-*5qnes=ZYmM$^av!N#s+rLrowqD)Cmj-D=%Zw=2;+v|=Et^g1DnnUwH+ZX!$_Jc5 zzuo9YIbS)u<2a<%8#|ZR*W@iFzRr(H#X$f70001$V5fZm0sT13-2(vnu{iWTFb#_W K000000a;o%>RjRg From 5975e6da2d67e373707783ae8323929f99843e1b Mon Sep 17 00:00:00 2001 From: Davide Garolini Date: Thu, 17 Jul 2025 16:50:57 +0200 Subject: [PATCH 4/4] Update random.cdisc.data.Rproj Signed-off-by: Davide Garolini --- random.cdisc.data.Rproj | 1 - 1 file changed, 1 deletion(-) diff --git a/random.cdisc.data.Rproj b/random.cdisc.data.Rproj index a639c5a85..270314b87 100644 --- a/random.cdisc.data.Rproj +++ b/random.cdisc.data.Rproj @@ -1,5 +1,4 @@ Version: 1.0 -ProjectId: 7739ff9e-3031-45c0-914e-ed3c155867b0 RestoreWorkspace: Default SaveWorkspace: Default