R/negData.R

In soilassessment: Assessment Models for Agriculture Soil Conditions and Crop Suitability

Defines functions negData

Documented in negData

negData=function(vg="ec",x){
  if(vg=="ec"){y=ifelse(x<0,NA,x)}
  else if(vg=="esp"){y=ifelse(x<0,NA,x)}
  else if(vg=="ph"){
    y=ifelse(x<1,NA,ifelse(x<=14,x,NA))
  }
  return(y)
}

Try the soilassessment package in your browser