sinarueeger

library(readbitmap)
library(gganimate)
library(dplyr)
library(ggplot2)
b1 <- read.bitmap("~/Documents/rladies.png")
b2 <- read.bitmap("~/Documents/sydney.png")
x1 <- 1 - b1[,,1]
x2 <- 1 - b2[,,1]
# plot(raster::raster(x1)) # check
# plot(raster::raster(x2)) # check