“…The properties such as existence, uniqueness of roots for log and log q likelihood functions of the censoring designs which can be regarded as objective function [41] will be studied. install.packages("CDFt") library("CDFt") val_CDFbiWeiq=CDFbiWei(sort(x),mleBiWeiabq [1],mleBiWeiabq [2],mleBiWeiabq [3]) fun.ecdf=ecdf(x);my.ecdf <-fun.ecdf(sort(x)); ks.test(my.ecdf, val_CDFbiWeiq,alternative = c("two.sided", "less", "greater"), exact = NULL, tol=1e-8,simulate.p.value=FALSE,B=2000) resq = CramerVonMisesTwoSamples(my.ecdf,val_CDFbiWeiq); pvalueCVMq = 1/6*exp(-resq);…”