R/omamin.R

In denpro: Visualization of Multivariate Functions, Sets, and Data

omamin<-function(v){
#v on vektori, palautetaan pienin arvo 
#
lkm<-length(v)
i<-1
while ((i<lkm) && (is.na(v[i]))) i<-i+1
if ((i==lkm) && (is.na(v[lkm]))) y<-NA
 else
 if ((i==lkm) && (!is.na(v[lkm]))) y<-v[lkm]
  else{
  apuu<-i
  valapu<-v[apuu]
  while (i<lkm){
    i<-i+1
    if ((!is.na(v[i])) && (v[i] < valapu)){
      apuu<-i
      valapu<-v[i]
    }
  }
y<-v[apuu]
  }
return(y)
}