نمایش یک مثال (Example) ذکر شده در راهنمای (Help) یک تابع (Function) خاص (به همراه اجرای کد و نتایج)، در خروجی، با تابع example ، در زبان برنامه نویسی R (نسخه 3.4.2)

با استفاده از تابع example در زبان برنامه نویسی R ، می توانیم یک مثال (Example) ذکر شده در راهنمای (Help) یک تابع (Function) خاص (به همراه اجرای کد و نتایج) را در خروجی مشاهده نماییم.

به عنوان مثال، اگر بخواهیم که یک مثال (Example) ذکر شده در راهنمای (Help) تابع print را در خروجی ببینیم، باید کد R زیر را اجرا نماییم :

نتیجه :

> example(print)

print> require(stats)

print> ts(1:20)  #-- print is the "Default function" --> print.ts(.) is called
Time Series:
Start = 1 
End = 20 
Frequency = 1 
 [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20

print> for(i in 1:3) print(1:i)
[1] 1
[1] 1 2
[1] 1 2 3

print> ## Printing of factors
print> attenu$station ## 117 levels -> 'max.levels' depending on width
  [1] 117  1083 1095 283  135  475  113  1008 1028 2001 117  1117 1438
 [14] 1083 1013 1014 1015 1016 1095 1011 1028 270  280  116  266  117 
 [27] 113  112  130  475  269  135  1093 1093 111  116  290  112  113 
 [40] 128  126  127  141  266  110  1027 111  125  135  475  262  269 
 [53] 1052 411  290  130  272  1096 1102 112  113  1028 2714 2708 2715
 [66] 3501 655  272  1032 1377 1028 1250 1051 1293 1291 1292 283  885 
 [79] <NA> 2734 <NA> 2728 1413 1445 1408 1411 1410 1409 1377 1492 1251
 [92] 1422 1376 <NA> 286  <NA> 5028 942  <NA> 5054 958  952  5165 117 
[105] 955  5055 <NA> <NA> 5060 412  5053 5058 5057 <NA> 5051 <NA> 5115
[118] <NA> 931  5056 5059 5061 <NA> 5062 5052 <NA> 724  <NA> 5066 5050
[131] 2316 5055 942  5028 5165 952  958  955  117  412  5053 5054 5058
[144] 5057 5115 5056 5060 1030 1418 1383 1308 1298 1299 1219 <NA> <NA>
[157] 1030 1418 1383 <NA> 1299 1308 1219 1456 5045 5044 5160 5043 5047
[170] c168 5068 c118 5042 5067 5049 c204 5070 c266 c203 5069 5073 5072
117 Levels: 1008 1011 1013 1014 1015 1016 1027 1028 1030 1032 ... c266

print> ## ordered factors: levels  "l1 < l2 < .."
print> esoph$agegp[1:12]
 [1] 25-34 25-34 25-34 25-34 25-34 25-34 25-34 25-34 25-34 25-34 25-34
[12] 25-34
Levels: 25-34 < 35-44 < 45-54 < 55-64 < 65-74 < 75+

print> esoph$alcgp[1:12]
 [1] 0-39g/day 0-39g/day 0-39g/day 0-39g/day 40-79     40-79    
 [7] 40-79     40-79     80-119    80-119    80-119    120+     
Levels: 0-39g/day < 40-79 < 80-119 < 120+

print> ## Printing of sparse (contingency) tables
print> set.seed(521)

print> t1 <- round(abs(rt(200, df = 1.8)))

print> t2 <- round(abs(rt(200, df = 1.4)))

print> table(t1, t2) # simple
    t2
t1    0  1  2  3  4  5  6  7  8 10 17 21 30
  0  21 22 14  4  1  0  1  1  1  0  1  0  0
  1  25 21  7  3  4  2  1  1  1  1  0  0  0
  2   8 16  9  2  0  0  0  0  0  0  0  1  1
  3   3  7  0  2  0  0  0  0  0  0  0  0  0
  4   1  5  2  0  0  0  1  0  0  0  0  0  0
  5   1  1  1  0  0  0  0  0  0  0  0  0  0
  6   1  3  0  0  0  0  0  0  0  0  0  0  0
  7   1  0  0  0  0  0  0  0  0  0  0  0  0
  9   0  0  0  1  0  0  0  0  0  0  0  0  0
  12  1  0  0  0  0  0  0  0  0  0  0  0  0

print> print(table(t1, t2), zero.print = ".") # nicer to read
    t2
t1    0  1  2  3  4  5  6  7  8 10 17 21 30
  0  21 22 14  4  1  .  1  1  1  .  1  .  .
  1  25 21  7  3  4  2  1  1  1  1  .  .  .
  2   8 16  9  2  .  .  .  .  .  .  .  1  1
  3   3  7  .  2  .  .  .  .  .  .  .  .  .
  4   1  5  2  .  .  .  1  .  .  .  .  .  .
  5   1  1  1  .  .  .  .  .  .  .  .  .  .
  6   1  3  .  .  .  .  .  .  .  .  .  .  .
  7   1  .  .  .  .  .  .  .  .  .  .  .  .
  9   .  .  .  1  .  .  .  .  .  .  .  .  .
  12  1  .  .  .  .  .  .  .  .  .  .  .  .

print> ## same for non-integer "table":
print> T <- table(t2,t1)

print> T <- T * (1+round(rlnorm(length(T)))/4)

print> print(T, zero.print = ".") # quite nicer,
    t1
t2       0     1     2     3     4     5     6     7     9    12
  0  26.25 25.00 10.00  3.75  1.50  1.25  1.25  1.00     .  2.00
  1  22.00 26.25 16.00 10.50 27.50  1.25  3.00     .     .     .
  2  21.00  7.00 13.50     .  3.00  1.25     .     .     .     .
  3   5.00  3.75  2.50  2.50     .     .     .     .  1.50     .
  4   1.25  5.00     .     .     .     .     .     .     .     .
  5      .  2.00     .     .     .     .     .     .     .     .
  6   1.25  1.50     .     .  1.25     .     .     .     .     .
  7   1.25  1.25     .     .     .     .     .     .     .     .
  8   1.50  1.00     .     .     .     .     .     .     .     .
  10     .  1.00     .     .     .     .     .     .     .     .
  17  1.00     .     .     .     .     .     .     .     .     .
  21     .     .  2.75     .     .     .     .     .     .     .
  30     .     .  5.00     .     .     .     .     .     .     .

print> print.table(T[,2:8] * 1e9, digits=3, zero.print = ".")
    t1
t2          1        2        3        4        5        6        7
  0  2.50e+10 1.00e+10 3.75e+09 1.50e+09 1.25e+09 1.25e+09 1.00e+09
  1  2.62e+10 1.60e+10 1.05e+10 2.75e+10 1.25e+09 3.00e+09        .
  2  7.00e+09 1.35e+10        . 3.00e+09 1.25e+09        .        .
  3  3.75e+09 2.50e+09 2.50e+09        .        .        .        .
  4  5.00e+09        .        .        .        .        .        .
  5  2.00e+09        .        .        .        .        .        .
  6  1.50e+09        .        . 1.25e+09        .        .        .
  7  1.25e+09        .        .        .        .        .        .
  8  1.00e+09        .        .        .        .        .        .
  10 1.00e+09        .        .        .        .        .        .
  17        .        .        .        .        .        .        .
  21        . 2.75e+09        .        .        .        .        .
  30        . 5.00e+09        .        .        .        .        .

print> ## still slightly inferior to  Matrix::Matrix(T)  for larger T
print> 
print> ## Corner cases with empty extents:
print> table(1, NA) # < table of extent 1 x 0 >
< table of extent 1 x 0 >

اگر به خود راهنمای تابع print مراجعه نمایید، این مثال (Example) را در آن مشاهده می کنید :

نمایش یک مثال (Example) ذکر شده در راهنمای (Help) یک تابع (Function) خاص (به همراه اجرای کد و نتایج)، در خروجی، با تابع example ، در زبان برنامه نویسی R (نسخه 3.4.2)

کد این مثال (Example) :

دسته بندی راهنما (Help)، در زبان برنامه نویسی R

نویسنده علیرضا گلمکانی

شماره کلید 26878

گزینه ها

به اشتراک گذاری (Share) در شبکه های اجتماعی

FaceBook Twitter Digg Reddit LinkedIn Pinterest StumbleUpon

نظرات 0 0 0

ارسال نظر جدید (بدون نیاز به عضو بودن در وب سایت)