R/count.R

`count` <-
function(sv="species vector",x="species sample vector"){
	out=sv*0
	for (i in 1:length(sv)){
		out[i]=length((1:length(x))[x==sv[i]])
		
		}
	return(out)
	}

Try the DiversitySampler package in your browser

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

DiversitySampler documentation built on May 30, 2017, 4:20 a.m.