data-raw/temperature.R

In Jellest/wmoSC: WMO air temperature Siting Classification of automatic weather stations

#Temperature
library(data.table)
createTemperatureVars <- function(){
  class_c <- c(1:5)
  criteria_colNames <-  c("Class", "Criteria")
  
  V_Temp_slope_ct <- c(19, 19, NA, NA, NA) 
  V_Temp_slope <<- data.frame(class=1:5, criteria=V_Temp_slope_ct)
  
  V_Temp_openSpace_ct <- c(100, 30, 10, NA, NA)
  V_Temp_openSpace <<- data.frame(class=1:5, criteria=V_Temp_openSpace_ct)
  
  V_Temp_vege_ct <- c(10, 10, 25, NA, NA)
  V_Temp_vege <<- data.frame(class=1:5, criteria=V_Temp_vege_ct)
  
  V_Temp_shade_ct <- c(5, 7, 7, 20, NA)
  V_Temp_shade <<- data.frame(class=1:5, criteria=V_Temp_shade_ct)
  
  V_Temp_water_ct <- c(100, 30, 10, NA, NA)
  V_Temp_water <<- data.frame(class=1:5, criteria=V_Temp_water_ct)
  
  V_Temp_source_ct <- c(100, 30, 10, 10, NA)
  V_Temp_water <<- data.frame(class=1:5, criteria=V_Temp_source_ct)
  
  ###radius criteria
  ##radius 1
  V_Temp_SourceRad1_ct <- c(100, 30, 10, NA, NA)
  V_Temp_SourceRad1Rel_ct <- c(0.05, 0.1, 0.1, NA, NA)
  V_Temp_SourceRad1 <<- data.frame(class=1:5, criteria=V_Temp_SourceRad1_ct, relative=V_Temp_SourceRad1Rel_ct)
  
  ##radius2
  #meters
  V_Temp_SourceRad2_ct <- c(10:30, 5:10, NA, NA, NA)
  V_Temp_SourceRad2_ctC1 <- length(c(10:30))
  V_Temp_SourceRad2_ctC2 <- length(c(5:10))
  V_Temp_SourceRad2_ctC3C5 <- c(NA, NA, NA)
  
  #relative
  V_Temp_SourceRad2Rel_ct1 <- rep(0.01,V_Temp_SourceRad2_ctC1)
  V_Temp_SourceRad2Rel_ct2 <- rep(0.01,V_Temp_SourceRad2_ctC2)
  V_Temp_SourceRad2Rel_c3c5 <- c(3,4,5)
  V_Temp_SourceRad2Rel <- c(V_Temp_SourceRad2Rel_ct1, V_Temp_SourceRad2Rel_ct2, V_Temp_SourceRad2Rel_c3c5)
  
  #class
  rep1 <- rep(1,V_Temp_SourceRad2_ctC1)
  rep2 <- rep(2,V_Temp_SourceRad2_ctC2)
  V_Temp_SourceRad2Rel_class <- c(rep1, rep2, V_Temp_SourceRad2Rel_c3c5)
  
  #combine
  V_Temp_SourceRad2 <<- data.frame(class=V_Temp_SourceRad2Rel_class, criteria=V_Temp_SourceRad2_ct, relative=V_Temp_SourceRad2Rel)
  
  ##radius 3
  V_Temp_SourceRad3_ct <- c(10, 5, 5, NA, NA)
  V_Temp_SourceRad3Rel_ct <- c(0.01, 0.01, 0.05, NA, NA)
  V_Temp_SourceRad3 <<- data.frame(class=1:5, criteria=V_Temp_SourceRad3_ct, relative=V_Temp_SourceRad3Rel_ct)
}
createTemperatureVars()


#data.frame(temperature_criteria.df, row.names=unlist(temperature_criteria.df[,1]))
#rownames(temperature_criteria.df) <- gsub(" ", "", rownames(temperature_criteria.df))