\begin{Schunk}
\begin{Sinput}
 colnames(dat1) <- cleanVarName(colnames(dat1))
 colnames(dat2) <- cleanVarName(colnames(dat2))
 ## ...
 colnames(dat10) <- cleanVarNames(colname(dat10))
 
\end{Sinput}
\end{Schunk}
