# NOT RUN {
glmp_method <- function(pm,input){
pm$pm_depth <- pm_infer(pm$pm_depth, input[1])
pm$pm_height <- pm_infer(pm$pm_height,input[2])
pm$pm_width <- pm_infer(pm$pm_width, input[3])
pm$pm_frame <- pm_infer(pm$pm_frame, list( pm$pm_depth$y,
pm$pm_height$y,
pm$pm_width$y)
)
pm
}
my_glmp <- glmp(list(pm_depth = pm_depth,
pm_height = pm_height,
pm_width = pm_width,
pm_frame = pm_frame),
glmp_method)
# }
Run the code above in your browser using DataLab