Test Anova

 group1<-as.numeric(strsplit(readline(prompt="enter values for group1 separated by

space:"),"")[[1]])

group2<-as.numeric(strsplit(readline(prompt="enter values for group2 separated by

space:"),"")[[1]])

result<-t.test(group1,group2)

print(result)

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