clinDR (version 2.4.1)

summary.emaxsimBobj: Summarize Emax fit to a data set generated by emaxsimB

Description

Summary of the Bayesian Emax fit to a simulated data set

Usage

# S3 method for emaxsimBobj
summary(object, ...)

Value

Printed output only. No values are returned.

Arguments

object

Extracted simulation object

...

No other parameters are currently implemented

Author

Neal Thomas

See Also

emaxsimB, plot.emaxsimBobj, print.emaxsimBobj

Examples

if (FALSE) {

## emaxsimB changes the random number seed
nsim<-50
doselev<-c(0,5,25,50,100)
n<-c(78,81,81,81,77)
Ndose<-length(doselev)

### population parameters for simulation
e0<-2.465375 
ed50<-67.481113 

dtarget<-100
diftarget<-2.464592
emax<-solveEmax(diftarget,dtarget,log(ed50),1,e0)

sdy<-7.967897
pop<-c(log(ed50),emax,e0)    
meanlev<-emaxfun(doselev,pop)  

###FixedMean is specialized constructor function for emaxsim
gen<-FixedMean(n,doselev,meanlev,sdy)  

prior<-emaxPrior.control(epmu=0,epsca=30,difTargetmu=0,
		difTargetsca=30,dTarget=100,p50=50,sigmalow=0.1,
		sigmaup=30,parmDF=5)
mcmc<-mcmc.control(chains=1,warmup=500,iter=5000,seed=53453,propInit=0.15,adapt_delta = 0.95)

D1 <- emaxsimB(nsim,gen, prior, modType=3,mcmc=mcmc,check=FALSE)
summary(D1[1])
}