R/suitability.R

Defines functions suitability

Documented in suitability

suitability=function(df,data){
  total <- 20
  amtx = pairwiseComparisonMatrix(df)
  wts = calculateWeights(amtx)
  for(i in 1:10){
    Sys.sleep(0.5)
    setTxtProgressBar((txtProgressBar(min = 0, max = total, style = 3)), i)
  }
  outdat=calculateAHP(wts, data)

  for(i in 10:total){
    Sys.sleep(0.5)
    setTxtProgressBar((txtProgressBar(min = 0, max = total, style = 3)), i)
  }
  return(outdat)
}

Try the soilassessment package in your browser

Any scripts or data that you put into this service are public.

soilassessment documentation built on July 9, 2023, 7:40 p.m.