### Author: Christian Westphal ### Datum: 2020-07-28 ### URL: https://www.westphal.de/stat/ library(nortest) t.rep <- 10000 # Anzahl der Wiederholungen festlegen t.days <- 750 t.mean <- 20 # Parameter der generierenden NV t.sd <- 1.65 # Vektoren initialisieren, in # denen die p-Werte der Tests # gespeichert werden p.lognormal <- rep(0, t.rep) for (j in 1:t.rep){ t.X <- rnorm( t.days, mean=t.mean, sd=t.sd ) p.lognormal[j] <- pearson.test( log(t.X) )$p.value }