R/profiles_matrix.R

In sprof: Profiling, timing and optimisation utilities

Defines functions profiles_matrix

Documented in profiles_matrix

profiles_matrix <- function(x){
	if (is.null(x)) return(NULL)
	sm <-  list.as.matrix(x$stacks$nodes)


	filledprofile <- matrix(NA, nrow=nrow(sm), ncol=length(x$profiles$data))

	for (iprof in (1:ncol(filledprofile))) 
		filledprofile[,iprof] <- sm[,x$profiles$data[iprof]]
	filledprofile
}# profiles_matrix

Try the sprof package in your browser