Dar roberd10, Fixing v1 column names

StudentData/v1_consistent_data_naming.Rmd

@@ -55,7 +55,7 @@ colnames(pixl.df) <- c("Lat","Lon","Sol","Sample",
 # Renaming LIBS
 libs.df <- cbind(libs.df,libs_type.df$"type")
 colnames(libs.df) <- c("Sol","Lat","Lon","Target","Point",
-                       "SiO2","SiO2_stdev","TiO2","TiO2_stdev","Al2O3","Al2O3-stdev","FeOT","FeOT_stdev","MgO","MgO_stdev","CaO","CaO_stdev","Na2O","Na2O_stdev","K2O","K2O_stdev",
+                       "SiO2","SiO2_stdev","TiO2","TiO2_stdev","Al2O3","Al2O3_stdev","FeOT","FeOT_stdev","MgO","MgO_stdev","CaO","CaO_stdev","Na2O","Na2O_stdev","K2O","K2O_stdev",
                        "Total","distance_mm","Tot.Em.",
                        "Type")
 libs_type.df <- libs_type.df$"earthsample?"
@@ -106,7 +106,7 @@ pixl.df <- pixl.df[,c("Sample",
                       )]
 # Resorting LIBS columns
 libs.df <- libs.df[,c("Target","Point","Sol","Lat","Lon","Type",
-                       "SiO2","SiO2_stdev","TiO2","TiO2_stdev","Al2O3","Al2O3-stdev","FeOT","FeOT_stdev","MgO","MgO_stdev","CaO","CaO_stdev","Na2O","Na2O_stdev","K2O","K2O_stdev",
+                       "SiO2","SiO2_stdev","TiO2","TiO2_stdev","Al2O3","Al2O3_stdev","FeOT","FeOT_stdev","MgO","MgO_stdev","CaO","CaO_stdev","Na2O","Na2O_stdev","K2O","K2O_stdev",
                        "Total","distance_mm","Tot.Em.")]
 # Resorting Lithology columns
 lithology.df <- lithology.df[1:16,c("Sample",