fix y-label unit in uStarThreshold plots

Author: progtw

R/EddyUStarFilterDP.R

@@ -407,7 +407,8 @@ usEstUstarThreshold = function(
 	, NEEColName = "NEE"			##<< column name for NEE
 	, TempColName = "Tair"		##<< column name for air temperature
 	, xlab = bquote(u['*']*" (" * m~s^-1 * ")")
-	, ylab = bquote("NEE (" * gC~ m^-2~yr^-1 * ")")
+	#, ylab = bquote("NEE (" * gC~ m^-2~yr^-1 * ")")
+	, ylab = bquote("NEE (" * umol~C~m^-2~s^-1 * ")")
 ) {
 	##author<< TW
   dss <- NEEUStar.F[, c(NEEColName, UstarColName, TempColName, "uStarBin", "sDateTime")]

tests/testthat/test_UStarFilter.R

@@ -81,7 +81,8 @@ test_that("sEstUstarThold: standard case",{
 				, c( usControlUstarSubsetting()$taClasses
 				     , length(unique(usCreateSeasonFactorMonth(eddyC$sDATA$sDateTime))) ))
 			#REddyProc:::.plotNEEVersusUStarTempClass(
-			#subset(eddyC$sDATA, season == "1998001" & tempBin == 5 & is.finite(NEE)), uStarTh = 0.65)
+			#subset(cbind(eddyC$sDATA, season=eddyC$sTEMP$season), season == "1998001" & tempBin == 5 & is.finite(NEE)), uStarTh = 0.65)
+			#
 		})
 
 test_that("sEstUstarThold: missing Ustar column",{