R/adj.input.R

In intsvy: International Assessment Data Manager

Defines functions adj.input

Documented in adj.input

adj.input <-
function(x,threshold=.5) {
  
  if(memisc::measurement(x) %in% c("nominal","ordinal")){
    
    nlabeled <- sum(is.vlabeled(x),na.rm=TRUE)
    if(nlabeled < threshold*length(x))
      memisc::measurement(x) <- "interval"
  }
  x
}

Try the intsvy package in your browser