Displaying 3 results from an estimated 3 matches for "trial_data".
2010 Sep 16
1
Odd graphics output problem
...uot;" ), sep = "\t",
header = TRUE )
ppm$Trial = as.factor( ppm$Trial )
for ( ID in levels( ppm$Patient ) ){
patient_data = ppm[ ppm$Patient == ID, ]
dir.create( paste( wd, ID, sep = "" ) )
for ( trial in ( levels( ppm[ ppm$Patient == ID, ]$Trial ) ) ){
trial_data = patient_data[ patient_data$Trial == trial, ]
trial_str = sprintf( "%03d", as.integer( trial ) )
path = paste( wd, ID, "/", trial_str, ".png", sep = "" )
cat( path, "\n" )
png( path )
xyplot( PupilArea ~ Offs...
2010 Aug 16
1
Specify decimal places for parameters in BUGS output
...Below is the
code I am using. The only problem I am having is the bugs output that comes
out shows my parameters as nos with 1 decimal place after. I would want to
have the parameters with 5 places after decimal. How would I specify that in
my code for R2WinBUGS.
trial.data <- read.table("trial_data.txt", header=T)
bugs.output <- list()
for(i in 1:5){
nausea <- as.integer(trial.data[i,])
bugs.output[[i]] <- bugs(
data=list(nausea=nausea, N=63),
inits=list(
list(alpha0=0,tau=1),
list(alpha0=0.9, tau=1),
list(...
2010 Aug 10
0
[BUGS] [R-BUGS] error while plotting
...> 4: In max(x) : no non-missing arguments to max; returning -Inf*
> >
> > Following is the code I am using
> > library("R2WinBUGS")
> >
> > #Set working directory
> > setwd("E://Achaudhuri/Trial")
> > trial.data <- read.table("trial_data.txt", header=T)
> > bugs.output <- list()
> > for(i in 1:5){
> > nausea <- as.integer(trial.data[i,])
> > bugs.output[[i]] <- bugs(
> > data=list(nausea=nausea, N=63),
> > inits=list(
> > list(alpha0=...