1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111 | myvector <- c(10, 5, 9)
myvector
myvector <- c(123, 3, -2, myvecotr)
myvector <- c(123, 3, -2, myvector)
myvector
myvector <- c(123, 3, -2, (myvector)
myvector <- c(123, 3, -2, (myvector))
myvector
median (myvector)
v <- cc("cdcd", "dfddf")
v <- c("cdcd", "dfddf")
v
population <- 1:1000
population
sample(population, 10)
mean(sample(population, 10))
mean(sample(population, 10))
mean(sample(population, 10))
mean(population)
median(population)
mean(sample(population, 1000))
eyes< - c(2,3,5)
eyes <- c(2,3,5)
labels <- c("brown", "green","blue")
barplot(eyes, names.arg = labels, ylab = "Frenquecy")
barplot(eyes, xlab = "eyes color" = , ylab = "Frenquecy")
barplot(eyes, xlab = "eyes color" , ylab = "Frenquecy")
barplot(eyes, xlab = eyes , ylab = "Frenquecy")
sample
sample <- sample(population,100)
sample
boxplot(sample)
summary(sample)
samplesNum <- 10
samplsSize <- 20
samples <- matrix(,nrow = samplesNum, ncol = samplesSize)
samplesSize
samplesSize <- 20
samplesSize
samples <- matrix(,nrow = samplesNum, ncol = samplesSize)
boxplot(samples)
replicate(10,mean(sample(1:500, 10)))
createRandomSamples <- function(pop, num = 10, size = 10){}
createRandomSamples <- function(pop, num = 10, size = 10){replicate(num, sample(population, size))}
boxplot(createRandomSamples(size = 20))
rep(10,1)
rep(1,10)
population <- c(rep(0,10000), rep(1,10000))
sample(population,1)
sample(population,1)
sample(population,1)
sample(population,1)
sample(population,1)
sample(population,1)
sample(population,1)
sample(population,1)
sample(population,1)
sample(population,1)
sample(population,10)
sample(population,10)
sample(population,10)
sum(sample(population,10))
sum(sample(population,10))
sum(sample(population,10))
sum(sample(population,10))
sum(sample(population,10))
sum(sample(population,10))
replicate(10,sum(sample(population,10)))
replicate(100,sum(sample(population,10)))
values <- replicate(10000,sum(sample(population,10)))
hist(values)
choose(10,3)
erros <- (0:10)
dbinom(errors, 10,.4)
dbinom(erros, 10,.4)
dbinom(6, 10,.4)
dbinom(0:10, 10,.4)
dunif(0.2)
curve(dunif(x))
curve(dunif(x), xlim = c(-1,1), ylim = c(0,1.5))
runif(10)
runif(10)
runif(10)
mean(runif(10))
mean(runif(1000000))
mean(runif(10000000000000000))
mean(runif(10000000000000))
mean(runif(10000000000))
mean(runif(10000000))
mean(runif(10000000))
rbinom(10,10,0.3)
rbinom(10000,10,0.3)
mean(rbinom(10000,10,0.3))
mean(rbinom(10000000,10,0.3))
source('E:/OnlineStudy_Framework/AnalysisScripts/1-read-and-calculate_errors_time_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/2-aggregate_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/3a-analysis-errors_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/2-aggregate_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/3a-analysis-errors_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/1-read-and-calculate_errors_time_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/2-aggregate_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/3a-analysis-errors_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/4-Abs-and-True-error-by-percent_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/3a-analysis-errors_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/1-read-and-calculate_errors_time_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/2-aggregate_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/3a-analysis-errors_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/3a-analysis-errors_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/4-Abs-and-True-error-by-percent_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/4-Abs-and-True-error-by-percent_1.R', echo=TRUE)
source('E:/OnlineStudy_Framework/AnalysisScripts/3a-analysis-errors_1.R', echo=TRUE)
|