Nothing
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
Gabor_Filter_Bank <- function(u, v, m, n, plot_data = FALSE) {
.Call(`_OpenImageR_Gabor_Filter_Bank`, u, v, m, n, plot_data)
}
Gabor_export_Features <- function(img, d1, d2, u, v, m, n, downsample_vec = FALSE, plot_data = FALSE, normalize_features = FALSE, threads = 1L, vectorize_magnitude = TRUE) {
.Call(`_OpenImageR_Gabor_export_Features`, img, d1, d2, u, v, m, n, downsample_vec, plot_data, normalize_features, threads, vectorize_magnitude)
}
Gabor_generate <- function(img_data, img_nrow, img_ncol, d1, d2, u, v, m, n, downsample_vec = FALSE, normalize_features = FALSE, threads = 1L) {
.Call(`_OpenImageR_Gabor_generate`, img_data, img_nrow, img_ncol, d1, d2, u, v, m, n, downsample_vec, normalize_features, threads)
}
average_hash_string <- function(gray_image, hash_size = 8L, resize_method = "nearest") {
.Call(`_OpenImageR_average_hash_string`, gray_image, hash_size, resize_method)
}
average_hash_binary <- function(gray_image, hash_size = 8L, resize_method = "nearest") {
.Call(`_OpenImageR_average_hash_binary`, gray_image, hash_size, resize_method)
}
phash_string <- function(gray_image, hash_size = 8L, highfreq_factor = 4L, resize_method = "nearest") {
.Call(`_OpenImageR_phash_string`, gray_image, hash_size, highfreq_factor, resize_method)
}
phash_binary <- function(gray_image, hash_size = 8L, highfreq_factor = 4L, resize_method = "nearest") {
.Call(`_OpenImageR_phash_binary`, gray_image, hash_size, highfreq_factor, resize_method)
}
binary_to_hex <- function(x) {
.Call(`_OpenImageR_binary_to_hex`, x)
}
dhash_string <- function(gray_image, hash_size = 8L, resize_method = "nearest") {
.Call(`_OpenImageR_dhash_string`, gray_image, hash_size, resize_method)
}
dhash_binary <- function(gray_image, hash_size = 8L, resize_method = "nearest") {
.Call(`_OpenImageR_dhash_binary`, gray_image, hash_size, resize_method)
}
hash_image <- function(x, new_width, new_height, resize_method, hash_size = 8L, highfreq_factor = 4L, method = 1L, threads = 1L) {
.Call(`_OpenImageR_hash_image`, x, new_width, new_height, resize_method, hash_size, highfreq_factor, method, threads)
}
hash_image_cube <- function(x, resize_method, hash_size = 8L, highfreq_factor = 4L, method = 1L, threads = 1L) {
.Call(`_OpenImageR_hash_image_cube`, x, resize_method, hash_size, highfreq_factor, method, threads)
}
hash_image_hex <- function(x, new_width, new_height, resize_method, hash_size = 8L, highfreq_factor = 4L, method = 1L, threads = 1L) {
.Call(`_OpenImageR_hash_image_hex`, x, new_width, new_height, resize_method, hash_size, highfreq_factor, method, threads)
}
hash_image_cube_hex <- function(x, resize_method, hash_size = 8L, highfreq_factor = 4L, method = 1L, threads = 1L) {
.Call(`_OpenImageR_hash_image_cube_hex`, x, resize_method, hash_size, highfreq_factor, method, threads)
}
levenshtein_dist <- function(s, t) {
.Call(`_OpenImageR_levenshtein_dist`, s, t)
}
hog_cpp <- function(image, n_divs = 3L, n_bins = 6L) {
.Call(`_OpenImageR_hog_cpp`, image, n_divs, n_bins)
}
list_2array_convert <- function(x) {
.Call(`_OpenImageR_list_2array_convert`, x)
}
HOG_array <- function(x, n_divs = 3L, n_bins = 6L, threads = 1L) {
.Call(`_OpenImageR_HOG_array`, x, n_divs, n_bins, threads)
}
HOG_matrix <- function(x, height, width, n_divs = 3L, n_bins = 6L, threads = 1L) {
.Call(`_OpenImageR_HOG_matrix`, x, height, width, n_divs, n_bins, threads)
}
Rgb_2gray <- function(RGB_image) {
.Call(`_OpenImageR_Rgb_2gray`, RGB_image)
}
conv2d <- function(image, kernel, mode) {
.Call(`_OpenImageR_conv2d`, image, kernel, mode)
}
conv3d <- function(image, kernel, mode) {
.Call(`_OpenImageR_conv3d`, image, kernel, mode)
}
Normalize_array <- function(x) {
.Call(`_OpenImageR_Normalize_array`, x)
}
Normalize_matrix <- function(x) {
.Call(`_OpenImageR_Normalize_matrix`, x)
}
rotate_nearest_bilinear <- function(image, angle, method, mode, threads) {
.Call(`_OpenImageR_rotate_nearest_bilinear`, image, angle, method, mode, threads)
}
rotate_nearest_bilinear_array_same <- function(src, angle, method, threads) {
.Call(`_OpenImageR_rotate_nearest_bilinear_array_same`, src, angle, method, threads)
}
rotate_nearest_bilinear_array_full <- function(src, angle, method, threads) {
.Call(`_OpenImageR_rotate_nearest_bilinear_array_full`, src, angle, method, threads)
}
rotate_rcpp <- function(image, angle) {
.Call(`_OpenImageR_rotate_rcpp`, image, angle)
}
resize_nearest_array <- function(image, width, height) {
.Call(`_OpenImageR_resize_nearest_array`, image, width, height)
}
bilinear_array <- function(image, width, height) {
.Call(`_OpenImageR_bilinear_array`, image, width, height)
}
resize_nearest_rcpp <- function(image, width, height) {
.Call(`_OpenImageR_resize_nearest_rcpp`, image, width, height)
}
resize_bilinear_rcpp <- function(image, width, height) {
.Call(`_OpenImageR_resize_bilinear_rcpp`, image, width, height)
}
im_flip <- function(x, mode = 1L) {
.Call(`_OpenImageR_im_flip`, x, mode)
}
im_flip_cube <- function(src, mode = 1L) {
.Call(`_OpenImageR_im_flip_cube`, src, mode)
}
zca_whitening <- function(data, k, epsilon) {
.Call(`_OpenImageR_zca_whitening`, data, k, epsilon)
}
zca_whiten_cube <- function(src, k, epsilon) {
.Call(`_OpenImageR_zca_whiten_cube`, src, k, epsilon)
}
diate_erode <- function(image, Filter, method = 1L, threads = 1L) {
.Call(`_OpenImageR_diate_erode`, image, Filter, method, threads)
}
diate_erode_cube <- function(image, Filter, method = 1L, threads = 1L) {
.Call(`_OpenImageR_diate_erode_cube`, image, Filter, method, threads)
}
translation_mat <- function(image, shift_rows = 0L, shift_cols = 0L, FILL_VALUE = 0.0) {
.Call(`_OpenImageR_translation_mat`, image, shift_rows, shift_cols, FILL_VALUE)
}
augment_transf <- function(image, flip_mode, crop_height, crop_width, resiz_width = 0.0, resiz_height = 0.0, resiz_method = "nearest", shift_rows = 0.0, shift_cols = 0.0, rotate_angle = 0.0, rotate_method = "nearest", zca_comps = 0L, zca_epsilon = 0.0, image_thresh = 0.0, pad_shift_value = 0.0) {
.Call(`_OpenImageR_augment_transf`, image, flip_mode, crop_height, crop_width, resiz_width, resiz_height, resiz_method, shift_rows, shift_cols, rotate_angle, rotate_method, zca_comps, zca_epsilon, image_thresh, pad_shift_value)
}
augment_transf_array <- function(image, flip_mode, crop_height, crop_width, pad_shift_value, resiz_width = 0.0, resiz_height = 0.0, resiz_method = "nearest", shift_rows = 0.0, shift_cols = 0.0, rotate_angle = 0.0, rotate_method = "nearest", zca_comps = 0L, zca_epsilon = 0.0, image_thresh = 0.0) {
.Call(`_OpenImageR_augment_transf_array`, image, flip_mode, crop_height, crop_width, pad_shift_value, resiz_width, resiz_height, resiz_method, shift_rows, shift_cols, rotate_angle, rotate_method, zca_comps, zca_epsilon, image_thresh)
}
augment_array_list <- function(x, flip_mode, crop_height, crop_width, pad_shift_value, resiz_width = 0.0, resiz_height = 0.0, resiz_method = "nearest", shift_rows = 0.0, shift_cols = 0.0, rotate_angle = 0.0, rotate_method = "nearest", zca_comps = 0L, zca_epsilon = 0.0, image_thresh = 0.0) {
.Call(`_OpenImageR_augment_array_list`, x, flip_mode, crop_height, crop_width, pad_shift_value, resiz_width, resiz_height, resiz_method, shift_rows, shift_cols, rotate_angle, rotate_method, zca_comps, zca_epsilon, image_thresh)
}
MinMaxMatrix <- function(x) {
.Call(`_OpenImageR_MinMaxMatrix`, x)
}
MinMaxArray <- function(x) {
.Call(`_OpenImageR_MinMaxArray`, x)
}
Array_range <- function(x, mode = 1L) {
.Call(`_OpenImageR_Array_range`, x, mode)
}
meshgrid_y <- function(rows, cols) {
.Call(`_OpenImageR_meshgrid_y`, rows, cols)
}
meshgrid_x <- function(rows, cols) {
.Call(`_OpenImageR_meshgrid_x`, rows, cols)
}
rgbtolab <- function(rgb) {
.Call(`_OpenImageR_rgbtolab`, rgb)
}
RGB_to_hsv <- function(x) {
.Call(`_OpenImageR_RGB_to_hsv`, x)
}
interface_superpixels <- function(input_image, method = "slic", num_superpixel = 200L, compactness_factor = 20, return_slic_data = FALSE, return_lab_data = FALSE, return_labels = FALSE, write_slic = "", verbose = FALSE) {
.Call(`_OpenImageR_interface_superpixels`, input_image, method, num_superpixel, compactness_factor, return_slic_data, return_lab_data, return_labels, write_slic, verbose)
}
spix_bbox <- function(spix_labels, non_overlapping_superpixels = FALSE) {
.Call(`_OpenImageR_spix_bbox`, spix_labels, non_overlapping_superpixels)
}
spix_bbox_vector <- function(spix_labels, spix_labels_vec) {
.Call(`_OpenImageR_spix_bbox_vector`, spix_labels, spix_labels_vec)
}
pad_matrix <- function(x, new_rows, new_cols, fill_value = 0.0) {
.Call(`_OpenImageR_pad_matrix`, x, new_rows, new_cols, fill_value)
}
LOAD_data <- function(write_slic, type = "2d") {
.Call(`_OpenImageR_LOAD_data`, write_slic, type)
}
get_affine_transform <- function(original_points, transformed_points) {
.Call(`_OpenImageR_get_affine_transform`, original_points, transformed_points)
}
warpAffine_2d <- function(img, M, R, C, threads = 1L) {
.Call(`_OpenImageR_warpAffine_2d`, img, M, R, C, threads)
}
warp_affine_3d <- function(img, M, R, C) {
.Call(`_OpenImageR_warp_affine_3d`, img, M, R, C)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.