R/YPmodel.setParameter.R

Defines functions YPmodel.setParameter

Documented in YPmodel.setParameter

YPmodel.setParameter <-
function(startPoint=c(0,0), nm=log(100), maxIter1=50, maxIter2=20, ...)
{
#	if(! is.null(rTestData)){
#		repNum <- rTestData$repNum
#	}

#	if(is.null(Data)){
#		if(is.null(jh)){
#			jh <- 0.001
#		}
#		if(is.null(h)){
#			h <- 0.001
#		}
#	}
#
#	if(! is.null(Data)){
#		if(is.null(jh)){
#			jh <- 1/sqrt(Data$length)
#		}
#		if(is.null(h)){
#			h <- 1/sqrt(Data$length)
#		}
#	}


	Parameters <- list(GroupNum=2, 
		startPoint=startPoint,
		nm=nm, 
		maxIter1=maxIter1,
		maxIter2=maxIter2)

	return(Parameters)
}

Try the YPmodel package in your browser

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

YPmodel documentation built on Oct. 23, 2020, 5:15 p.m.