R/data.R

In coldfir3/surf: Surface and topological analysis for tribology

#' Object for ground surfaces
#'
#' @format A list of cimg objects with 256x256 pixles.
'ground'

# ground <- read.surf('C:/Dropbox/Adriano/Doutorado/pkg/ground.txt')
# ground <- resize(ground, size_x=256+100, size_y=256+100)
# ground1 <- crop.borders(ground, nPix = 50)
# ground2 <- transform(ground, 5, 10, -10)
# ground2 <- crop.borders(ground2, nPix = (dim(ground2)[1] - 256)/2)
# ground3 <- transform(ground, 5, 10, -10, 'TR')
# ground3 <- crop.borders(ground3, nPix = (dim(ground3)[1] - 256)/2)
# devtools::use_data(ground1)
# devtools::use_data(ground2)
# devtools::use_data(ground3)

# load('C:/Users/CITEC/Documents/UTF.imgs')
# ground <- UTF_GRO02
# ground <- read.zip('E:/AZW/UTF/ground2.zip')
# ground <- lapply(ground, resize, size_x = 256, size_y = 256, interpolation_type = 5)
# ground <- as.imlist(ground)
# devtools::use_data(ground)


# ground <- USP_GRO02
# ground <- imappend(ground, 'z')
# ground <- imsub(ground, x %inr% (c(1,128) + 460), y %inr% (c(1,128) + 450), z %in% seq(1,160, by = 2))
# ground <- imsplit(ground, 'z')
# devtools::use_data(ground)