R/mnntsplotmarginal.R

Defines functions mnntsplotmarginal

Documented in mnntsplotmarginal

mnntsplotmarginal<-function(cestimates,M,component, ...){

    nntsplotint <- function(theta) {
        res <- mnntsmarginal(cestimates,M,component,theta)
	return(res)
    }
    return(curve(nntsplotint, 0, 2 * pi, ylab="Marginal density function",xlab = paste("Component:",component), ...))
}

Try the CircNNTSR package in your browser

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

CircNNTSR documentation built on Sept. 1, 2023, 9:07 a.m.