0% found this document useful (0 votes)
6 views

R Console Array

Notes - statistics with r - Delhi university- sec
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
6 views

R Console Array

Notes - statistics with r - Delhi university- sec
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 1

R version 4.3.

3 (2024-02-29) -- "Angel Food Cake"


Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: aarch64-apple-darwin20 (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.


You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

Natural language support but running in an English locale

R is a collaborative project with many contributors.


Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or


'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

[R.app GUI 1.80 (8340) aarch64-apple-darwin20]

[Workspace restored from /Users/samriddhisethi/.RData]


[History restored from /Users/samriddhisethi/.Rapp.history]

> vector1<-c(5,9,3)
> vector2<-c(10,11,12,13,14,15)
> result<-array(c(vector1,vector2),dim=c(3,3,2))
> print(result)
, , 1

[,1] [,2] [,3]


[1,] 5 10 13
[2,] 9 11 14
[3,] 3 12 15

, , 2

[,1] [,2] [,3]


[1,] 5 10 13
[2,] 9 11 14
[3,] 3 12 15

> column.names<-c("COL1","COL2","COL3")
> row.names<-("ROW1","ROW2","ROW3")
Error: unexpected ',' in "row.names<-("ROW1","
> row.names("ROW1","ROW2","ROW3")
Error in row.names("ROW1", "ROW2", "ROW3") :
unused arguments ("ROW2", "ROW3")
> row.names<-("ROW1","ROW2","ROW3")
Error: unexpected ',' in "row.names<-("ROW1","
> row.names<-("ROW1","ROW2","ROW3")
Error: unexpected ',' in "row.names<-("ROW1","
> row.names<-("ROW1""ROW2""ROW3")
Error: unexpected string constant in "row.names<-("ROW1""ROW2""
> row.names<-("ROW1" , "ROW2" , "ROW3")
Error: unexpected ',' in "row.names<-("ROW1" ,"
> row.names<-c("ROW1","ROW2","ROW3")
> matrix.names<-c("Matrix1","Matrix2")
> result<-array(c(vector1,vector2),dim=c(3,3,2),dimnames=list(row.names,column.names,matrix.names))
> print(result)
, , Matrix1

COL1 COL2 COL3


ROW1 5 10 13
ROW2 9 11 14
ROW3 3 12 15

, , Matrix2

COL1 COL2 COL3


ROW1 5 10 13
ROW2 9 11 14
ROW3 3 12 15

> print(result[3,2])
Error in result[3, 2] : incorrect number of dimensions
> print(result[3,,2])
COL1 COL2 COL3
3 12 15
> print(result[1,3,1])
[1] 13
> print(result[,,2])
COL1 COL2 COL3
ROW1 5 10 13
ROW2 9 11 14
ROW3 3 12 15
> vector3<-c(9,1,0)
> vector4<-c(6,0,11,3,14,1,2,6,9)
> array2<-array(c(vector3,vector4),dim=c(3,3,2))
> matrix1<-array1[,,2]
Error: object 'array1' not found
> matrix1<-result[,,2]
> matrix2<-array2[,,2]
> result1<-matrix1+matrix2
> print(result)
, , Matrix1

COL1 COL2 COL3


ROW1 5 10 13
ROW2 9 11 14
ROW3 3 12 15

, , Matrix2

COL1 COL2 COL3


ROW1 5 10 13
ROW2 9 11 14
ROW3 3 12 15

> result3<-apply(result,c(1),sum)
> print(result3)
ROW1 ROW2 ROW3
56 68 60
>

You might also like