R/get.cycle.durations.R

get.cycle.durations <-
function(dataset){
	ncycles <- dim(dataset)[2]
	durations <- NULL
	for(i in 1:ncycles){
		set1 <- rm.end.NAs(dataset[,i])
		durations[i] <- length(set1)
		}
	return(durations)
	}

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.