R/subsetData.R

Defines functions subsetData

Documented in subsetData

subsetData <-
function(data, site, region){
	if(!missing(site)){
		data <- subset(data, data[,1] == site)
		data <- data[,-1, drop=FALSE]
	}
	
	if(!missing(region)){
		data <- subset(data, data[,1] == region) 
		data <- data[,-1, drop=FALSE]
	}
	
	return(data)
}

Try the HMPTrees package in your browser

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

HMPTrees documentation built on May 2, 2019, 4:02 p.m.