myy
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: linmengfdm
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 2.26 Ko KB
Mis en ligne Uploaded: 27/02/2025 - 07:36:25
Uploadeur Uploader: linmengfdm (Profil)
Téléchargements Downloads: 3
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4520308
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 2.26 Ko KB
Mis en ligne Uploaded: 27/02/2025 - 07:36:25
Uploadeur Uploader: linmengfdm (Profil)
Téléchargements Downloads: 3
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4520308
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
my_min: my_min <- function(data, na.rm = TRUE) { current_min <- data[1] for(i in 2:length(data)) { if(data[i] < current_min) { current_min <- data[i] } } return(current_min) } my_max: my_max <- function(data, na.rm = TRUE) { if (length(data) == 0) { return(NA) # Handle empty input } current_max <- data[1] for (i in 2:length(data)) { if (data[i] > current_max) { current_max <- data[i] } } return(current_max) } test_list <- list(one = 1.1, two = c(1.1, 2.2), three = c(1.1, 2.2, 3.3)) my_lapply <- function(X, FUN, ...) { result <- vector("list", length(X)) if( is.null(names(X)) == FALSE){ names(result) <- names(X) } for(i in 1:length(X)){ result[[i]] <- FUN(X[[i]], ...) } return(result) } my vapply: my_vapply <- function(X,FUN, FUN.VALUE, ...) { lapply_output <- lapply(X, FUN, ...) out <- matrix(NA, ncol = length(lapply_output), nrow = length(FUN.VALUE)) colnames(out) <- names(X) # for each columns for (i in 1:length(lapply_output)){ out[,i] <- lapply_output[[i]] } if (nrow(out) == 1) { return(out[1,]) } else{ return(out) } } my_plus <- function(...) { numbers <- c(...) # Convert inputs into a vector sum_result <- 0 for (num in numbers) { sum_result <- sum_result + num # Add each number } return(sum_result) } my_minus <- function(...) { numbers <- c(...) # Convert inputs into a vector if (length(numbers) == 0) return(NA) # Handle empty input difference_result <- numbers[1] # Start with the first number for (num in numbers[-1]) { difference_result <- difference_result - num # Subtract each subsequent number } return(difference_result) } my_times <- function(...) { numbers <- c(...) # Convert inputs into a vector product_result <- 1 for (num in numbers) { product_result <- product_result * num # Multiply each number } return(product_result)} my_median <- function(...) { numbers <- sort(c(...)) n <- length(numbers) if (n %% 2 == 1) { return(numbers[(n+1) / 2]) } else { return((numbers[n / 2] + numbers [n /2 +1]) / 2} } Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
my_min: my_min <- function(data, na.rm = TRUE) { current_min <- data[1] for(i in 2:length(data)) { if(data[i] < current_min) { current_min <- data[i] } } return(current_min) } my_max: my_max <- function(data, na.rm = TRUE) { if (length(data) == 0) { return(NA) # Handle empty input } current_max <- data[1] for (i in 2:length(data)) { if (data[i] > current_max) { current_max <- data[i] } } return(current_max) } test_list <- list(one = 1.1, two = c(1.1, 2.2), three = c(1.1, 2.2, 3.3)) my_lapply <- function(X, FUN, ...) { result <- vector("list", length(X)) if( is.null(names(X)) == FALSE){ names(result) <- names(X) } for(i in 1:length(X)){ result[[i]] <- FUN(X[[i]], ...) } return(result) } my vapply: my_vapply <- function(X,FUN, FUN.VALUE, ...) { lapply_output <- lapply(X, FUN, ...) out <- matrix(NA, ncol = length(lapply_output), nrow = length(FUN.VALUE)) colnames(out) <- names(X) # for each columns for (i in 1:length(lapply_output)){ out[,i] <- lapply_output[[i]] } if (nrow(out) == 1) { return(out[1,]) } else{ return(out) } } my_plus <- function(...) { numbers <- c(...) # Convert inputs into a vector sum_result <- 0 for (num in numbers) { sum_result <- sum_result + num # Add each number } return(sum_result) } my_minus <- function(...) { numbers <- c(...) # Convert inputs into a vector if (length(numbers) == 0) return(NA) # Handle empty input difference_result <- numbers[1] # Start with the first number for (num in numbers[-1]) { difference_result <- difference_result - num # Subtract each subsequent number } return(difference_result) } my_times <- function(...) { numbers <- c(...) # Convert inputs into a vector product_result <- 1 for (num in numbers) { product_result <- product_result * num # Multiply each number } return(product_result)} my_median <- function(...) { numbers <- sort(c(...)) n <- length(numbers) if (n %% 2 == 1) { return(numbers[(n+1) / 2]) } else { return((numbers[n / 2] + numbers [n /2 +1]) / 2} } Made with nCreator - tiplanet.org
>>
