Я пытаюсь написать цикл for для создания нескольких синтетических данных с помощью начальной загрузки в r и использовать созданные данные для формирования матрицы 90 * 180. Мой набор данных находится в прикрепленном файле.
Time, months Production Rate
1 35326
2 30339
3 23379
4 21877
5 18629
6 17627
7 15691
8 15435
9 14205
10 11732
11 10560
12 10592
13 9939
14 7491
15 4928
16 3427
17 8123
18 9027
19 8733
20 9599
21 8737
22 9135
23 8548
24 7279
25 8940
26 8459
27 8460
28 7700
29 6817
30 7167
31 7089
32 7091
33 7538
34 9206
35 9680
36 5876
37 7799
38 8384
39 10586
40 8623
41 7848
42 5534
43 6610
44 6539
45 6650
46 6876
47 6363
48 5359
49 6056
50 6193
51 5925
52 6195
53 4179
54 5579
55 1692
56 2414
57 3501
58 7700
59 6413
60 6001
61 6002
62 6004
63 5344
64 5906
65 4330
66 5086
67 4260
68 4053
69 4285
70 4123
71 4407
72 4264
73 2844
74 4149
75 3755
76 1795
77 2181
78 3614
79 3555
80 3758
81 3780
82 3739
83 3538
84 3519
85 3461
86 3520
87 2981
88 3444
89 3369
90 4649
Я предложил код начальной загрузки ниже, но я не знаю, как создать цикл for или вектор для генерации 90 реализаций этих синтетических данных и связать их в матрице. Т.е. у меня уже есть syn_prod. Я хочу цикл для создания 90 из них и связывания с использованием cbind в матрице 90 * 180
syn_prod = prod_rate[sample(1:90, size=90, replace=TRUE, prob=NULL), ]
Мне нужна помощь.
Это снимок моего кода r:
# Set a seed
set.seed(90)
# Call in dataset for Well 1
prod_rate <- read.csv(file.choose())
summary(prod_rate)
###************** Bootstrap Method ***************#########
## Generate 90 * 180 bootstrap synthetic resample
## data from random sample generated
syn_prod = prod_rate[sample(1:90, size=90,
replace=TRUE, prob=NULL), ]
## Bootstrap sample #
Мне нужно иметь возможность генерировать 90 'syn_prod' данных и помещать их в матрицу 90 * 180