Object Detection with Tiny YOLO package + R

library(image.darknet)
tiny_yolo_pretrain_weight = system.file(package="image.darknet","models","tiny-yolo-voc.weights")
pre_labels = system.file(package="image.darknet","include","darknet","data","voc.names")

R_yolo =image_darknet_model(type="detect", model = "tiny-yolo-voc.cfg", 
                            weights= tiny_yolo_pretrain_weight,
                            labels= pre_labels )

image_darknet_detect(file = testimgfile,object = R_yolo, threshold = 0.15)