R/samples.id.R

`samples.id` <-
function(x,id.cols=c("sample","repli")){
	mmnt.lines <- which ( x[[3]][,"sample_type"]=="measurement")
	temp <- c(NULL)
		for (i in id.cols){
			temp <- paste(temp,as.character(x[[3]][mmnt.lines,i]),sep="")
			}
		identifier <- unique(temp)
				replis <- (length(temp)/length(identifier))
				count <- length(identifier)
			print(paste("found",count,"individual samples, spottet in",replis
					,"replicates"))
	 return(identifier)
	}

Try the RPPanalyzer package in your browser

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

RPPanalyzer documentation built on May 2, 2019, 6:10 p.m.