diff --git a/StudentData/v1_consistent_data_naming.Rmd b/StudentData/v1_consistent_data_naming.Rmd
index 0a31599..c51500e 100644
--- a/StudentData/v1_consistent_data_naming.Rmd
+++ b/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",
diff --git a/StudentData/v1_libs.Rds b/StudentData/v1_libs.Rds
index 017d288..e750f24 100644
Binary files a/StudentData/v1_libs.Rds and b/StudentData/v1_libs.Rds differ
diff --git a/StudentData/v1_libs_earth_references.Rds b/StudentData/v1_libs_earth_references.Rds
index aef5c43..04db891 100644
Binary files a/StudentData/v1_libs_earth_references.Rds and b/StudentData/v1_libs_earth_references.Rds differ