R/numeric_output.R

In ArkaB-DS/nlsCompare: Compare the best parameter values and sum-of-squares involved in solving nonlinear least squares (nls)

Defines functions numeric_output

Documented in numeric_output

numeric_output<-function(str){
	if(all(sapply(c("Mean",":"),grepl,str))){
		return( gsub("^.*: *","",str))  
	}else{
	return(str)
	}
 }