For loop and stop

 temperatures=c(15,20,19,-5,18,20)

for(i in 1:length(temperatures)){

if(temperatures[i]<0){

cat("Error:Negative temperature detected:",temperatures[i],"at index",i,"\n")

break

}else{

cat("temperature at index",i,"is",temperatures[i],"degrees\n")

}

}

Comments

Post a Comment

Popular posts from this blog

Reading and writing files

 numbers <- c(1, 2, 3, 4, 5) write(numbers, file = "numbers.txt") read_numbers <- read.table("numbers.txt") print(read_numbers) data<-data.frame(name=c("john","mary","david"),age=c(25,31, 42)) write.table(data,file="data.csv",sep=",",row.names=FALSE,col.names=TRUE) read_data <- read.csv("data.csv") print(read_data)
Read more

Mean mode median:

  dataset <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)   mean_value <- mean(dataset)   print(paste("Mean:", mean_value))   mode_value <- names(which.max(table(dataset)))   print(paste("Mode:", mode_value))   median_value <- median(dataset)   print(paste("Median:", median_value))
Read more