R/get.window.R

get.window <-
function(dataset){
	xbar <- round(mean(dataset),1)
	xsd <- round(sd(dataset),1)
	upper <- xbar + (2*xsd)
	lower <- xbar - (2*xsd)
	win <- round(upper - lower,0)
	return(win)
	}

Try the cyphid package in your browser

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

cyphid documentation built on May 2, 2019, 2:41 a.m.