If else
numbers=c(3,10,15,7,20,6)
result=vector("character",length(numbers))
for(i in 1:length(numbers)){
if(numbers[i]>10){
result[i]="greater than 10"
}
else{
result[i]="10 or less"
}
}
print(result)
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)
Comments
Post a Comment