Rotation is performed exploiting the rotate function of the EBImage
package. Could be automated if support for coordinate/pixel interaction is included
rotate.Frames(frames, angle, testing = FALSE)
A Frames
object containing the rotated frames
data("MesenteriumSubset")
rotate.Frames(MesenteriumSubset,angle = 40)
#> Frames
#> colorMode : Color
#> storage.mode : double
#> dim : 292 275 3 20
#> frames.total : 60
#> frames.render: 20
#>
#> imageData(object)[1:5,1:6,1,1]
#> [,1] [,2] [,3] [,4] [,5] [,6]
#> [1,] 0 0 0 0 0 0
#> [2,] 0 0 0 0 0 0
#> [3,] 0 0 0 0 0 0
#> [4,] 0 0 0 0 0 0
#> [5,] 0 0 0 0 0 0