R/i.polyptb.R

Defines functions polyptb

polyptb <- function(v,y){# v = polytome variable; y =skala
  stopifnot(length(v)==length(y))
  du <- dummy(v)
  dul <- as.list(data.frame((du)))
  names(dul) <- colnames(du)
  erg <- sapply(dul, ptb, y)
  return(erg)
} 

Try the pairwise package in your browser

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

pairwise documentation built on April 18, 2023, 1:10 a.m.