summary.emaxsimBobj {clinDR}

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 class 'emaxsimBobj'
summary(object, ...)

Arguments

object

Extracted simulation object

...

No other parameters are currently implemented

Value

Printed output only. No values are returned.

Author(s)

Neal Thomas

See Also

emaxsimB, plot.emaxsimBobj, print.emaxsimBobj

Examples

## Not run: 

## 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])

## End(Not run)