min.std.calc <- function(normals, dataset)
{
  std <- numeric()
  for( i in 1:nrow(dataset) )
  {
    s <- sd(dataset[i,which(normals)])
    std <- c(std,s)
  }
  print(quantile(std,0.25))
}