Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data <- read.delim("clipboard")
- attach(data)
- detach(data)
- args(subset)
- typeof(data)
- class(data)
- data$Universidad == "UNCI"
- unci <- subset(data, Universidad == "UNCI")
- attach(unci)
- unci.t.test <- t.test(Nota.2015.2,conf.level = 0.92)
- unci.t.test$conf.int[[2]]
- attach(unci.t.test)
- detach(unci.t.test)
- icm <- function(x, nc, N){
- alfa <- 1 - nc
- xbar <- mean(x)
- s <- sd(x)
- n <- length(x)
- ee <- s / sqrt(n)
- fcpf <- (N-n)/(N-1)
- fcpf.sqrt <- sqrt(fcpf)
- LI <- xbar - qt(1 - (alfa/2), n - 1) * ee * fcpf.sqrt
- LS <- xbar + qt(1 - (alfa/2), n - 1) * ee * fcpf.sqrt
- L <- c(LI, LS)
- print(L)
- }
- icm(Nota.2015.2, 0.92, 100)
- install.packages("EnvStats")
- library(EnvStats)
- varTest(Nota.2015.2, conf.level = 0.92)$conf
- sqrt(varTest(Nota.2015.2, conf.level = 0.92)$conf)
- #####################
- ####################
- t.test(Nota.2015.2, Nota.2015.1, paired = T, conf.level = 0.92)$conf
- t.test(Nota.2015.1, Nota.2015.2, paired = T, conf.level = 0.92)$conf
- ####################
- ###################
- install.packages("DescTools")
- library(DescTools)
- CoefVar(Nota.2015.2,conf.level = 0.92)
- CoefVar(Nota.2015.1,conf.level = 0.92)
- ?CoefVar
- ##################
- ##################
- detach(unci)
- detach(data)
- attach(data)
- no_unci <- subset(data, Universidad != "UNCI")
- attach(no_unci)
- detach(no_unci)
- var.test(Nota.2015.2~Universidad, conf.level = 0.92)
- ##################
- #################
- #by default: paired = FALSE, var.equal = F
- t.test(Nota.2015.2~Universidad, conf.level = 0.92, paired = F, var.equal = T)$conf
- install.packages("BSDA")
- library(BSDA)
- ?z.test
- z.test(x = Nota.2015.2[Universidad = "UNP"],sigma.x = 1, sigma.y = 1, conf.level = 0.92)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement