ich benötige mal wieder eure Hilfe. Ich muss einen Code schreiben, der mir den P-Wert ausgibt. Das ganze soll ich mit einer If-Else Bedingung durchzuführen.
Zur Zeit habe ich folgendes:
Leider wird mir kein P-Wert ausgegeben. Müsste die Funktion "return(t.test$p.value)" nicht genau das machen? Hoffe ihr könnt mir weiterhelfen.
xom<- read.csv("XOM.csv", header=TRUE, sep=",")
bp<- read.csv("BP.csv", header=TRUE, sep=",")
xomclose<- as.numeric(xom[,6])
date<- as.Date(xom[,1],"%y-%m-%d")
bpclose<- as.numeric(bp[,6])
date1<- as.Date(bp[,1],"%y-%m-%d")
alpha<- 0.1
mytest <- function(xomclose, bpclose, alpha){
TestValue <- var.test(xomclose, bpclose, ratio = 1, alternative = "two.sided")
if(TestValue$p.value < alpha) {
t.test <- t.test(xomclose, bpclose, alternative = "two.sided", paired = F, var.equal = F, conf.level = 1-alpha)
return(t.test$p.value)
}
else{
t.test1 <- t.test(xomclose, bpclose, alternative = "two.sided", paired = F, var.equal = T, conf.level = 1-alpha)
return(t.test$p.value)
}
}
Grüße