R/SplitNotes.R

.SplitNotes <- function(dat) {
	label="{"
	for(i in 1:length(dat)){
		label=paste(label,names(dat)[i],
		"(",paste(levels(dat[[i]]),collapse=",",sep=""),")",
		if(i<length(dat)) ", ",
		sep="")
		}
	label=paste(label,"}",sep="")
	return(label)	
	}

Try the DeducerReshape package in your browser

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

DeducerReshape documentation built on May 2, 2019, 5:20 p.m.