Interlude II (simulations) [RSABE / ABEL]

posted by PharmCat  – Russia, 2020-08-20 00:26 (2139 d 15:47 ago) – Posting: # 21890
Views: 11,707

Hi Helmut!

using DataFrames, CSV, ReplicateBE, LinearAlgebra

path      = dirname(@__FILE__)
dfa       = CSV.File(path*"/sim500-2x3x3.csv") |> DataFrame
dfa.logpk = log.(dfa.PK)

res = Vector{Any}(undef, 500)
pd  = Vector{Any}(undef, 500)
os  = Vector{Any}(undef, 500)
for i in 1:500
    df = filter(r -> i == r.set , dfa)
    res[i] = ReplicateBE.rbe!(df, dvar = :logpk, subject = :subject, formulation = :treatment, period = :period, sequence = :sequence, g_tol = 1e-10, singlim = 1e-12)
    pd[i]  = isposdef(Symmetric(res[i].result.H))
    os[i]  = ReplicateBE.optstat(res[i])
    println(i)
end
println("Positive definite: ", sum(pd), "(",sum(pd)/500*100,"%)")
println("Converged: ", sum(os), "(",sum(os)/500*100,"%)")


Positive definite: 332(66.4%)
Converged: 500(100.0%)

I can make table with results if necessary.

Complete thread:

UA Flag
Activity
 Admin contact
23,656 posts in 4,994 threads, 1,570 registered users;
302 visitors (0 registered, 302 guests [including 19 identified bots]).
Forum time: 16:14 CEST (Europe/Vienna)

Most scientists today are devoid of ideas, full of fear, intent on
producing some paltry result so that they can add to the flood
of inane papers that now constitutes “scientific progress”
in many areas.    Paul Feyerabend

The Bioequivalence and Bioavailability Forum is hosted by
BEBAC Ing. Helmut Schütz
HTML5