desvioPadraoV <-function(V,N) {
  varianciatmp = varV(V,N)
  desviotmp = sqrt(varianciatmp)
  return(desviotmp)
}