print.emaxsimobj {clinDR}

Print a data set generated by emaxsim

Description

Print a data set that has been extracted from emaxsim output

Usage

## S3 method for class 'emaxsimobj'
print(x, nprint = min(length(x$y), 20), ...)

Arguments

x

Extracted simulation object

nprint

Number of observations to print. If a vector of length 2, nprint is the range of data to print.

...

No other parameters currently implemented

Value

Printed output returned as invisible matrix.

Author(s)

Neal Thomas

See Also

emaxsim, plot.emaxsimobj, summary.emaxsimobj

Examples

## Not run: 

save.seed<-.Random.seed
set.seed(12357)

nsim<-50
idmax<-5
doselev<-c(0,5,25,50,100)
n<-c(78,81,81,81,77)

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

dtarget<-100
diftarget<-9.032497
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.parm<-FixedMean(n,doselev,meanlev,sdy)  
D1 <- emaxsim(nsim,gen.parm)
e49<-D1[49]

e49

print(e49,c(101,200))  

.Random.seed<-save.seed

## End(Not run)