R/pointSource.TSD.R

In arnejohannesholmin/echoIBM: Simulation of multibeam sonar data

#*********************************************
#*********************************************
#' Returns omnidirectional directional factor of dimension equal to the first input.
#'
#' @param data  is a list containing the elements 'dire' (elevarion angle in radians [0,pi/2]) and 'wnsz' (product of wave number and size), and optionally 'dira' (azimuth angle in radians [0,pi/2]), 'indi' (index of the fish / transducer element).
#'
#' @return
#'
#' @examples
#' \dontrun{}
#'
#' @export
#' @rdname pointSource.TSD
#'
pointSource.TSD<-function(data){
	
	############### LOG: ###############
	# Start: 2010-06-11 - Clean version.
	
	
	##################################################
	##################################################
	##### Preparation #####
	l=length(data$wnsz)
	
	
	##### Execution and output #####
	double(l)+1
	##################################################
	##################################################
	}