fork download
copy 
  1. # Simulasi isi data dari file data2.txt
  2. isi_teks <- "75 90 35 51 50 56 35 80 70 80
  3. 68 29 58 66 89 81 86 70 94 67
  4. 35 47 67 87 37 30 66 58 59 55
  5. 67 76 80 78 60 90 69 80 76 87"
  6.  
  7. # Membaca data menggunakan fungsi scan lewat textConnection
  8. data_scan <- scan(textConnection(isi_teks))
  9.  
  10. # Membuat matriks berukuran 4x10
  11. matriks2 <- matrix(data_scan, nrow = 4, ncol = 10, byrow = TRUE)
  12.  
  13. # Menampilkan hasil matriks2
  14. print(matriks2)
  15.  
Success #stdin #stdout #stderr 0.23s 41092KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]   75   90   35   51   50   56   35   80   70    80
[2,]   68   29   58   66   89   81   86   70   94    67
[3,]   35   47   67   87   37   30   66   58   59    55
[4,]   67   76   80   78   60   90   69   80   76    87
stderr
copy 
Read 40 items
https://ideone.com/nhi50v
language:
R (R 3.5.2)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!