Last updated on 2024-03-28 06:01:31 CET.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 0.7.0 | 3.56 | 34.55 | 38.11 | OK | |
r-devel-linux-x86_64-debian-gcc | 0.7.0 | 2.99 | 26.51 | 29.50 | OK | |
r-devel-linux-x86_64-fedora-clang | 0.7.0 | 48.17 | OK | |||
r-devel-linux-x86_64-fedora-gcc | 0.7.0 | 47.10 | OK | |||
r-devel-windows-x86_64 | 0.7.0 | 5.00 | 210.00 | 215.00 | ERROR | |
r-patched-linux-x86_64 | 0.7.0 | 5.14 | 33.30 | 38.44 | OK | |
r-release-linux-x86_64 | 0.7.0 | 3.26 | 33.59 | 36.85 | OK | |
r-release-macos-arm64 | 0.7.0 | 23.00 | OK | |||
r-release-macos-x86_64 | 0.7.0 | 53.00 | OK | |||
r-release-windows-x86_64 | 0.7.0 | 12.00 | 50.00 | 62.00 | OK | |
r-oldrel-macos-arm64 | 0.7.0 | 22.00 | OK | |||
r-oldrel-windows-x86_64 | 0.7.0 | 11.00 | 53.00 | 64.00 | OK |
Version: 0.7.0
Check: tests
Result: ERROR
Running 'Test.R' [166s]
Running the tests in 'tests/Test.R' failed.
Complete output:
> require(NonCompart)
Loading required package: NonCompart
> RptCfg = read.csv("RptCfg.csv", as.is=TRUE)
>
> Equal = function(Wres, Rres, Tol=0.001)
+ {
+ Wres[,"ID"] = as.character(Wres[,"Subject"])
+ ColName0 = colnames(Rres)
+ rownames(RptCfg) = RptCfg[,"PPTESTCD"]
+ colnames(Rres) = c(ColName0[1], RptCfg[ColName0[-1],"WNL"])
+ Inter = intersect(colnames(Wres), colnames(Rres))
+
+ IsSame = TRUE
+ for (i in 1:nrow(Wres)) {
+ for (j in Inter) {
+ R = as.numeric(Rres[i,j])
+ W = as.numeric(Wres[i,j])
+ if (W != 0) {
+ if(abs((R - W)/W) > Tol) {
+ print(Wres[i,j])
+ print(Rres[i,j])
+ IsSame = FALSE
+ }
+ }
+ }
+ }
+ return(IsSame)
+ }
>
> Theoph[,"Subject"] = as.numeric(as.character(Theoph[,"Subject"]))
> Indometh[,"Subject"] = as.numeric(as.character(Indometh[,"Subject"]))
>
> Wres = read.csv("Final_Parameters_Pivoted_Theoph_Linear.csv")
> Rres = tblNCA(Theoph, "Subject", "Time", "conc", dose=320, concUnit="mg/L")
> if (!Equal(Wres, Rres)) stop("Test Failed!")
>
> Wres = read.csv("Final_Parameters_Pivoted_Theoph_Log.csv")
> Rres = tblNCA(Theoph, "Subject", "Time", "conc", dose=320, down="Log", concUnit="mg/L")
> if (!Equal(Wres, Rres)) stop("Test Failed!")
>
> Wres = read.csv("Final_Parameters_Pivoted_Indometh_Linear.csv")
> Rres = tblNCA(Indometh, "Subject", "time", "conc", dose=25, adm="Bolus", concUnit="mg/L", R2ADJ=0.8)
> if (!Equal(Wres, Rres)) stop("Test Failed!")
>
> Wres = read.csv("Final_Parameters_Pivoted_Indometh_Log.csv")
> Rres = tblNCA(Indometh, "Subject", "time", "conc", dose=25, adm="Bolus", down="Log", concUnit="mg/L", R2ADJ=0.8)
> if (!Equal(Wres, Rres)) stop("Test Failed!")
>
> Wres = read.csv("Final_Parameters_Pivoted_Indometh_Linear_Infusion.csv")
> Rres = tblNCA(Indometh, "Subject", "time", "conc", dose=25, adm="Infusion", dur=0.25, concUnit="mg/L", R2ADJ=0.8)
> if (!Equal(Wres, Rres)) stop("Test Failed!")
>
> Wres = read.csv("Final_Parameters_Pivoted_Indometh_Log_Infusion.csv")
> Rres = tblNCA(Indometh, "Subject", "time", "conc", dose=25, adm="Infusion", dur=0.25, down="Log", concUnit="mg/L", R2ADJ=0.8)
> if (!Equal(Wres, Rres)) stop("Test Failed!")
>
> Wres = read.csv("Final_Parameters_Pivoted_Indometh_Linear_Wrong_Extravascular.csv")
> Rres = tblNCA(Indometh, "Subject", "time", "conc", dose=25, concUnit="mg/L", R2ADJ=0.8)
> if (!Equal(Wres, Rres)) stop("Test Failed!")
>
> Wres = read.csv("Final_Parameters_Pivoted_Indometh_Log_Wrong_Extravascular.csv")
> Rres = tblNCA(Indometh, "Subject", "time", "conc", dose=25, down="Log", concUnit="mg/L", R2ADJ=0.8)
> if (!Equal(Wres, Rres)) stop("Test Failed!")
>
> proc.time()
user system elapsed
1.51 0.04 1.56
Flavor: r-devel-windows-x86_64