wasim (version 1.0)

f.score: ~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

f.score(data, sens, measured, parameter, criterion, limit)

Arguments

data

~~Describe data here~~

sens

~~Describe sens here~~

measured

~~Describe measured here~~

parameter

~~Describe parameter here~~

criterion

~~Describe criterion here~~

limit

~~Describe limit here~~

Value

• ~Describe the value returned If it is a LIST, use
• comp1
  Description of 'comp1'
• comp2
  Description of 'comp2'
• ...

Details

~~ If necessary, more details than the description above ~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (data, sens, measured, parameter, criterion, limit) 
{
	weigth<-sens[parameter,]>limit
	#functions <- array(dim=(max(c.krit)))
	#functions[[c.krit.rmse]] <- function(){return(0)}
	functions <- c(
		#rmse 
		function (x) {
		return(f.rmse(measured, as.numeric(x), weigth))
		},
		function(x) {
			return(f.nashS(measured,as.numeric(x), weigth))
		},
		function(x) {
			return(f.nashS_HF(measured,as.numeric(x), weigth))
		}
	)

	func <- functions[[criterion]]

	return(apply(data, 1, func))

  }