R/formatDF.r

Defines functions formatDF

Documented in formatDF

formatDF <- function(data)
{
	Names <- paste(data[,3],data[,2],sep='')
	Values <- t(data[,c(4:(ncol(data)-1))])
	colnames(Values) <- Names
	rownames(Values) <- c(1:nrow(Values))
	return(as.data.frame(Values))
}

Try the SCiAn package in your browser

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

SCiAn documentation built on May 2, 2019, 5:24 p.m.