Views
- State: visible
instrucciones de R para tests
instrucciones de R para tests
Size
1.8 kB
-
File type
text/plain
Click here to get the file
File contents
##########ejercicio 1 ###################################
conc<-scan("concentracion.txt")
boxplot(conc)
hist(conc)
shapiro.test(conc)
binom.test(sum(conc-620>0),length(conc) , p = 0.5,alternative ="less",conf.level = 0.95)
library(BSDA)
SIGN.test(conc, md = 620, alternative = "less", conf.level = 0.95)
########### ejercicio 2 ###################################
suero<-scan("suero.txt")
boxplot(suero)
hist(suero)
qqnorm(suero)
shapiro.test(suero)
wilcox.test(suero ,alternative ="two.sided", mu=40,exact=FALSE)
########### ejercicio 3 ####################
telas<-read.table("telas.txt",header=TRUE)
attach(telas)
summary(telas)
summary(A-B)
sd(A-B)
qqnorm(A-B)
hist(A-B)
boxplot(A-B)
shapiro.test(A-B)
t.test(A,B , alternative = c("two.sided"),mu = 0,paired = TRUE,var.equal=TRUE,conf.level = 0.95)
############ ejercicio 4 ########################
energia<-read.table("obesas y delgadas.txt",header=TRUE)
attach(energia)
summary(energia)
boxplot(energia)
hist(Del)
hist(Ob)
stem(Del)
stem(Ob)
shapiro.test(Del)
shapiro.test(Ob)
var.test(Del,Ob, ratio = 1, alternative ="two.sided",conf.level = 0.95)
t.test(Del,Ob , alternative = c("two.sided"),mu = 0,paired = TRUe,var.equal=FALSE,conf.level = 0.95)
############## ejercicio 5 ###############################
perfumes<-read.table("perfumes.txt",header=TRUE)
attach(perfumes)
shapiro.test(Moder)
shapiro.test(Trad)
boxplot(Moder)
boxplot(Trad)
hist(Moder)
hist(Trad)
wilcox.test(Moder, Trad, paires=FALSE,alternative = "two.sided")
wilcox.test(Moder, Trad, paires=FALSE,alternative = "two.sided",exact=FALSE)
###########ejercicio 6#########
zapatos<-read.table("zapatos.txt",header=TRUE)
attach(zapatos)
boxplot(zapatos)
qqnorm(A)
qqnorm(B)
qqnorm(A-B)
boxplot(A-B)
shapiro.test(A-B)
