negativo: Trova il primo valore negativo

negativoR Documentation

Trova il primo valore negativo

Description

Trova il primo valore negativo tra una serie di numeri in sequenza. Funzione di esempio per il ciclo while.

Usage

negativo( x )

Arguments

x

vettore di numeri.

Value

Restituisce il primo elemento negativo del vettore x. Se non ci sono valori negativi restituisce un messaggio.

Author(s)

Massimiliano Pastore

Examples

x <- rnorm(10)
negativo(x)

# "non ci sono negativi"
y <- rnorm(10,100,15)
negativo(y) 

## The function is currently defined as
function(x)
{
    i <- 0
    trovato <- FALSE
    while ((i<length(x))&(trovato==FALSE)) {
        i <- i+1
        if (x[i]<0) trovato <- TRUE
    }
    if (trovato) {
        return(x[i])
    } else {
        print("non ci sono negativi")
    }
}

masspastore/ADati documentation built on April 18, 2024, 5:55 p.m.