R/SEM.R

SEM <-
function(ip, x, D = 1.7)
	{
		ti<-tif(ip, x, D)$f	
   		sem <- sqrt(1/ti)
   		return(sem)
   	}

Try the cacIRT package in your browser

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

cacIRT documentation built on May 1, 2019, 10:18 p.m.