R/vfex.R

Defines functions vfex

Documented in vfex

#' @export vfex
#'
vfex <- function(C, u, th, fm)
{
	if (fm == "clayton"){
		v = vfclayton(C, u, th)
	} else {
		if (fm == "frank"){
			v = vffrank(C, u, th)
		} else {
			if (fm == "gumbel"){
				v = vfgumbel(C, u, th)
			} else {
				if (fm == "fgm"){
					v = vffgm(C, u, th)
				} else {
					if (fm == "amh"){
						v = vfalihaq(C, u, th)
					} else {
						if (fm == "joe"){
							v = vfjoe(C, u, th)
						}
					}
				}
			}
		}
	}
	return(v)
}

Try the vfcp package in your browser

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

vfcp documentation built on May 2, 2019, 2:52 p.m.