search for: fri1

...d3 = read.jpeg( '3d.jpg' ) f = read.jpeg( 'f.jpg') n = read.jpeg( 'n.jpg' ) ? ## Conditions: I want to insert the images?given these conditions, and then center each image for h== 0 (that is inserting only one image for midnight, otherwise I'd get 24 images together) ? fri1 <- function(x){ plot( ifelse( I2$image == "f" && I2$h == 0, f, NA )) } fri2 <- function(x){ plot( ifelse( I2$image == "n" && I2$h == 0, n, NA )) } fri3 <- function(x){ plot( ifelse( I2$image == "2c" && I2$h == 0, c2, NA )) } fri4 <-...