R/sonR_implemented_ind.R

In arnejohannesholmin/echoIBM: Simulation of multibeam sonar data

#*********************************************
#*********************************************
#' Implemented ind strings in echoIBM and realted functions
#' 
#' @param ind see ind.expand()
#'
#' @importFrom sonR sonR_implemented
#'
#' @export
#' @rdname sonR_implemented_ind
#'
sonR_implemented_ind <- function(ind){
	if(is.character(ind)){
		if(sonR_implemented(ind, c("sbe", "mbe", "mbs"))[1]){
			list(-(1:100),NULL)
			}
		else if(sonR_implemented(ind, "ofs")[1]){
			list(-(1:300),-(32:34))
			}
		}
	else{
		ind
		}
	}