Untitled

#4
aparatai <- data.frame(matrix(nrow = 24,ncol = 2))
colnames(aparatai) <- c("aparatas", "atsakymas")
aparatai$aparatas <-c(replicate(n = 12,expr = 1),replicate(n = 12,expr = 2))
pirmas_aparatas <- c(3.5, 4.1, 4.5, 5.1, 5.7, 6.3, 6.8, 7.3, 8.1, 8.5, 9.1, 9.4)
antras_aparatas <- c(3.2, 3.5, 4.1, 4.6, 5.2, 5.7, 6.3, 6.8, 7.4, 7.9, 8.5, 9.3)
aparatai$atsakymas <- c(pirmas_aparatas,antras_aparatas)
var.test(atsakymas ~ aparatas, alternative='two.sided', conf.level=.9, data=aparatai)


#5
sparta <- read.table(file.choose(), header=TRUE, sep="\t", na.strings="NA", dec=".", strip.white=TRUE)
with(sparta, cor.test(download_mbps,upload_mbps, method="pearson"))