1
plot(sin(0,2*pi,0.1))

1
"Hello World"

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
3
4
5
6
7
8
9
W1 = [0.999, 0.001];                                  %wlamanie
U1 = [0.998, 0.002];                                  %uderzenie pioruna
SA = [0.99, 0.05; 0.01, 0.95];                    %stefan i alarm
BA = [0.98, 0.35; 0.02, 0.65];                    %basia i alarm
 
%wlaczenie alarmu, wlamanie i uderzenie pioruna
AWU = zeros(2,2,2);
AWU(2, :, :) = [0.001, 0.29; 0.94, 0.95];   %alarm sie wlaczyl
AWU(1, :, :) = [0.999, 0.71; 0.06, 0.05];   %alarm sie nie wlaczyl
 ...

1
2
3
4
5
6
7
8
9
# Goals: To write functions
#        To write functions that send back multiple objects.
 
# FIRST LEARN ABOUT LISTS --
X = list(height=5.4, weight=54)
print("Use default printing --")
print(X)
print("Accessing individual elements --")
cat("Your height is ", X$height, " and your weight is ", X$weight, "\n")
 ...

1
2
3
a <- c(15,10,10,7,7,4,9,6,10,12)
b <- c(8,9,2,0,0,9,9,7,3,3)
t.test(a, b, alternative="greater", var.equal=TRUE)

1
2
3
a <- c(15,10,10,7,7,4,9,6,10,12
b <- c(8,9,2,0,0,9,9,7,3,3)
t.test(a, b, alternative="greater", var.equal=TRUE)

1
2
3
a <- c(15,10,10,7,7,4,9,6,10,12)
b <- c(8,9,2,0,0,9,9,7,3,3)
t.test(a, b, alternative="greater", independant=T)

1
2
3
a <- c(15,10,10,7,7,4,9,6,10,12)
b <- c(8,9,2,0,0,9,9,7,3,3)
t.test(a, b, alternative="greater", independant=T)

1
2
3
a <- c(15,10,10,7,7,4,9,6,10,12)
b <- c(8,9,2,0,0,9,9,7,3,3)
t.test(a, b, alternative="greater",indepenyant=TRUE)

1
 

1
x=c12,15,25

1
2
x = c(12,32,24,13,19)
summary(x)

1
2
3
a <- c(15,10,10,7,7,4,9,6,10,12)
b <- c(8,9,2,0,0,9,9,7,3,3)
t.test(a, b, alternative="greater")

1
2
3
a <- c(15,10,10,7,7,4,9,6,10,12)
b <- c(8,9,2,0,0,9,9,7,3,3)
t.test(a, b, alternative="more")

1
2
3
a <- c(15,10,10,7,7,4,9,6,10,12)
b <- c(8,9,2,0,0,9,9,7,3,3)
t.test(a, b, alternative="less")

1
2
3
4
5
6
7
8
9
 x = c(15,24,35,16,17)
 x
[1] 15 24 35 16 17
summary (x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   15.0    16.0    17.0    21.4    24.0    35.0 
y = c(18,16,14,20,9)
y
[1] 18 16 14 20  9
 ...

1
2
x = c(12,34,56,9)
summary(x)

1
2
3
4
a <- c(28,21,26,16,18,13,15,22,19,22)
sd(a)
sd(a)/length(a)
t.test(a, mu=23)

1
2
3
4
5
6
7
8
9
a <- c(15,10,10,7,7,4,9,6,10,12)
b <- c(8,9,2,0,0,9,9,7,3,3)
mean(a)
mean(b)
sd(a)
sd(b)
t.test(a-b, alternative="less")
mean(a)-mean(b)
sd(a)-sd(b)

1
2
3
4
5
6
7
a <- c(15,10,10,7,7,4,9,6,10,12)
b <- c(8,9,2,0,0,9,9,7,3,3)
mean(a)
mean(b)
sd(a)
sd(b)
t.test(a-b, alternative="less")

1
2
3
a <- c(15,10,10,7,7,4,9,6,10,12)
b <- c(8,9,2,0,0,9,9,7,3,3)
t.test(a-b, alternative="less")

1
2
3
4
5
6
7
8
9
a=[[[3,1],[5,1],[821,1],[273997,1],[7741805910970258163,1]],[[2,2],[107,1],[244219007447,1],[95966808334871,1]],[[2,2],[7,3],[919,1],[56951,1],[103160249,1],[4656410419,1]],[[2,3],[17,1],[177693403,1],[414883089729841223,1]],[[3,1],[31,1],[4951,1],[1346989159,1],[50461897989311,1]],[[7,2],[79,1],[241,1],[4271,1],[48523,1],[1051181,1],[176838479,1]],[[2,1],[1475709031,1],[12177009148932085937,1]],[[6323573,1],[4753519027288416018457,1]],[[2,1],[18164960872674393974925145111,1]]]
a.length.times do |i|
n=1
(a[i].length).times do |j|
n*=a[i][j][0]**a[i][j][1]
end
s="";
(Math.log(n)/Math.log(256)).ceil.times do
s=(n%256).chr+s
 ...

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
a = (1 2 3)
cat(a)

1
2
a = [1 2 3]
cat(a)

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
3
4
5
6
7
8
9
library(SuppDists)
jdist<-list(gamma=-0.7, delta=0.8, xi=26, lambda=1.4, type="SU")
xvals<-seq(10,60,by=1)
yvals<-dJohnson(xvals,jdist)
print(jdist)
#plot(xvals,yvals,col="blue",type="l")
 
#this is some trial observation - say we see an observation of "40" and give it a weighting of one-third
observation<-40
 ...