Comparison of R and Z3

Simple manipulations; numbers and vectors

Vectors and assignment

Z3 operates on named data structures. The simplest such structure is the numeric vector, which is a single entity consisting of an ordered collection of numbers. 

To set up a vector named x, say, consisting of five numbers, namely 10.4, 5.6, 3.1, 6.4 and 21.7, use the R command

> x <- c(10.4, 5.6, 3.1, 6.4, 21.7)

Z3 command to set up a vector is:

x<==[10.4, 5.6, 3.1, 6.4, 21.7];

Alternatively we can use the simple "=" also.

 x=[10.4, 5.6, 3.1, 6.4, 21.7]

Assignment can also be made using the function ASSIGN(). An equivalent way of making the same assignment as above is with:

In R,

> assign("x", c(10.4, 5.6, 3.1, 6.4, 21.7))

In Z3, use the "ASSIGN" function as:

ASSIGN("x", [10.4, 5.6, 3.1, 6.4, 21.7])

Assignments can also be made in the other direction, using the obvious change in the assignment operator. So the same assignment could be made using

[10.4, 5.6, 3.1, 6.4, 21.7]==>x 

The reciprocals of the above five values for x in R,

> 1/x

In Z3, We can use the function called Reciprocal,

RECIPROCAL(x) (the value of x is [10.4, 5.6, 3.1, 6.4, 21.7] 

Also we can use directly,

([10.4,5.6,3.1,6.4,21.7]<>d40)@(x=>1/x)

The further assignment

> y <- c(x, 0, x)

would create a vector y with 11 entries consisting of two copies of x with a zero in the middle place.

Vector arithmetic

Vectors can be used in arithmetic expressions, in which case the operations are performed element by element. Vectors occurring in the same expression need not all be of the same length. If they are not, the value of the expression is a vector with the same length as the longest vector which occurs in the expression. So with the above assignments the R command

> v <- 2*x + y + 1

generates a new vector v of length 11 constructed by adding together, element by element, 2*x repeated 2.2 times, y repeated just once, and 1 repeated 11 times.

With the same Assignment Z3 command is.

v=2*x+y+1

In Z3 the elementary arithmetic operators are the usual +, -, *, / and ^ for raising to a power. Also we can use the functions SUM,SUB,PRODUCT,DIVIDE and POWER instead of using arithmetic operators.

In addition all of the common arithmetic functions are available. LOG, EXP, SQRT, SIN, COS, TAN, SEC,COSEC,COTAN, Hyperbolic functions and so on. For trignometric functions we can find the values in Deg and Radians also.

MAX and MIN select the largest and smallest elements of a vector respectively.

In R,two statistical functions are mean(x) which calculates the sample mean, which is the same as sum(x)/length(x), and var(x) which gives

sum((x-mean(x))^2)/(length(x)-1)

or sample variance.

In Z3,to find the mean value we can use function called MEAN(x), AVG(x) or AVERAGE(x).

In R, sort(x) returns a vector of the same size as x with the elements arranged in increasing order.

SORTING(x) returns the vector in increasing order in Z3.

The parallel maximum and minimum functions pmax and pmin return a vector that contains in each element the largest\smallest element in that position in any of the input vectors.

In Z3, we can apply any function for each cell,row and column.

Array.$(Function) - Apply any function to each element
Array.$$(Function) - Apply any function to each row
Array.$$(Function) - Apply any function to each column.

Also to find the parallel min and max we can use the below function in Z3.

PMAX(MS(15))
PMIN(MS(15))
PMAX(MS(15),SUM) - This can be used to override MIN and MAX with another function 
PMIN(MS(15),SUM)

To work with complex numbers, supply an explicit complex part. Thus sqrt(-17) will give NaN and a warning, but sqrt(-17+0i) will do the computations as complex numbers in R.

In Z3, while computing complex numbers simply we can use as

SQRT(-17) or SQRT(-17+0i).

Generating regular sequences

The function seq() is a more general facility for generating sequences. To get the sequence of values from a particular range with step value with R as

 > seq(-5, 5, by=.2) -> s3

generates in s3 the vector c(-5.0, -4.8, -4.6, ..., 4.6, 4.8, 5.0).

Similarly

 > s4 <- seq(length=51, from=-5, by=.2)

generates the same vector in s4.

Z3 command to get a sequence value as:

s3=-5..5..0.2

generates in s3 vector.

s4=Array(51).seq(-5,0.2)

generates s4 vector with same as s3.

To print the five copies of x end-to-end in s5 the R command is

 > s5 <- rep(x, times=5)

Alternatively

 > s6 <- rep(x, each=5)

which repeats each element of x five times before moving on to the next.

The z3 command of replicating the array value is:

s5=x.replicate(5)

The another way is:

s6=RECURSIVEARRAY(5,x)

Logical vectors

The elements of a logical vector can have the values TRUE, FALSE, and NA. Logical vectors are generated by conditions.

For example

> temp <- x > 13 sets temp as a vector of the same length as x with values FALSE corresponding to elements of x where the condition is not met and TRUE where it is.

Z3 command to generate the logical vector is:

[10.4,5.6,3.1,6.4,21.7]|[x,x>13]|; 

Logical vectors may be used in ordinary arithmetic, in which case they are coerced into numeric vectors, FALSE becoming 0 and TRUE becoming 1.

Missing values

The function is.na(x) gives a logical vector of the same size as x with value TRUE if and only if the corresponding element in x is NA.

> z <- c(1:3,NA); ind <- is.na(z)

Z3 command for ISNA is:

z=([1,2,3,"NA"]);ISNA(z)

There is a second kind of “missing” values which are produced by numerical computation, the so-called Not a Number, NaN, values. In R, examples are

> 0/0

or

> Inf - Inf which both give NaN since the result cannot be defined sensibly.

In z3,

0/0 will give the result as NaN.
∞-∞; \\Symbol of Infinity

will give the result as Null.

Character vectors

Character quantities and character vectors are used frequently in R, for example as plot labels. The paste() function takes an arbitrary number of arguments and concatenates them one by one into character strings.

The arguments are by default separated in the result by a single blank character, but this can be changed by the named parameter, sep=string, which changes it to string, possibly empty.

For example In R,

> labs <- paste(c("X","Y"), 1:10, sep="")

makes labs into the character vector

c("X1", "Y2", "X3", "Y4", "X5", "Y6", "X7", "Y8", "X9", "Y10")

Z3 command to execute the above is:

|10|.fillwith("x","y").joincolumnswith(1..10)  //need to add " " symbol in its result

Index vectors; selecting and modifying subsets of a data set

Subsets of the elements of a vector may be selected by appending to the name of the vector an index vector in square brackets. Such index vectors can be any of four distinct types.

  • A logical vector:

Values corresponding to TRUE in the index vector are selected and those corresponding to FALSE are omitted. For example > y <- x[!is.na(x)] creates (or re-creates) an object y which will contain the non-missing values of x, in the same order. Note that if x has missing values, y will be shorter than x. Also > (x+1)[(!is.na(x)) & x>0] -> z

Corresponding z3 command is:

y = x(!=ISNA(x))

To create z is:

z=(x+1)[(!ISNA(x)) & x>0]  

Also we can use the symbol in Z3 for the above function is != For Example

1..10|!=|1..130 - Will give the result as true or false.       


  • A vector of positive integral quantities:

The corresponding elements of the vector are selected and concatenated, in that order, in the result. In R, x[6] is the sixth component of x and

> x[1:10]

The same in Z3 command is:

 x.any(10)  //Need to check
 

selects the first 10 elements of x (assuming length(x) is not less than 10). Also

> c("x","y")[rep(c(1,2,2,1), times=4)]
  • A vector of negative integral quantities:

Such an index vector specifies the values to be excluded rather than included. Thus

> y <- x[-(1:5)]

gives y all but the first five elements of x. \\it is not showing the first five elements of x. It is just showing the result as numeric(0)

Z3 command to index vector specification is:

                                                      // To include
  • A vector of character strings:

In this case a sub-vector of the names vector may be used in the same way as the positive integral labels in item 2 further above.

> fruit <- c(5, 10, 1, 20)
> names(fruit) <- c("orange", "banana", "apple", "peach")
> lunch <- fruit[c("apple","orange")]

The advantage is that alphanumeric names are often easier to remember than numeric indices.

The same in Z3 command is:

fruit=[5, 10, 1, 20]
["names"]<<<"orange", "banana", "apple", "peach"    //Here names(fruit) is not giving result
["lunch"] <<<fruit[("apple","orange")]   // Giving the result as null

The vector assigned must match the length of the index vector, and in the case of a logical index vector it must again be the same length as the vector it is indexing.

For example In R

> x[is.na(x)] <- 0

replaces any missing values in x by zeros and

> y[y < 0] <- -y[y < 0]

has the same effect as

> y <- abs(y)

We can write in Z3,

 x[ISNA(x)] = 0

Replacing values in x is:

y[y < 0] = -y[y < 0]

Also we can write as,

y = ABS(y)

Objects, their modes and attributes

Intrinsic attributes: mode and length

R consists of a number of data objects to perform various functions. There are 6 types of objects in R Programming. They include vector, list, matrix, array, factor, and data frame.

Vectors in R programming data objects: logical, integer, character, raw, double, and complex.

Z3 language also supports data objects: logical, integer, character, raw, double, and complex.


Lists in R contain various types of elements including strings, numbers, vectors, and a nested list inside it. It can also consist of matrices or functions as elements. It can be created with the help of the list() function.

Z3 stores all the data in array format. The data can be strings, numbers, vectors, matrices or functions as elements.

List of elements can be displayed using Z3 command LISTALL.


Matrices in R Programming are used to arrange elements in the two-dimensional layout to perform mathematical operations.

Matrices in Z3 can be of any dimensions. A matrix can be defined in many ways such as:

MATRIX(3)     //Displays 3x3 matrix

or

MATRIX("anti-diagonal",4,200..204)  //Displays 4x4 anti-diagonal matrix with values in between 200 and 204

or

|5|   //Displays 5x5 matrix

or

|2,3,4|   //Displays 2x3x4 matrix


An array in R is used to store data in multi-dimensional format. It can be created with the help of an array() function.

Z3 has n number of commands for using array functions such as:

ARRAY(3,4)    //Defines a 3-dimensional array with each element value of 4
a=[[1,3,4],[2,3,4]]		//Defines an array 'a'
a.add(45)			//Adds 45 in each array element

Row, Column, Diagonal, concatination etc operations are possible using Z3 commands.

Refer list of Array Manipulation Functions here: [| Array Manipulation Member Functions]


Factors are data objects that are used in order to categorize and store data as levels. They can be strings or integers. They are extremely useful in data analytics for statistical modeling. They can be created using factor() function.

Factors can be identified or retrieved in Z3 by giving variable name as a command.

a=[[11,3,4],[21,3,4]]		//Defines array 'a'
a				//Displays elements of array 'a'

Dataframe is a 2-dimensional data structure wherein each column consists of the value of one variable and each row consists of a value set from each column.

....to do ***.............Need to add Z3 explanation for this.


Properties of an object are provided by attributes such as mode, length. In R, change of mode is represented as:

> z <- 0:9	//z is defined with elements 0 to 9
> digits <- as.character(z)   // digits is the character vector c("0", "1", "2", ..., "9")
> d <- as.integer(digits)	//Now d and z are the same

In Z3, the above mode change can be represented as:

z=[0..9]
digits=CHAR(z)
d= INT(digits)

Changing the length of an object

In R language, an “empty” object can be defined as:

> e <- numeric()	 //makes e an empty vector structure of mode numeric. 
> e <- character()	 //makes e an empty vector structure of mode character.

Using below Z3 command, an empty object can be defined as:

e=NUM()
e=CHAR()

Once an object of any size has been created, new components may be added to it simply by giving it an index value outside its previous range.

In R,

> e[3] <- 17	//makes e a vector of length 3

Z3 command is:

e[3]=17	//length of e vector is 3 

In R, the length of a vector can be retrieved by R command:

>length(e)

Z3 command used is:

LEN(e)     //displays output as 3

Getting an setting attributes

R command:

attr(z, "dim") <- c(10,10)

Z3 command:

 to do *** 

The class of an object

Object in R with class "data.frame", plot() and other functions such as summary() will display the output values in certain ways. Using Z3, the data output values can be displayed in list format, spreadsheet format, graphical format etc.

In R, unclass() removes temporarily the effects of class. For example if winter has the class "data.frame" then

> winter

will print it in data frame form, which is rather like a matrix, whereas

> unclass(winter)

will print it as an ordinary list.


In Z3,

' to do *** '

Ordered and unordered factors

A factor is a vector object used to specify a discrete classification (grouping) of the components of other vectors of the same length.

A specific example

A sample of 30 tax accountants from all the states and territories of Australia and their individual state of origin is specified by a character vector of state mnemonics:

In R,

> state <- c("tas", "sa", "qld", "nsw", "nsw", "nt", "wa", "wa",
"qld", "vic", "nsw", "vic", "qld", "qld", "sa", "tas",
"sa", "nt", "wa", "vic", "qld", "nsw", "nsw", "wa",
"sa", "act", "nsw", "vic", "vic", "act")

In R, a factor is similarly created using the factor() function as:

> statef <- factor(state)

In R, the print() function handles factors slightly differently from other objects:

> statef

Output in R,

[1] tas sa qld nsw nsw nt wa wa qld vic nsw vic qld qld sa
[16] tas sa nt wa vic qld nsw nsw wa sa act nsw vic vic act
Levels: act nsw nt qld sa tas vic wa

In R, to find out the levels of a factor the function levels() can be used.

> levels(statef)

Output in R,

[1] "act" "nsw" "nt" "qld" "sa" "tas" "vic" "wa"

...' to do ***'....Z3 equivalent commands to be added

The function tapply() and ragged arrays

To continue the previous example, suppose we have the incomes of the same tax accountants in another vector (in suitably large units of money)

> incomes <- c(60, 49, 40, 61, 64, 60, 59, 54, 62, 69, 70, 42, 56,
61, 61, 61, 58, 51, 48, 65, 49, 49, 41, 48, 52, 46,
59, 46, 58, 43)

To calculate the sample mean income for each state, tapply() function is used in R:

> incmeans <- tapply(incomes, statef, mean)
giving a means vector with the components labelled by the levels
act nsw nt qld sa tas vic wa
44.500 57.333 55.500 53.600 55.000 60.500 56.000 52.250

Sample variance is calculated in R as:

> stderr <- function(x) sqrt(var(x)/length(x))

Standard errors in R are calculated as:

> incster <- tapply(incomes, statef, stderr)

and the values calculated are then

> incster
act nsw nt qld sa tas vic wa
1.5 4.3102 4.5 4.1061 2.7386 0.5 5.244 2.6575

The combination of a vector and a labelling factor is an example of what is sometimes called a ragged array, since the subclass sizes are possibly irregular.

...' to do ***'....Z3 equivalent commands to be added


Ordered factors

The levels of factors are stored in alphabetical order, or in the order they were specified to factor if they were specified explicitly. Sometimes the levels will have a natural ordering that we want to record and want our statistical analysis to make use of. The ordered() function creates such ordered factors but is otherwise identical to factor.

...' to do ***'....Z3 explanation to be added here

Arrays and Matrices

Arrays

In R, a 3 by 5 by 100 dimension vector z of 1500 elements is defined as:

> dim(z) <- c(3,5,100)

In Z3, command to define an array is:

DIM(3,5,100)

Alternatively it can also be represented in array form as:

|3,5,100|

Array indexing. Subsections of an array

In R, a 4 x 2 array with array elements is represented as:

c(a[2,1,1], a[2,2,1], a[2,3,1], a[2,4,1],
a[2,1,2], a[2,2,2], a[2,3,2], a[2,4,2])

In Z3, the above 4 X 2 array with array elements is defined using square brackets as:

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

The above array can be stored with a variable name 'Z' as:

z = [[2,1,1], [2,2,1], [2,3,1], [2,4,1], [2,1,2], [2,2,2], [2,3,2], [2,4,2]]

The contents of variable Z can be obtained using Z3 command:

DIM(z)

Also, to identify the size of 'z', use the Z3 command:

DIMENSIONS(z) 

which gives the result as: 8 3 (8 rows, 3 columns)

Index matrices

In R, a matrix 'x' with 4 rows and 5 colums containing values from 1 to 20, is defined as:

> x <- array(1:20, dim=c(4,5))

This command displays the result as:

    [,1] [,2] [,3] [,4] [,5]
   
[1,] 1    5    9    13   17
[2,] 2    6   10    14   18
[3,] 3    7   11    15   19
[4,] 4    8   12    16   20


The Z3 command can be used as:

x= |4,5,1..20|

In Z3, the array elements are stored row wise.

1	2	3	4	5
6	7	8	9	10
11	12	13	14	15
16	17	18	19	20
' to do *** ' : Z3 command to be added to obtain same output as in R

Array function

Array function in R:

> Z <- array(data_vector, dim_vector)

For example

> Z <- array(h, dim=c(3,4,2))
same as
> Z <- h ; dim(Z) <- c(3,4,2)
> Z <- array(0, c(3,4,2))  //makes Z an array of all zeros.

Z3 Commands used are:

z=[3,4,2]   //Defines an array z with elements specified
REPLACE(z,0)  //Replaces elements in z with '0'


So if A, B and C are all similar arrays, then D is a similar array with its data vector being the result of the given element-by-element operations.

R command:

> D <- 2*A*B + C + 1

Z3 command:

d= 2*a*b+c+1

The outer product of two arrays

In R language, if a and b are two numeric arrays, their outer product is formed by the special operator %o%:

> ab <- a %o% b
or also alternatively,
> ab <- outer(a, b, "*")

In Z3, array can be multiplied using inbuilt '.multiply' function. e.g

[[1,3,4],[2,3,4]].multiply(45)

Multiplication of two or more matrices can be carried using Z3 commands:

MATRIXMULTIPLY([2,-3,4;-5,6,7],9)
or
MATRIXPRODUCT([2,3,4;5,6,7],5)
or
MATRIXPRODUCT([[6,7,8],[10,12,-22],[7,17,23]],[[20,12,16],[7,8,13],[4,8,9]])


In R, the multiplication function can be replaced by an arbitrary function of two variables as:

> f <- function(x, y) cos(y)/(1 + x^2)
> z <- outer(x, y, f)

In Z3, the above function can be defined as:

f(x,y)=COS(y)/(1+x^2)
...' to do *** '............


Refer all array manipulation functions here: Listing of Z3 Array Manipulation Member Functions


Generalized transpose of an array

In R language, transpose of an array can be calculated using aperm() or t() functions as:

> B <- aperm(A, c(2,1))
or
B <- t(A)

In Z3 language, transpose can be calculated using commands array.flip(),t(), MATRIXTRANSPOSE() functions as:

[[1,8,3],[7,4,5],[9,13,45]].flip()
or
MAGICSQUARE(3).t()
or
MATRIXTRANSPOSE([[12,17,18],[6,15,36],[13,19,25]])

Matrix facilities

R has matrix functions such as:

t(X) is the matrix transpose
nrow(A) gives number of rows in the matrix A
ncol(A) give the number of columns in the matrix A

Z3 has number of matrix functions such as:

MATRIXTRANSPOSE()  returns transpose of a matrix
MATRIXROW          returns specified row elements
MATRIXCOLUMN       returns specified column elements

To know more matrix functions, read here: [| Matrix Functions 1] [| Matrix Functions 2]


Matrix multiplication

In R, the operator %*% is used for matrix multiplication. If, for example, A and B are square matrices of the same size, then

> A * B is the matrix of element by element products and
> A %*% B is the matrix product.
 If x is a vector, then > x %*% A %*% x is a quadratic form

In Z3, functions such as MATRIXMULTIPLY() or MMULT() are used for matrix multiplication

e.g 1 MATRIXMULTIPLY([4,7.2,6;9,-8,12],[2,3;6,5;9,8])
e.g 2 MMULT([[2.5,4,3,7],[1,3,5,4]],[[2,5,6],[7.3,4,9],[10,4,1],[6,2,8]])


Function crossprod() in R language forms crossproducts of two matrices.

In R,

x<- matrix(1:4,2,2)
crossprod(x)

displays the output as:

       [,1] [,2]
 [1,]    5   11
 [2,]   11   25

In Z3, functions such as CROSSPRODUCT() and VECTORPRODUCT() are used.

CROSSPRODUCT([2,7,8],[3,9,5]) =-37 14 -3
or
VECTORPRODUCT([2,3,5],[8,6,4]) = -18 32 -12


IN R, diag(v) displays diagonal elements of vector v.

x <- matrix(1:4, 2, 2)
diag(x)

displays the output as:

[1] 1 4

In Z3, DIAG() function is used to display diagonal elements as:

DIAG([[1,2],[3,4]]) displays result as 1,4
DIAG([[21,43,-56],[1,-6,-15],[2,3.2,8]]) displays result as 21, -6, 8

Linear equations and inversion

In R, solving linear equations is the inverse of matrix multiplication.

> b <- A %*% x

If only A and b are given, the vector x is the solution of that linear equation system. In R,

> solve(A,b)

solves the system, returning x (up to some accuracy loss). Note that in linear algebra, formally x = A−1b where A−1 denotes the inverse of A, which can be computed by solve(A)

x <- solve(A) %*% b

or

>solve(A,b)

The quadratic form x can be calculated as:

x %*% solve(A,x)

In Z3, if a ,b and r are real numbers also a and b are not equal to 0,then ax+by=r is called a linear equation in two variables. Function LINEAREQUATION() can be used directly to find linear equation between two variables.

e.g LINEAREQUATION([[1,1,5],[1,-1,3]]) = 4 1

In Z3, the inverse of a matrix can be calculated using MINVERSE() or MATRIXINVERSE() functions.

MINVERSE([[10,12],[11,14]])

or

MATRIXINVERSE([4,7;2,6])

Eigenvalues and eigenvectors

In R, the function eigen(Sm) calculates the eigenvalues and eigenvectors of a symmetric matrix Sm.

> ev <- eigen(Sm) 

will assign this list to ev. Then ev$val is the vector of eigenvalues of Sm and ev$vec is the matrix of corresponding eigenvectors.

In Z3, eigen values of a given matrix is calculated as:

Spreadsheet
A B C
1 3 7 5
2 10 12 8
3 6 8 14

=EIGENVALUES(A1:C3)

-2.018987498930866
25.303239119591886 
5.715748379338994
-0.8195524172935329 0.3557792393359474 0.2128903683040517 
0.5726193656991498 0.663334322125492 0.6212592923173481
 0.02099755544415341 0.6583378387635402 -0.7541316747045657 


Singular value decomposition and determinants

In R, the function svd(M) takes an arbitrary matrix argument, M, and calculates the singular value decomposition of M. This consists of a matrix of orthonormal columns U with the same column space as M, a second matrix of orthonormal columns V whose column space is the row space of M and a diagonal matrix of positive entries D such that

M = U %*% D %*% t(V)

D is actually returned as a vector of the diagonal elements.

For square matrix,

> absdetM <- prod(svd(M)$d)

calculates the absolute value of the determinant of M.

In Z3, there are multiple inbuilt functions such as SVF(), SVD(), QRDECOMPOSTION(), LUDECOMPOSITION(), MATRIXDECOMPOSE() etc. to calculate decomposition values of given matrix. e.g

Spreadsheet
A B C
1 1 0 1
2 -1 -2 0
3 0 1 -1

=SVD(A1:C3)

0.12000026038175768 -0.8097122815927454 -0.5744266346072238
-0.9017526469088556 0.15312282248412068 -0.40422217285469236
0.41526148545366265 0.5664975042066532 -0.7117854145923829
2.4605048700187635  0  0
0  1.699628148275319  0
0  0  0.23912327825655444
0.4152614854539272 -0.566497504206459 -0.711854145923831
0.9017526469087841 0.15312282248454143 0.4042221728546923
-0.12000026038137995 -0.8097122815928015 0.5744266346072238


For more information on decomposition functions, read here:


Least squares fitting and the QR decomposition

In R, the function lsfit() returns a list giving results of a least squares fitting procedure. An assignment such as

> ans <- lsfit(X, y)

gives the results of a least squares fit where y is the vector of observations and X is the design matrix.


In Z3, REGRESSIONANALYSIS() function calculates the Regression analysis of the given data.

  • This analysis is very useful for analysing large amounts of data and making predictions.
  • This analysis give the result in three table values.
  1. Regression statistics table.
  2. ANOVA table.
  3. Residual output.
Spreadsheet
A B
1 Temperature Drying Time(Hrs)
2 54 8
3 63 6
4 75 3
5 82 1
=REGRESSIONANALYSIS(A2:A5,B2:B5)

REGRESSION ANALYSIS OUTPUT

Summary Output
Regression Statistics
Multiple R -0.9989241524588298
R Square 0.9978494623655915
v14193 0.9967741935483871
v15308 0.7071067811865362
ANOVA
Source of Variation Sum Of Squares Degree Of Freedom Mean Of Squares F Significance F
Regression: 464 1 464 928 0.0010758475411702228
Residual: 1 2 0.5
Total: 465 3
ANOVA
Coefficients Standard Error T Statistics Probability Lower 95% Upper 95%
Intercept: 86.5 0.6885767430246738 125.62143708199632 0.00006336233990811291 83.53729339698289 89.46270660301711
X Variable -4 0.13130643285972046 -30.463092423456118 0.0010758475411701829 -4.564965981777541 -3.435034018222459
Residual Output
Observation Predicted Y Residuals Standard Residuals
1 54.5 -0.5 -0.8660254037844387
2 62.5 0.5 0.8660254037844387
3 74.5 0.5 0.8660254037844387
4 82.5 -0.5 -0.8660254037844387


' to do *** '-------------------need to confirm if Z3 command REGRESSIONANALYSIS relates to lsfit .


In R, another closely related function is qr() and its allies. Consider the following assignments

> Xplus <- qr(X)
> b <- qr.coef(Xplus, y)
> fit <- qr.fitted(Xplus, y)
> res <- qr.resid(Xplus, y)

These compute the orthogonal projection of y onto the range of X in fit, the projection onto the orthogonal complement in res and the coefficient vector for the projection in b.


In Z3, QRDECOMPOSITION() calculates the product of orthogonal matrix and upper triangular matrix.

Spreadsheet
A B
1 2 6
2 10 -15

=QRDECOMPOSITION(A1:B2)

 -0.19611613513818393   -0.9805806756909202
-0.9805806756909202	0.19611613513818393
-10.19803902718557	 13.5320133245347
-1.1102230246251565e-15	 -8.825226081218279

Forming partitioned matrices

Matrices can be built up from other vectors and matrices by the functions cbind() and rbind(). Roughly cbind() forms matrices by binding together matrices horizontally, or column-wise, and rbind() vertically, or row-wise.

In R language, cbind() and rbind() are used as below:

> X <- cbind(arg_1, arg_2, arg_3, ...)

The function rbind() does the corresponding operation for rows.


Z3 has inbuilt functions such as MATRIXJOIN(), MATRIXAPPENDROWS(), MATRIXAPPENDCOLUMNS() which can be used to append/bind the columns/rows in a single matrix. e.g

MATRIXJOIN([2,7,6;4,5,6],[3,5,4;9,6,1])

or

MATRIXAPPENDCOLUMNS([2,3,4;7,8,9;10,2,4],[4,6,9;20,22,43;17,13,19])

or

MATRIXAPPENDROWS([2,3;4,5],[8,7;9,3])

Suppose X1 and X2 have the same number of rows. These can be combined by columns into a matrix X, together with an initial column of 1s as:

R command:

> X <- cbind(1, X1, X2)

Z3 command:

x= MATRIXAPPENDROWS([1;1],[2,3;4,5],[8,7;9,3])

The concatenation function c() with arrays

R language uses the following command to coerce an array back to a simple vector object:

> vec <- as.vector(X)

or

> vec <- c(X)

In Z3, merge(), mergerows(), mergecolumns(), mergeio(), Array.x$, Array.$x are various inbuilt functions to concatenate elements with a given array.

1. merge() function facilitates the user to merge two array values using a function, such as SUM, CONCAT, etc...

c = a.merge(SomeOtherArray, SomeFunction) 
For example:
a = [1,2,3];
b = [4,5,6];
c = a.merge(b,SUM)

Output:

   c = [5,7,9]


2. mergeio() merges the input that created an array such as (1..N) for a given function and outputs it into an array. So, the .input of the last calculation is appended with the output of the last calculation that caused the array. c = a.mergeio()

For example:
a = 1..10..2@SIN;
c = a.mergeio()

Output:

c = 
    1	0.8414709848078965
    3	0.1411200080598672
    5	-0.9589242746631385
    7	0.6569865987187891
    9	0.4121184852417566 


Please refer Z3 Array functions:

Frequency tables from factors

In R, for example, suppose that statef is a factor giving the state code for each entry in a data vector.

R command:

> statefr <- table(statef)

gives in statefr a table of frequencies of each state in the sample.

Further suppose that incomef is a factor giving a suitably defined “income class” for each entry in the data vector, for example with the cut() function: In R,

> factor(cut(incomes, breaks = 35+10*(0:7))) -> incomef

Then to calculate a two-way table of frequencies:

> table(incomef,statef)


' to do *** '-------------------need to add Z3 equivalent command

Lists and data frames

Lists

An R list is an object consisting of an ordered collection of objects known as its components.

An Example to make a list is:

> Lst <- list(name="Fred", wife="Mary", no.children=3,child.ages=c(4,7,9))

An Example in Z3 is:

Lst=[name="Fred",wife="Mary",NoofChildren=3,Childages=[4,7,9]];

To know the number of component it has in R, length(Lst)

Lst.length gives the number of component in Z3.

Components of lists may also be named,

> name$component_name 
    • To do for Z3

Simple Example to get the right component in R:

Lst$name is the same as Lst1 and is the string "Fred"
Lst$wife is the same as Lst2 and is the string "Mary"
Lst$child.ages[1] is the same as Lst4[1] and is the number 4

Also

Lst"name" is the same as Lst$name.

The same result will get in Z3,

name or Lst0 
wife or Lst1
Childages or Lst3 and the result as 4,7,9

Also we can use,

name@Lst           //To check this format result

When the name of the component to be extracted is stored in another variable in R as, > x <- "name"; Lstx

In Z3,

x=["name"];x@Lst;

The names of components may be abbreviated down to the minimum number of letters needed to identify them uniquely. Thus Lst$coefficients may be minimally specified as Lst$coe and Lst$covariance as Lst$cov.

In Z3, we can use the COVAR@Lst instead of COVARIANCE@Lst.

Constructing and modifying lists

New lists may be formed from existing objects by the function list(). An assignment of the form

> Lst <- list(name_1=object_1, ..., name_m=object_m)    \\not giving any result in R
    • To do the same in Z3.

Lists, like any subscripted object, can be extended by specifying additional components.

For example

> Lst[5] <- list(matrix=Mat)  \\Not giving any result 
    • To do in Z3.

Concatenating lists

We can joined together all arguments into a single vector structure using concatenate in R.

> list.ABC <- c(list.A, list.B, list.C)

In Z3,we can use concatenate function in two ways:

 CONCATENATE("Happy"," ","Holidays!")

or

 CONCAT("Happy"," ","Holidays!")

To know more on Array concatenate functions in: [|Array-Concatenate]

Making data frames

A list whose components conform to the restrictions of a data frame may be coerced into a data frame using the function as.data.frame()

> accountants <- data.frame(home=statef, loot=incomes, shot=incomef)    \\Not giving any result
**To do the same in Z3.

attach() and detach()

To attach a database as a list or data frame as its argument we can use the function called attach() in R Thus suppose lentils is a data frame with three variables lentils$u, lentils$v,lentils$w.

> attach(lentils)
    • To do in Z3.

Attaching arbitrary lists

Any object of mode "list" may be attached in R as,

> attach(any.old.list)
      • Z3 command to include

Managing the search path

The way to keep a track of data frames and lists are attached in R as,

> search()
[1] ".GlobalEnv" "Autoloads" "package:base"

Also to detach the data frame and confirm it has been removed from the search path.

> detach("lentils")
> search()
[1] ".GlobalEnv" "Autoloads" "package:base"
      • To do the equivalent in Z3.

Reading data from files

The read.table() function

To read the data frame directly in R use the read.table() function.

For Example in R,

> HousePrice <- read.table("houses.data")

To omit including the row labels directly and use the default labels. The data frame may then be read as

> HousePrice <- read.table("houses.data", header=TRUE)
      • To do in Z3

The scan() function

The scan() function to read in the three vectors as a list, as follows in R

> inp <- scan("input.dat", list("",0,0))

To separate the data items into three separate vectors, use assignments like

> label <- inp1; x <- inp2; y <- inp3

If the second argument is a single value and not a list, a single vector is read in, all components of which must be of the same mode as the dummy value.

> X <- matrix(scan("light.dat", 0), ncol=5, byrow=TRUE)
      • to do in Z3

Accessing builtin datasets

List of datasets in R,

data()

As from R version 2.0.0 all the datasets supplied with R are available directly by name.

    • To do in Z3.

Loading data from other R packages

To access data from a particular package, use the package argument, for example in R,

data(package="rpart")
data(Puromycin, package="datasets")
    • To do in Z3.

Probability distributions

R as a set of statistical tables

The below are list of distributions and its name in R and Z3.

Distribution R Name Z3 Name
beta beta BETADIST
binomial binom BINOMDIST
Cauchy cauchy
chi-squared chisq CHIDIST
exponential exp EXP
F f FDIST
gamma gamma GAMMADIST
geometric geom
hypergeometric hyper HYPGEOMDIST
log-normal lnorm LOGNORMDIST
logistic logis
negative binomial nbinom NEGBINOMDIST
normal norm NORMALDISTRIBUTED
Poisson pois POISSONDISTRIBUTED
signed rank signrank SIGNTEST
Student’s t t TDIST
uniform unif UNIFORMDISTRIBUTED
Weibull weibull WEIBULL
Wilcoxon wilcox WILCOXONSIGNEDRANKTEST

Further distributions are available in contributed packages, notably SuppDists.

Here are some examples in R:

> ## 2-tailed p-value for t distribution
> 2*pt(-2.43, df = 13)
> ## upper 1% point for an F(2, 7) distribution
> qf(0.01, 2, 7, lower.tail = FALSE)

In Z3,there are more distributions are available:

For Example:

BERNOULLI DISTRIBUTION

BERNOULLIDISTRIBUTED(5,0.5)

Exponential Distribution

EXPONDIST(0.5,5,TRUE)

Examining the distribution of a set of data

Two slightly different summaries are given by summary and fivenum and a display of the numbers by stem (a “stem and leaf” plot).

> attach(faithful)
> summary(eruptions)
Min. 1st Qu. Median Mean 3rd Qu. Max.
1.600 2.163 4.000 3.488 4.454 5.100
> fivenum(eruptions)
[1] 1.6000 2.1585 4.0000 4.4585 5.1000
> stem(eruptions)

In Z3, A stem-and-leaf diagram, also called a stem-and-leaf plot, is a diagram that quickly summarizes data while maintaining the individual data points.

STEMANDLEAFPLOT([15,16,21,23,23,26,26,30,32,41])

A stem-and-leaf plot is like a histogram, and R has a function hist to plot histograms.

> hist(eruptions)
    • make the bins smaller, make a plot of density
> hist(eruptions, seq(1.6, 5.2, 0.2), prob=TRUE)
> lines(density(eruptions, bw=0.1))
> rug(eruptions) # show the actual data points

Z3 will show the Histogram value along with its chart.

HISTOGRAM([1,7,12,17,20,37,50],[10,20,30,40,50],TRUE,TRUE,TRUE,TRUE) 

shows the bin, frequency, cumulative and its chart.

R will show empirical cumulative distribution function by using the function ecdf.

> plot(ecdf(eruptions), do.points=FALSE, verticals=TRUE)

To fit a normal distribution and overlay the fitted CDF. In R

> long <- eruptions[eruptions > 3]
> plot(ecdf(long), do.points=FALSE, verticals=TRUE)
> x <- seq(3, 5.4, 0.01)
> lines(x, pnorm(x, mean=mean(long), sd=sqrt(var(long))), lty=3)
      • To do in Z3.

A normal distribution shows a reasonable fit but a shorter right tail in R as

par(pty="s") # arrange for a square figure region
qqnorm(long); qqline(long)

To show the longer tail:

x <- rt(250, df = 5)
qqnorm(x); qqline(x)
      • To do in Z3

To make a Q-Q plot against the generating distribution in R:

qqplot(qt(ppoints(250), df = 5), x, xlab = "Q-Q plot for t dsn")
qqline(x)
      • To do in Z3

Shapiro-Wilk normality test

R Provides Shapiro-Wilk normality test:

> shapiro.test(long)
Shapiro-Wilk normality test
data: long
W = 0.9793, p-value = 0.01052
      • To add in Z3

Kolmogorov-Smirnov test

R also provides One sample Kolmogorov-Smirnov test:

> ks.test(long, "pnorm", mean = mean(long), sd = sqrt(var(long)))
One-sample Kolmogorov-Smirnov test
data: long
D = 0.0661, p-value = 0.4284
alternative hypothesis: two.sided

Z3 provides Kolmogorov-Smirnov test as indicated below:

KSTESTCORE(XRange,ObservedFrequency,Confidence,	NewTableFlag,Test,DoMidPointOfIntervals)

This test can be modified to serve as a goodness of fit test. We can get the more detailed in [| Kolmogorov-Smirnov test]

One and two-sample tests

In R, all “classical” tests including the ones used below are in package stats which is normally loaded.

Consider the following sets of data on the latent heat of the fusion of ice (cal/gm) from Rice (1995, p.490)

Method A: 79.98 80.04 80.02 80.04 80.03 80.03 80.04 79.97 80.05 80.03 80.02 80.00 80.02

Method B: 80.02 79.94 79.98 79.97 79.97 80.03 79.95 79.97

Boxplots provide a simple graphical comparison of the two samples.

A <- scan()
79.98 80.04 80.02 80.04 80.03 80.03 80.04 79.97
80.05 80.03 80.02 80.00 80.02
B <- scan()
80.02 79.94 79.98 79.97 79.97 80.03 79.95 79.97
boxplot(A, B)

To compare the two Samples in Graphically in Z3 we can use BOXPLOT as

 BOXPLOT(Array1,Array2)


T-Test

To test for the equality of the means of the two examples, we can use an unpaired t-test by

> t.test(A, B)

Welch Two Sample t-test

data: A and B
t = 3.2499, df = 12.027, p-value = 0.00694

alternative hypothesis: true difference in means is not equal to 0

Z3 determines whether a samples means are distinct using Ttest.

TTESTPAIRED(Array1,Array2,HypothesizedMeanDifference,Alpha,NewTableFlag)

Here t statistic of this function calculated by using the values of average, standard deviation and a constant.

TTest paired will provide the result with the table values of Mean, Variance, Observations, Pearson Correlation, Hypothesized mean difference, Degree of Freedom, T Statistics, P(T<=t) One-Tail, T Critical One-tail, P(T<=t) Two-Tail, and T Critical Two-Tail.

Wilcoxon-Mann-Whitney Test

R supports the two sample test only assumes a common continuous distribution under the null hypothesis.

> wilcox.test(A, B)
Wilcoxon rank sum test with continuity correction
data: A and B
W = 89, p-value = 0.007497

alternative hypothesis: true location shift is not equal to 0

Z3 supports the Wilcoxon test with one tailed and Two tailed test

WILCOXONSIGNEDRANKTEST (Observations1,Observations2,ConfidenceLevel,Side,NewTableFlag)

Here when the parameter side is 1 will show the result with one tailed test.

When the parameter side is 2 then the result is for two tailed test.

There are several ways to compare graphically the two samples in R. We have already seen a pair of boxplots. The following

> plot(ecdf(A), do.points=FALSE, verticals=TRUE, xlim=range(A, B))
> plot(ecdf(B), do.points=FALSE, verticals=TRUE, add=TRUE)

In Z3,there are many ways to compare two samples. For Example:

ZTESTTWOSAMPLEFORMEANS, TTESTPAIRED and soon.

Also we can compare through Graphically: ERROR BARS,BOX PLOT

The Kolmogorov-Smirnov test is of the maximal vertical distance between the two ecdf’s, assuming a common continuous distribution:

> ks.test(A, B)

Two-sample Kolmogorov-Smirnov test

data: A and B

D = 0.5962, p-value = 0.05919

alternative hypothesis: two-sided

The Kolmogorov-Smirnov test in Z3:

KSTESTCORE (XRange,ObservedFrequency,Confidence,NewTableFlag,Test,DoMidPointOfIntervals)

Grouping, loops and conditional execution

Grouped expressions

In R as well as in Z3, commands may be grouped together in braces, {expr_1; ...; expr_m}, in which case the value of the group is the result of the last expression in the group evaluated. Since such a group is also an expression it may, for example, be itself included in parentheses and used a part of an even larger expression, and so on.

Control statements

Conditional execution: if statements

R language has available a conditional construction of the form

> if (expr_1) expr_2 else expr_3

In Z3, the if else statement is written using '::' operator as:

(expr_1) :: {(expr_2) },
	     {(expr_3)};

For example,

x=34;
  (x<5)::  { x++ },
  (x>5):: { x-- },
  {
  x=x*2
  };
  x; 


In R, the “short-circuit” operators && and || are often used as part of the condition in an if statement. Whereas & and | apply element-wise to vectors, && and || apply to vectors of length one, and only evaluate their second argument if necessary.

In Z3, few of the following operators used are:

'==>' or '<=='   as assignment operators,
'@' as apply operator, 
':-'  as function creation operator

For more details on Z3 operators, please refer: [|Unit Operators ]

Repetitive execution: for loops, repeat and while

In R, there is also a for loop construction which has the form

> for (name in expr_1) expr_2

where name is the loop variable. expr 1 is a vector expression, (often a sequence like 1:20), and expr 2 is often a grouped expression with its sub-expressions written in terms of the dummy name. expr 2 is repeatedly evaluated as name ranges through the values in the vector result of expr 1.


In Z3, the same can be expressed using FOR() or FOREACH() functions:

FOR (expr_1) expr_2

or

FOR(expr_1, expr_2)
Example 1: FOR(1..2,2..4, "z=x*3*y") 

The first set 1..2 behaves as the outer loop index values, and the secondary set 2..4 behaves as the inner increments, for x and y values respectively, which are associated from left to right.

Example 2: FOR 1..3 SIN     

Calculates the SIN values for 1, 2 and 3.

Example 3: FOREACH(INTS(3),[SIN,COS])

Calculates SIN and COS values for 1,2 and 3.


In R,

coplot() function is used to print array of plots for respective object elements.
split() function produces a list of vectors obtained by splitting a larger vector according to the classes specified by a factor.
> repeat expr is a looping statement
> while (condition) expr is a looping statement
The break statement can be used to terminate any loop, possibly abnormally.
The next statement can be used to discontinue one particular cycle and skip to the “next”.

...' to do ***'....Z3 equivalent commands to be added

Writing your own functions

In R, a function is defined by an assignment of the form

> name <- function(arg_1, arg_2, ...) expression

Function can be called as:

name(expr_1, expr_2, ...)

In Z3, a function is defined as:

name = function(arg_1, arg_2, ...) expression

Function can be called as:

name(expr_1, expr_2, ...)

In Z3, a quick function creation operator ( := ) is similar to the => operator in Javascript. However, the advantage of := operator is that the parameters are not named explicitly (and is autodetected). For example to define a function such as v=u+a*t, v:=u+a*t is sufficient, and the parameters u, a and t are auto detected.

v:=u+a*t is equivalent to

 function v(u,a,t)
 { 
    return(u+a*t)
 }

Simple examples

Example 1:

In R, the function is defined as follows:

    > twosam <- function(y1, y2) {
    n1  <- length(y1); n2  <- length(y2)
    yb1 <- mean(y1);   yb2 <- mean(y2)
    s1  <- var(y1);    s2  <- var(y2)
    s <- ((n1-1)*s1 + (n2-1)*s2)/(n1+n2-2)
    tst <- (yb1 - yb2)/sqrt(s*(1/n1 + 1/n2))
    tst
    }

With this function defined, you could perform two sample t-tests using a call such as:

 > tstat <- twosam(data$male, data$female); tstat


In Z3,

'...to do ***'


Example2:

In R, given a n by 1 vector y and an n by p matrix X then X y is defined as (XT X)−XT y, where (XT X)− is a generalized inverse of X′X.

    > bslash <- function(X, y) {
      X <- qr(X)
      qr.coef(X, y)
    }

After this object is created it can be used in statements such as

    > regcoeff <- bslash(Xmat, yvar)


In Z3,

'...to do ***'

Defining new binary operators

In R, given the bslash() function a different name, namely one of the form

%anything %

it could have been used as a binary operator in expressions rather than in function form.

Suppose, for example, we choose ! for the internal character. The function definition would then start as

> "%!%" <- function(X, y) { ... }

(Note the use of quote marks.)

The function could then be used as

X %!% y

The matrix multiplication operator, %*%, and the outer product matrix operator %o% are other examples of binary operators defined in this way.


In Z3, Some common binary operators include:

Equal (==)
Not equal (!=)
Less than (<)
Greater than (>)
Greater than or equal to (>=)
Less than or equal to (<=)
Logical AND (&&)
Logical OR (||)
Plus (+)
Minus (-)
Multiplication (*)
Divide (/)
Binary |, Binary &, Binary ~  are used to indicate matrix boundaries.

'...to do *** Need to add how new binary operators can be defined in Z3'

Named arguments and defaults

In R, if there is a function fun1 defined by

    > fun1 <- function(data, data.frame, graph, limit) {
    [function body omitted]
    }

then in R, the function may be invoked in several ways, for example

    > ans <- fun1(d, df, TRUE, 20)
    > ans <- fun1(d, df, graph=TRUE, limit=20)
    > ans <- fun1(data=d, limit=20, graph=TRUE, data.frame=df)


In Z3, the fun1 is defined as:

fun1=function(data, data.frame, graph, limit) {
    [function body omitted]
    }

The function can be invoked in a simple way as:

ans=fun1(d,df,TRUE,20)

The '...' function

In R, many graphics functions use the function par() and functions like plot() that allow the user to pass on graphical parameters to par() to control the graphical output. This can be done by including an extra argument, literally ‘...’, of the function, which may then be passed on. An outline example is given below. In R,

    fun1 <- function(data, data.frame, graph=TRUE, limit=20, ...) {
     [omitted statements]
      if (graph)
        par(pch="*", ...)
      [more omissions]
      }


In Z3,

'...to do *** Need to add Z3 explanation here'

Assignments with functions

In R, any ordinary assignments done within the function are local and temporary and are lost after exit from the function. Thus the assignment

X <- qr(X)

does not affect the value of the argument in the calling program.

If global and permanent assignments are intended within a function, then either the “superassignment” operator, <<- or the function assign() can be used.


In Z3 also, ordinary assignments are temporary and are lost after exiting the function.

'...to do for Z3*** Need to add what are the functions for global/permanent assignment'

More Advanced Functions

...to do *** Need to add R explanation and Z3 explanation here

Scope

...to do *** Need to add R explanation and Z3 explanation here

Customizing the environment

...to do *** Need to add R explanation and Z3 explanation here

Classes, generic functions and object orientation

...to do *** Need to add R explanation and Z3 explanation here

Statistical models in R

This section explains about generalized linear models and nonlinear regression.

Defining statistical models; formulae

In R, The operator ~ is used to define a model formula in R. The form, for an ordinary linear model, is:

response ~ op_1 term_1 op_2 term_2 op_3 term_3 ...

where

response is a vector or matrix, (or expression evaluating to a vector or matrix) defining the response variable(s).
op i is an operator, either + or -, implying the inclusion or exclusion of a term in the model, (the first is optional).
term i is either
• a vector or matrix expression, or 1
• a factor, or
• a formula expression consisting of factors, vectors or matrices connected by formula operators.

In all cases each term defines a collection of columns either to be added to or removed from the model matrix.


For Z3, in the Statistical regression analysis,

  • Y is indicated as the "Dependent variable".
  • Predictor x is indicated as the "Independent Variable" .
  • The output of a Regression statistics is of the form :
  • Simple Regression: .
  • Multiple Regression: .

In Z3, functions such as REGRESSIONANALYSIS, MULTIPLEREGRESSIONANALYSIS(), INTERCEPT(), SLOPE() etc are used.

e.g

REGRESSIONANALYSIS (YRange,XRange,ConfidenceLevel,NewTableFlag)
MULTIPLEREGRESSIONANALYSIS(yRange,xRange,ConfidenceLevel,NewTableFlag)
INTERCEPT (KnownYArray,KnownXArray)
SLOPE (KnownYArray,KnownXArray)

Refer more Z3 commands here: [| Statistical Functions]

Contrasts

Contrasts can be used to make specific comparisons of treatments within a linear model. Factors are translated to a set of variables, one less than the number of levels of the factor (k-1).

In R, the default contrast is 'treatment' and is represented as:

options(contrasts = c("contr.treatment", "contr.poly"))


...' to do ***'....to add Z3 command. Is this similar to INTERCEPT()?

Linear models

The basic function for fitting ordinary multiple models is lm(), and a streamlined version of the call is as follows:

> fitted.model <- lm(formula, data = data.frame)

For example

> fm2 <- lm(y ~ x1 + x2, data = production)

would fit a multiple regression model of y on x1 and x2 (with implicit intercept term).


...' to do ***'....Z3 equivalent commands to be added. Is this similar to INTERCEPT()?

Generic functions for extracting model information

In R, the value of lm() is a fitted model object; technically a list of results of class "lm". Information about the fitted model can then be displayed, extracted, plotted and so on by using generic functions that orient themselves to objects of class "lm".

These include:

add1   deviance   formula   predict   step
alias   drop1   kappa   print   summary
anova   effects   labels   proj   vcov
coef   family   plot   residuals


In Z3, inbuilt generic linear regression functions are:

ANOVA, REGRESSION, REGRESSIONANALYSIS, MULTIPLEREGRESSIONANALYSIS, LOGEST, LINEST, FORECAST, SLOPE, GROWTH etc.

Refer more Z3 statistical functions here: [| Statistical Functions]


Analysis of variance and model comparison

Analysis of Variance (aov) is used to determine if the means of two or more groups differ significantly from each other. Responses are assumed to be independent of each other, Normally distributed (within each group), and the within-group variances are assumed equal.

In R, the model formula

response ~ mean.formula + Error(strata.formula)

specifies a multi-stratum experiment with error strata defined by the strata.formula. In the simplest case, strata.formula is simply a factor, when it defines a two strata experiment, namely between and within the levels of the factor. For example, with all determining variables factors, a model formula such as that in: In R,

    > fm <- aov(yield ~ v + n*p*k + Error(farms/blocks), data=farm.data)

would typically be used to describe an experiment with mean model v + n*p*k and three error strata, namely “between farms”, “within farms, between blocks” and “within blocks”.


In Z3, Analysis of variance is calculated using ANOVA function.

ANOVASINGLEFACTOR(Array, Alpha, GroupBy, NewTableFlag)

Analysis Of Variances(ANOVA) is a method of checking relationship between two or more data sets.

  •   should be in between '0' and '1'. Else Calci displays #N/A error message.
  • Analysis can be done by columns or rows. The choice should be entered in quotes (e.g. "COLUMNS" or "ROWS").
  •   can be a logical value TRUE or FALSE. If omitted, Calci assumes it to be FALSE.
  • If   is TRUE, the result is displayed on new zspace sheet.

Example:

Consider the following table with Columns A and B as array inputs for ANOVASINGLEFACTOR() function.

1 3
7 8
12 5
17 18
=ANOVASINGLEFACTOR(A1:B4,0.05,"ROWS",TRUE) displays results in a new space.
Anova: Single Factor
SUMMARY
Groups Count Sum Average Variance
RowA 4 37 9.25 46.916666666666664
RowB 4 34 8.5 44.333333333333336

ANOVA
Source of Variation Sum of Squares Degree of Freedom Mean of Squares F Probability F Critical
Between Groups: 1.125 1 1.125 0.024657534246575342 0.8886077621608085 5.987702296337573
Within Groups: 273.75 6 45.625
Total: 274.875 7


ANOVA tables

In R, a more flexible alternative to the default full ANOVA table is to compare two or more models directly using the anova() function.

> anova(fitted.model.1, fitted.model.2, ...)

The display is then an ANOVA table showing the differences between the fitted models when fitted in sequence.

Z3 has inbuilt ANOVA functions as:

ANOVASINGLEFACTOR(Array,Alpha,GroupBy,NewTableFlag)
ANOVATWOFACTORWITHOUTREPLICATION (Array,Alpha,NewTableFlag)
ANOVATWOFACTORWITHREPLICATION (Array,Alpha,NumberofSamplesPerRow,NewTableFlag)

Updating fitted models

In R, the update() function allows a model to be fitted that differs from one previously fitted usually by just a few additional or removed terms. Its form is

> new.model <- update(old.model, new.formula)

In the new.formula the special name consisting of a period, ‘.’, only, can be used to stand for “the corresponding part of the old model formula”. For example, > fm05 <- lm(y ~ x1 + x2 + x3 + x4 + x5,

>data = production)
 > fm6  <- update(fm05, . ~ . + x6)
 > smf6 <- update(fm6, sqrt(.) ~ .)

would fit a five variate multiple regression with variables (presumably) from the data frame production, fit an additional model including a sixth regressor variable, and fit a variant on the model where the response had a square root transform applied.

Other functions for exploring incremental sequences of models are add1(), drop1() and step().


...' to do ***'....to add description for Z3


Generalised linear models

In R, a generalised linear model may be described as: • There is a response, y, of interest and stimulus variables x1, x2, ..., whose values influence the distribution of the response.

• The linear predictor, and is usually written

η=β1x1 +β2x2 +···+βpxp 

hence xi has no influence on the distribution of y if and only if βi = 0.

• The distribution of y is of the form

Failed to parse (syntax error): {\displaystyle fY(y;μ,φ)=exp[A\fracφ{yλ(μ)−γ(λ(μ))}+τ(y,φ)}

where φ is a scale parameter (possibly known), and is constant for all observations, A represents a prior weight, assumed known but possibly varying with the observations, and μ is the mean of y.

• The mean, μ, is a smooth invertible function of the linear predictor: μ = m(η), η = m−1(μ) = l(μ) and this inverse function, l(), is called the link function.

...' to do ***'....to add description for Z3

Families

In R, the class of generalised linear models include gaussian, binomial, poisson, inverse gaussian and gamma response distributions and also quasilikelihood models where the response distribution is not explicitly specified.

In the latter case the variance function must be specified as a function of the mean, but in other cases this function is implied by the response distribution.

Each response distribution admits a variety of link functions to connect the mean with the linear predictor. Those automatically available are shown in the following table:

Family name           Link functions
binomial           logit, probit, log, cloglog
gaussian           identity, log, inverse
Gamma              identity, inverse, log
inverse.gaussian   1/mu^2, identity, inverse, log
poisson            identity, log, sqrt
quasi              logit, probit, cloglog, identity, inverse, log, 1/mu^2, sqrt

The combination of a response distribution, a link function and various other pieces of information that are needed to carry out the modeling exercise is called the family of the generalized linear model.

In Z3, the various distribution functions include: NORMDISTRIBUTED, NORMDIST, NORMINV, LOGNORMDIST, POISSON, GAMMALN, GAMMAINV, GAMMADIST and many more.

For detailed list of inbuilt Z3 statistical functions, click here: [| Statistical Functions]


The glm() funciton

The R function to fit a generalised linear model is glm() which uses the form

> fitted.model <- glm(formula, family=family.generator, data=data.frame)

The gaussian family:

A call such as

    > fm <- glm(y ~ x1 + x2, family = gaussian, data = sales)

achieves the same result as

    > fm <- lm(y ~ x1+x2, data=sales)

but much less efficiently.


The binomial family:

'...to do***' Need to add description for R and Z3.


Poisson models:

In R, a Poisson generalised linear model may be fitted as in the following example:

  > fmod <- glm(y ~ A + B + x, family = poisson(link=sqrt),
                  data = worm.counts)

'...to do***' Need to add description for Z3

Quasi-liklihood models:

For quasi-likelihood estimation and inference the precise response distribution is not specified, but rather only a link function and the form of the variance function as it depends on the mean.

Since quasi-likelihood estimation uses formally identical techniques to those for the gaussian distribution, this family provides a way of fitting gaussian models with non-standard link functions or variance functions, incidentally.

> nlfit <- glm(y ~ x1 + x2 - 1,
                   family = quasi(link=inverse, variance=constant),
                   data = biochem)

'...to do***' Need to add description for Z3

Nonlinear least squares and maximum likelihood models

R’s nonlinear optimisation routines are optim(), nlm() and nlminb(), which provide the functionality (and more) of S-Plus’s ms() and nlminb().


'...to do***' Need to add description for Z3


Least squares

'...to do***' Need to add description for R and Z3

Maximum likelihood

In R, Maximum likelihood is a method of nonlinear model fitting that applies even if the errors are not normal. The method finds the parameter values which maximize the log likelihood, or equivalently which minimize the negative log-likelihood.

This example fits a logistic model to dose-response data, which clearly could also be fit by glm(). The data are:

    > x <- c(1.6907, 1.7242, 1.7552, 1.7842, 1.8113,
             1.8369, 1.8610, 1.8839)
    > y <- c( 6, 13, 18, 28, 52, 53, 61, 60)
    > n <- c(59, 60, 62, 56, 63, 59, 62, 60)

The negative log-likelihood to minimize is:

    > fn <- function(p)
       sum( - (y*(p[1]+p[2]*x) - n*log(1+exp(p[1]+p[2]*x))
               + log(choose(n, y)) ))

With sensible starting values and do the fit:

    > out <- nlm(fn, p = c(-50,20), hessian = TRUE)

After the fitting, out$minimum is the negative log-likelihood, and out$estimate are the maximum likelihood estimates of the parameters. To obtain the approximate SEs of the estimates:

    > sqrt(diag(solve(out$hessian)))

A 95% confidence interval would be the parameter estimate ± 1.96 SE.


'...to do***' Need to add description for Z3


Some non-standard models

Some of the other facilities available in R for special regression and data analysis problems.

Mixed models:

The recommended nlme package provides functions lme() and nlme() for linear and non-linear mixed-effects models, that is linear and non-linear regressions in which some of the coefficients correspond to random effects.


Localapproximatingregressions:

The loess() function fits a non parametric regression by using a locally weighted regression. Such regressions are useful for highlighting a trend in messy data or for data reduction to give some insight into a large data set.


Robust regression:

Function lqs in the recommended package MASS provides state-of-art algorithms for highly-resistant fits. Less resistant but statistically more efficient methods are available in packages, for example function rlm in package MASS.


Additive models:

This technique aims to construct a regression function from smooth additive functions of the determining variables, usually one for each determining vari- able. Functions avas and ace in package acepack and functions bruto and mars in package mda provide some examples of these techniques in user-contributed packages to R. An extension is Generalized Additive Models, implemented in user-contributed packages gam and mgcv.


Tree-based models:

Tree-based models seek to bifurcate the data, recursively, at critical points of the determining variables in order to partition the data ultimately into groups that are as homogeneous as possible within, and as heterogeneous as possible between. The results often lead to insights that other data analysis methods tend not to yield.

Models are again specified in the ordinary linear model form. The model fitting func- tion is tree(), but many other generic functions such as plot() and text() are well adapted to displaying the results of a tree-based model fit in a graphical way. Tree models are available in R via the user-contributed packages rpart and tree.


'...to do ***' Need to add description for Z3

Graphical Procedures

Graphical facilities are an important and extremely versatile component of the R environment. R plotting commands can be used to produce a variety of graphical displays and are divided into three basic groups:

High-level

This plotting functions create a new plot on the graphics device, possibly with axes, labels, titles and so on.

Low-level

Low-level plotting functions add more information to an existing plot, such as extra points, lines and labels.

Interactive graphics

Interactive graphics functions allow you interactively add information to, or extract information from, an existing plot, using a pointing device such as a mouse.

In addition, R maintains a list of graphical parameters which can be manipulated to customize your plots.

High-level plotting commands

High-level plotting functions are designed to generate a complete plot of the data passed as arguments to the function.

The plot() function

Plot function is a generic function. This is the type of plot produced is dependent on the type or class of the first argument.

plot(xy)- If x and y are vectors, plot(x, y) produces a scatterplot of y against x.

plot(x)- If x is a time series, this produces a time-series plot. If x is a numeric vector, it produces a plot of the values in the vector against their index in the vector.

plot(f, y) - f is a factor object, y is a numeric vector. The first form generates a bar plot of f ; the second form produces boxplots of y for each level of f.

plot(y ~ expr) - df is a data frame, y is any object, expr is a list of object names separated by ‘+’ (e.g., a + b + c).

      • To do in Z3.

Displaying multivariate data

R provides two very useful functions for representing multivariate data. If X is a numeric matrix or data frame, the command

> pairs(X)

It produces a pairwise Scatterplot matrix for the given variable define in the columns of X.

When three or four variables are involved a coplot may be more enlightening. If a and b are numeric vectors and c is a numeric vector or factor object then the command

> coplot(a ~ b | c)

produces a number of scatterplots of a against b for given values of c

The number and position of intervals can be controlled with given.values= argument to coplot()—the function co.intervals() is useful for selecting intervals. Also for the two given variables with a command like

> coplot(a ~ b | c + d)

which produces scatterplots of a against b for every joint conditioning interval of c and d.

      • To update for Z3

Display graphics

Some of other high-level graphics functions produce different types of plots. Some Examples are in R.

qqnorm(x)
qqline(x)
qqplot(x, y) -Distribution-comparison plots.
hist(x)
hist(x, nclass=n)
hist(x, breaks=b, ...) - Produces a histogram of the numeric vector x.
dotchart(x, ...) - Constructs a dotchart of the data in x.
image(x, y, z, ...)
contour(x, y, z, ...)
persp(x, y, z, ...) - Plots of three variables
      • To update for Z3.

Arguments to high-level plotting function

There are more number of arguments which may be passed to high-level graphics functions in R as follows:

add=TRUE - Forces the function to act as a low-level graphics function, superimposing the plot on the current plot.
axes=FALSE- Suppresses generation of axes—useful for adding your own custom axes with the axis() function. The default, axes=TRUE, means include axes.
log="x"
log="y"
log="xy" - Causes the x, y or both axes to be logarithmic. This will work for many, but not all, types of plot.

The type= argument controls the type of plot produced, as follows:

type="p" Plot individual points (the default)
type="l" Plot lines
type="b" Plot points connected by lines (both)
type="o" Plot points overlaid by lines
type="h" Plot vertical lines from points to the zero axis (high-density)
type="s"
type="S" Step-function plots. In the first form, the top of the vertical defines the point; in the second, the bottom.
type="n" No plotting at all. 
xlab=string
ylab=string -Axis labels for the x and y axes. 
main=string -Figure title, placed at the top of the plot in a large font.
sub=string-Sub-title, placed just below the x-axis in a smaller font.
      • To Update for Z3


Low-level plotting commands

Low-level plotting commands can be used to add extra information such as points, lines or text to the current plot.

Some of the Low-level plotting commands are:

points(x, y)
lines(x, y)- Adds points or connected lines to the current plot. 
text(x, y, labels, ...) -Add text to a plot at points given by x, y. 
> plot(x, y, type="n"); text(x, y, names) -The graphics parameter type="n" suppresses the points but sets up the axes, and the text() function supplies special characters.


abline(a, b)
abline(h=y)
abline(v=x)
abline(lm.obj)- Adds a line of slope b and intercept a to the current plot.
polygon(x, y, ...)-Draws a polygon defined by the ordered vertices in (x, y).
legend(x, y, legend, ...) -Adds a legend to the current plot at the specified position.
legend( , fill=v)-Colors for filled boxes
legend( , col=v)-Colors in which points or lines will be drawn
legend( , lty=v)-Line styles
legend( , lwd=v)-Line widths
legend( , pch=v)-Plotting characters (character vector).
title(main, sub)-Adds a title main to the top of the current plot in a large font.
axis(side, ...)-Adds an axis to the current plot on the side given by the first argument. 
      • To do for Z3.

Mathematical annotation

In some cases, it is useful to add mathematical symbols and formulae to a plot. The following code draws the formula for the Binomial probability function in R:

> text(x, y, expression(paste(bgroup("(", atop(n, x), ")"), p^x, q^{n-x})))

Including a full listing of the features available can obtained from within R using the commands:

> help(plotmath)
> example(plotmath)
> demo(plotmath)
      • To do for Z3

Hershey vector fonts

It is possible to specify Hershey vector fonts for rendering text when using the text and contour functions. There are three reasons for using the Hershey fonts:

  • Hershey fonts can produce better output, especially on a computer screen, for rotated and/or small text.
  • Hershey fonts provide certain symbols that may not be available in the standard fonts.
  • Hershey fonts provide cyrillic and japanese (Kana and Kanji) characters.

Including tables of Hershey characters can be obtained from within R using the commands:

> help(Hershey)
> demo(Hershey)
> help(Japanese)
> demo(Japanese)
    • To do for Z3

Interacting with graphics

R also provides functions which allow users to extract or add information to a plot using a mouse. The simplest of these is the locator() function:

locator(n, type)- Waits for the user to select locations on the current plot using the left mouse button.

In R,use the below command to place some informative text near an outlying point.

> text(locator(1), "Outlier", adj=0)
identify(x, y, labels)-Allow the user to highlight any of the points defined by x and y by plotting the corresponding component of labels nearby.

Given a number of (x, y) coordinates in two numeric vectors x and y, we could use the identify() function as follows:

> plot(x, y)
> identify(x, y)- The identify() functions performs no plotting itself.
    • To do for Z3

Using graphics parameters

In R,a separate list of graphics parameters is maintained for each active device, and each device has a default set of parameters when initialized.

Graphics parameters can be set in two ways:

permanently- affecting all graphics functions which access the current device;

temporarily- affecting only a single graphics function call.

Permanent changes: The par() function

The par() function is used to access and modify the list of graphics parameters for the current graphics device.

par()- Without arguments, returns a list of all graphics parameters and their values for the current device.
par(c("col", "lty"))- With a character vector argument, returns only the named graphics parameters.
par(col=4, lty=2)- With named arguments , sets the values of the named graphics parameters, and returns the original values of the parameters as a list.

Setting graphics parameters with the par() function changes the value of the parameters permanently, and always affect the global values of graphics parameters, even when par() is called from within a function.

> oldpar <- par(col=4, lty=2)
. . . plotting commands . . .
> par(oldpar)

To save and restore all settable1 graphical parameters use

> oldpar <- par(no.readonly=TRUE)
. . . plotting commands . . .
> par(oldpar)
    • To do for Z3.

Temporary changes: Arguments to graphics functions

Graphics parameters may also be passed to (almost) any graphics function as named arguments. This has the same effect as passing the arguments to the par() function, except that the changes only last for the duration of the function call. For example:

> plot(x, y, pch="+")

produces a scatterplot using a plus sign as the plotting character.

    • To do for Z3.

Graphics parameters list

Graphics parameters will be presented in the following form:

name=value-A description of the parameter’s effect

Graphical elements

Graphical parameters exist which control how these graphical elements are drawn, as follows: pch="+" Character to be used for plotting points.

pch=4 When pch is given as an integer between 0 and 25 inclusive, a specialized plotting symbol is produced.

For Example in R,

> legend(locator(1), as.character(0:25), pch = 0:25)

In addition, pch can be a character or a number in the range 32:255 represent�ing a character in the current font.

lty=2 Line types. Line type 1 - a solid line

Line type 0 -Invisible

Line types 2 and onwards are dotted or dashed lines, or some combination of both.

lwd=2- Line widths

col=2 Colors to be used for points, lines, text, filled regions and images.
col.axis
col.lab
col.main
col.sub- The color to be used for axis annotation, x and y labels, main and sub-titles, respectively.
font=2- An integer which specifies which font to use for text.

If possible, device drivers arrange so that 1 corresponds to plain text, 2 to bold face, 3 to italic, 4 to bold italic and 5 to a symbol font.

font.axis
font.lab
font.main
font.sub- The font to be used for axis annotation, x and y labels, main and sub-titles, respectively.
adj=-0.1- Justification of text relative to the plotting position.
cex=1.5- Character expansion. The value is the desired size of text characters relative to the default text size.
cex.axis
cex.lab
cex.main
cex.sub - The character expansion to be used for axis annotation, x and y labels, main and sub-titles, respectively.
    • To do for Z3

Axes and tick marks

Many of R’s high-level plots have axes, Axes have three main components: the axis line, the tick marks and the tick labels.

These components can be customized with the following graphics parameters.

lab=c(5, 7, 12)- The first two numbers are the desired number of tick intervals on the x and y axes respectively.
las=1 - Orientation of axis labels.

0 means always parallel to axis.

1 means always horizontal

2 means always perpendicular to the axis.

mgp=c(3, 1, 0) -Positions of axis components.
tck=0.01- Length of tick marks, as a fraction of the size of the plotting region.
xaxs="r"
yaxs="i"- Axis styles for the x and y axes, respectively
      • To do for Z3

Figure margins

A single plot in R is known as a figure and comprises a plot region surrounded by margins and bounded by the axes themselves.

      • Do we have to draw a figure

Graphics parameters controlling figure layout include:

mai=c(1, 0.5, 0.5, 0)-Widths of the bottom, left, top and right margins, respectively, measured in inches.
mar=c(4, 2, 2, 1)- Similar to mai, except the measurement unit is text lines.

mar and mai are equivalent in the sense that setting one changes the value of the other. The default values chosen for this parameter are often too large, the right-hand margin is rarely needed, and neither is the top margin if no title is being used.

    • To do for Z3

Multiple figure environment

R allows you to create an n by m array of figures on a single page. The graphical parameters relating to multiple figures are as follows:

mfcol=c(3, 2)
mfrow=c(2, 4)- Set the size of a multiple figure array. The first value is the number of rows;the second is the number of columns.
mfg=c(2, 2, 3, 2)- Position of the current figure in a multiple figure environment.
fig=c(4, 9, 1, 4)/10-Position of the current figure on the page.
oma=c(2, 0, 3, 0)
omi=c(0, 0, 0.8, 0)-Size of outer margins.
  • To do for Z3

Device drivers

Device drivers are started by calling a device driver function. There is one such function for every device driver: type help(Devices) for a list of them all. For example, issuing the command

> postscript()-causes all future graphics output to be sent to the printer in PostScript format. 

Some commonly-used device drivers are:

X11()- For use with the X11 window system on Unix-alikes
windows()-For use on Windows
quartz()- For use on Mac OS X
postscript()-For printing on PostScript printers, or creating PostScript graphics files.
pdf()- Produces a PDF file, which can also be included into PDF files.
png()- Produces a bitmap PNG file. (Not always available: see its help page.)
jpeg()- Produces a bitmap JPEG file, best used for image plots.
> dev.off() - To terminate the device driver.
    • To do for Z3

PostScript diagrams for typeset documents

In R, to produce a file containing PostScript code for a figure five inches high, perhaps for inclusion in a document is:

> postscript("file.ps", horizontal=FALSE, height=5, pointsize=10)

It is important to note that if the file named in the command already exists, it will be overwritten.

R always produces conformant output, but only marks the output as such when the onefile=FALSE argument is supplied. This unusual notation stems from S-compatibility: it really means that the output will be a single page. Thus to produce a plot for inclusion use something like

> postscript("plot1.eps", horizontal=FALSE, onefile=FALSE,height=8, width=6, pointsize=10)
    • To do for Z3

Multiple graphics device

In R, only one graphics device can accept graphics commands at any one time, and this is known as the current device. When multiple devices are open, they form a numbered sequence with names giving the kind of device at any position.

The main commands in R used for operating with multiple devices, and their meanings are as follows:

X11() [UNIX]
windows()
win.printer()
win.metafile()
[Windows]
quartz() [Mac OS X]
postscript()
pdf()
png()
jpeg()
tiff()
bitmap()
... Each new call to a device driver function opens a new graphics device, thus extending by one the device list.
dev.list()-Returns the number and name of all active devices. The device at position 1 on the list is always the null device which does not accept graphics commands

at all.

dev.next()
dev.prev()-Returns the number and name of the graphics device next to, or previous to the current device, respectively.
dev.set(which=k)- Can be used to change the current graphics device to the one at position k of the device list. Returns the number and label of the device.
dev.off(k)- Terminate the graphics device at point k of the device list.
dev.copy(device, ..., which=k)
dev.print(device, ..., which=k)-Make a copy of the device k.
graphics.off()-Terminate all graphics devices on the list, except the null device.
  • To update for Z3

Dynamic graphics

R does not have builtin capabilities for dynamic or interactive graphics, e.g. rotating point clouds or to “brushing” points. However, extensive dynamic graphics facilities are available in the system GGobi by Swayne, Cook and Buja available from http://www.ggobi.org/ and these can be accessed from R via the package rggobi, described at http://www.ggobi.org/rggobi.

Also, package rgl provides ways to interact with 3D plots, for example of surfaces

    • To do for Z3



Please check back in couple of days. We are updating the page.