R/rarefy.R

In bblonder/timeordered: Time-Ordered and Time-Aggregated Network Analyses

Defines functions rarefy

Documented in rarefy

rarefy <-
function(raw, fraction)
{
	if (fraction > 1)
	{
		stop("fraction must be less than 1")	
	}
	
	nr <- nrow(raw)
	
	indices <- sample(nr, floor(fraction*nr))
	
	return(raw[indices,])	
}