Displaying 1 result from an estimated 1 matches for "fri8".
Did you mean:
fri
2012 Dec 07
0
inserting jpg
...}
fri5 <- function(x){ plot( ifelse( I2$image == "3c" && I2$h == 0, c3, NA )) }
fri6 <- function(x){ plot( ifelse( I2$image == "3d" && I2$h == 0, d3, NA )) }
fri7 <- function(x){ plot( ifelse( I2$image == "1d" && I2$h == 0, d1, NA )) }
fri8 <- function(x){ plot( ifelse( I2$image == "1c" && I2$h == 0, c1, NA )) }
?
## Combined plot
?
dev.new( width = 16, height = 8 )
par( fig = c( 0, .95, 0.625, 1), cex= 0.9 )
plot( I2$act, type="n", xlab = "", ylab = "", ylim = 10 )
I4 <- apply( r1...