kokes

kokes

kokes

# Pěkný to neni, ale zdá se že funguje
# edit: případně vlastně můžem embednout iconv do argumentu gsubu
paste0(unlist(lapply(strsplit(Z, "'")[[1]], function(a) {gsub("'","",iconv(a, to='ASCII//TRANSLIT'))})), collapse="'")

# > Z="příliš žluťoučký 'kůň' s 'apostrofama'"
# > paste0(unlist(lapply(strsplit(Z, "'")[[1]], function(a) {gsub("'","",iconv(a, to='ASCII//TRANSLIT'))})), collapse="'")
# [1] "prilis zlutoucky 'kun' s 'apostrofama"

kokes

kokes

library(mclust)
mixplot <- function(ts,plot=TRUE) {
  rng=seq(from=min(ts),to=max(ts),by=(max(ts)-min(ts))/1000)
  mcp = Mclust(ts)$par
  mat=cbind(mcp$mean,mcp$var$sigmasq,mcp$pro)
  dens=apply(mat[,-3],1,function(x) dnorm(rng,mean=x[1],sd=sqrt(x[2])))
  f=dens%*%mat[,3]
  
  if (plot) {
    hist(ts,breaks=100,border="gray",probability=TRUE,main="")

kokes

kokes

kokes

kokes

kokes