R/detFileName.R

detFileName <-
function (file.name)
{	
	sub = substr(file.name,1,3)	
	if(sub == "gse") 
		file.name = toupper(file.name)
	else
		file.name = file.name
	return (file.name) 
}

Try the survJamda package in your browser

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

survJamda documentation built on May 1, 2019, 8:50 p.m.