Displaying 1 result from an estimated 1 matches for "trial_str".
Did you mean:
serial_str
2010 Sep 16
1
Odd graphics output problem
....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 ~ Offset, data = trial_data )
dev.off()
}
}
Everythin...