👤

bonjour en informatique comment faire avec le langage R :
Ecrire une fonction nommée "TestComplement" qui prend en paramètre deux chaines de caractères représentant deux brins d'ADN monocaténaires a priori de même taille.
La fonction regarde si les deux brins ont la même taille. Si c'est le cas elle renvoie la valeur 1 si les deux brins sont complémentaires, et 0 s'ils ne sont pas complémentaires ou s'ils n'ont pas la même taille.
On utilisera cette fonction dans un programme R qui demande à l'utilisateur de rentrer au clavier deux brins d'ADN et qui utilise la fonction TestComplement: si les brins sont complémentaires le programme affiche le message "Brin complémentaires", sinon il affiche "pas de complémentarité entre les brins".
Rappel : Pour rentrer un tableau de caractère au clavier on utilise la fonction scan() avec un paramètre spécial : scan(what="character")

merci :)


Répondre :

# Définition de la fonction TestComplement

TestComplement <- function(brin1, brin2) {

 # Vérifier si les deux brins ont la même taille

 if (nchar(brin1) == nchar(brin2)) {

   complementaire <- TRUE

   # Vérifier si les brins sont complémentaires

   for (i in 1:nchar(brin1)) {

     if (!(brin1[i] == "A" & brin2[i] == "T" ||

           brin1[i] == "T" & brin2[i] == "A" ||

           brin1[i] == "C" & brin2[i] == "G" ||

           brin1[i] == "G" & brin2[i] == "C")) {

       complementaire <- FALSE

       break

     }

   }

   if (complementaire) {

     return(1)  # Les brins sont complémentaires

   } else {

     return(0)  # Les brins ne sont pas complémentaires

   }

 } else {

   return(0)  # Les brins n'ont pas la même taille

 }

}

# Programme principal

cat("Entrez le premier brin d'ADN : ")

brin1 <- scan(what="character", n=1)

cat("Entrez le deuxième brin d'ADN : ")

brin2 <- scan(what="character", n=1)

# Utilisation de la fonction TestComplement

resultat <- TestComplement(brin1, brin2)

# Affichage du résultat

if (resultat == 1) {

 cat("Brins complémentaires\n")

} else {

 cat("Pas de complémentarité entre les brins\n")

}

Merci d'avoir visité notre site Web dédié à Informatique. Nous espérons que les informations partagées vous ont été utiles. N'hésitez pas à nous contacter si vous avez des questions ou besoin d'assistance. À bientôt, et pensez à ajouter ce site à vos favoris !


En Studier: D'autres questions