R/hapus_awalan_dikese.R

In nurandi/katadasaR: Function for word stemming Bahasa Indonesia

## Remove prefix di-, ke-, se-
## eg. dimakan, kekuatan, sehati

HapusAwalanDiKeSe <- function(kata) {

  if ( grepl("^(di|[ks]e)", kata) ) {

    kata1 <- sub("^(di|[ks]e)", "", kata)
    if ( is_katadasar(kata1) ) {
      return(kata1)
    }

    kata2 <- HapusAkhiranIAnKan(kata1)
    if ( is_katadasar(kata2) ) {
      return(kata2)
    }

  }
}