R/distortionError.R

Defines functions distortionError

Documented in distortionError

distortionError <- function(p, ucoor, dcoor, img.size){

	# Replace NA values with 0
	p[is.na(p)] <- 0

	# Apply distortion parameters
	dcoor_p <- undistort(ucoor, image.size=img.size, center=c(p[1], p[2]), 
		k=c(p[3], p[4], p[5]), p=c(p[6], p[7]))

	# Find error between input distorted coordinates and coordinates from distortion parameters
	errors <- sqrt(rowSums((dcoor - dcoor_p)^2))
	
	mean(errors)
}

Try the StereoMorph package in your browser

Any scripts or data that you put into this service are public.

StereoMorph documentation built on May 25, 2022, 5:06 p.m.