Difference between revisions of "RvsZ3"
(184 intermediate revisions by 3 users not shown) | |||
Line 1: | Line 1: | ||
− | Comparison of R | + | =Comparison of R and Z3= |
== Simple manipulations; numbers and vectors== | == Simple manipulations; numbers and vectors== | ||
===Vectors and assignment=== | ===Vectors and assignment=== | ||
− | Z3 operates on named data structures. The simplest such structure is the numeric vector, | + | <pre> |
− | which is a single entity consisting of an ordered collection of numbers. | + | 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. |
+ | </pre> | ||
− | 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 | + | 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) | + | ''> x <- c(10.4, 5.6, 3.1, 6.4, 21.7)'' |
Z3 command to set up a vector is: | Z3 command to set up a vector is: | ||
+ | |||
x<==[10.4, 5.6, 3.1, 6.4, 21.7]; | x<==[10.4, 5.6, 3.1, 6.4, 21.7]; | ||
− | |||
− | |||
Alternatively we can use the simple "=" also. | Alternatively we can use the simple "=" also. | ||
Line 18: | Line 18: | ||
Assignment can also be made using the function ASSIGN(). An equivalent way of making the same assignment as above is with: | Assignment can also be made using the function ASSIGN(). An equivalent way of making the same assignment as above is with: | ||
+ | |||
In R, | In R, | ||
− | > assign("x", c(10.4, 5.6, 3.1, 6.4, 21.7)) | + | ''> assign("x", c(10.4, 5.6, 3.1, 6.4, 21.7))'' |
− | In Z3 | + | In Z3, use the "ASSIGN" function as: |
− | ASSIGN("x", [10.4, 5.6, 3.1, 6.4, 21.7]) | + | 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 | + | Assignments can also be made in the other direction, using the obvious change in the assignment operator. |
− | assignment operator. So the same assignment could be made using | + | So the same assignment could be made using |
[10.4, 5.6, 3.1, 6.4, 21.7]==>x | [10.4, 5.6, 3.1, 6.4, 21.7]==>x | ||
The reciprocals of the above five values for x in R, | The reciprocals of the above five values for x in R, | ||
− | > 1/x | + | |
+ | ''> 1/x'' | ||
+ | |||
In Z3, We can use the function called Reciprocal, | 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] | + | RECIPROCAL(x) (the value of x is [10.4, 5.6, 3.1, 6.4, 21.7] |
Also we can use directly, | Also we can use directly, | ||
([10.4,5.6,3.1,6.4,21.7]<>d40)@(x=>1/x) | ([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. | ||
+ | </pre> | ||
+ | |||
+ | ===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: [[https://wiki.zcubes.com/Z%5E3_Array_Manipulation_Member_Functions | 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:[[ Z%5E3_Array_Manipulation_Member_Functions | 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: [[http://wiki.zcubes.com/Z_API_Functions#Matrix_Functions1 | Matrix Functions 1]] | ||
+ | [[http://wiki.zcubes.com/Z_API_Functions#Matrix_Functions2 | 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: | ||
+ | {| class="wikitable" | ||
+ | |+Spreadsheet | ||
+ | |- | ||
+ | ! !! A !! B !! C | ||
+ | |- | ||
+ | ! 1 | ||
+ | | 3 || 7 || 5 | ||
+ | |- | ||
+ | ! 2 | ||
+ | | 10 || 12 || 8 | ||
+ | |- | ||
+ | !3 | ||
+ | | 6 || 8 || 14 | ||
+ | |} | ||
+ | =EIGENVALUES(A1:C3) | ||
+ | {| border="1" cellpadding="5" cellspacing="0" | ||
+ | |- | ||
+ | | | ||
+ | -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 | ||
+ | {| class="wikitable" | ||
+ | |+Spreadsheet | ||
+ | |- | ||
+ | ! !! A !! B !!C | ||
+ | |- | ||
+ | ! 1 | ||
+ | | 1 || 0 || 1 | ||
+ | |- | ||
+ | ! 2 | ||
+ | | -1 || -2 || 0 | ||
+ | |- | ||
+ | ! 3 | ||
+ | |0 || 1 || -1 | ||
+ | |} | ||
+ | =SVD(A1:C3) | ||
+ | {| border="1" cellpadding="5" cellspacing="0" | ||
+ | |- | ||
+ | | | ||
+ | 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: | ||
+ | *[[http://wiki.zcubes.com/Manuals/calci/SVD |SVD]] | ||
+ | *[[http://wiki.zcubes.com/Manuals/calci/LUDECOMPOSITION |LUDECOMPOSITION ]] | ||
+ | *[[http://wiki.zcubes.com/Manuals/calci/QRDECOMPOSITION |QRDECOMPOSITION ]] | ||
+ | *[[http://wiki.zcubes.com/Manuals/calci/SVF |SVF]] | ||
+ | *[[http://wiki.zcubes.com/Manuals/calci/MATRIXDECOMPOSE |MATRIXDECOMPOSE]] | ||
+ | |||
+ | |||
+ | ====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. | ||
+ | # Regression statistics table. | ||
+ | # ANOVA table. | ||
+ | # Residual output. | ||
+ | |||
+ | {| class="wikitable" | ||
+ | |+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''' | ||
+ | |||
+ | {| class="wikitable" | ||
+ | |+Summary Output | ||
+ | |- | ||
+ | ! Regression Statistics !! | ||
+ | |- | ||
+ | | Multiple R || -0.9989241524588298 | ||
+ | |- | ||
+ | | R Square || 0.9978494623655915 | ||
+ | |- | ||
+ | | v14193 || 0.9967741935483871 | ||
+ | |- | ||
+ | | v15308 || 0.7071067811865362 | ||
+ | |} | ||
+ | |||
+ | {| class="wikitable" | ||
+ | |+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 || || || | ||
+ | |} | ||
+ | |||
+ | {| class="wikitable" | ||
+ | |+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 | ||
+ | |} | ||
+ | |||
+ | {| class="wikitable" | ||
+ | |+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. | ||
+ | |||
+ | {| class="wikitable" | ||
+ | |+Spreadsheet | ||
+ | |- | ||
+ | ! !! A !! B | ||
+ | |- | ||
+ | ! 1 | ||
+ | | 2 || 6 | ||
+ | |- | ||
+ | !2 | ||
+ | | 10 || -15 | ||
+ | |} | ||
+ | =QRDECOMPOSITION(A1:B2) | ||
+ | {| border="1" cellpadding="5" cellspacing="0" | ||
+ | |- | ||
+ | | | ||
+ | -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: | ||
+ | *[[http://wiki.zcubes.com/Merge_Functions_in_z%5E3_Sets/Arrays | Merge functions]] | ||
+ | *[[http://wiki.zcubes.com/Array.X$() | Array.x$]] | ||
+ | |||
+ | ===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 ''Lst[[1]]'' and is the string "Fred" | ||
+ | |||
+ | ''Lst$wife'' is the same as ''Lst[[2]]'' and is the string "Mary" | ||
+ | |||
+ | ''Lst$child.ages[1] is the same as ''Lst[[4]][1]'' and is the number 4 | ||
+ | |||
+ | Also | ||
+ | ''Lst[["name"]]'' is the same as Lst$name. | ||
+ | |||
+ | The same result will get in Z3, | ||
+ | name or Lst[[0]] | ||
+ | wife or Lst[[1]] | ||
+ | Childages or Lst[[3]] 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"; Lst[[x]]'' | ||
+ | |||
+ | 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: [[http://wiki.zcubes.com/Array_Concat_Functions |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 <- inp[[1]]; x <- inp[[2]]; y <- inp[[3]]'' | ||
+ | |||
+ | 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. | ||
+ | {| class="wikitable" | ||
+ | |- | ||
+ | !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 [[http://wiki.zcubes.com/Manuals/calci/KSTESTCORE | 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: [[https://wiki.zcubes.com/Unit_Operators |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:<math>\hat Y = b_0+b_1x</math>. | ||
+ | *Multiple Regression:<math>\hat Y = b_0+b_1(x1)+b_2(x2)+......+b_K(xK)</math>. | ||
+ | |||
+ | 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: [[http://wiki.zcubes.com/Z_API_Functions#Statistical_Functions2 | 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: [[http://wiki.zcubes.com/Z_API_Functions#Statistical_Functions2 | 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. | ||
+ | *<math>Alpha</math> 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"). | ||
+ | *<math>NewTableFlag</math> can be a logical value TRUE or FALSE. If omitted, Calci assumes it to be FALSE. | ||
+ | *If <math>NewTableFlag</math> 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. | ||
+ | |||
+ | <div id="2SpaceContent" class="zcontent" align="left"> | ||
+ | |||
+ | {| id="TABLE3" class="SpreadSheet blue" | ||
+ | |- class="even" | ||
+ | | class="sshl_f" | 1 | ||
+ | | class=" " |3 | ||
+ | | class=" " | | ||
+ | |||
+ | |- class="odd" | ||
+ | | class="sshl_f" | 7 | ||
+ | | class=" " |8 | ||
+ | | class=" " | | ||
+ | |||
+ | |- class="even" | ||
+ | | class="sshl_f" | 12 | ||
+ | | class=" " |5 | ||
+ | | class=" " | | ||
+ | |||
+ | |- class="odd" | ||
+ | | class="sshl_f" | 17 | ||
+ | | class=" " |18 | ||
+ | | class=" " | | ||
+ | |||
+ | |- class="even" | ||
+ | | class="sshl_f" | | ||
+ | | class=" " | | ||
+ | | class=" " | | ||
+ | |} | ||
+ | |||
+ | =ANOVASINGLEFACTOR(A1:B4,0.05,"ROWS",TRUE) displays results in a new space. | ||
+ | |||
+ | <div id="8SpaceContent" class="zcontent" align="left"> | ||
+ | |||
+ | {| id="TABLE1" class="SpreadSheet blue" | ||
+ | |+ Anova: Single Factor<br />SUMMARY | ||
+ | |- class="even" | ||
+ | ! Groups | ||
+ | ! Count | ||
+ | ! Sum | ||
+ | ! Average | ||
+ | ! Variance | ||
+ | |- class="odd" | ||
+ | | RowA | ||
+ | | 4 | ||
+ | | 37 | ||
+ | | 9.25 | ||
+ | | 46.916666666666664 | ||
+ | |- class="even" | ||
+ | | RowB | ||
+ | | 4 | ||
+ | | 34 | ||
+ | | 8.5 | ||
+ | | 44.333333333333336 | ||
+ | |} | ||
+ | |||
+ | {| id="TABLE2" class="SpreadSheet blue" | ||
+ | |+ <br />ANOVA | ||
+ | |- class="even" | ||
+ | ! Source of Variation | ||
+ | ! Sum of Squares | ||
+ | ! Degree of Freedom | ||
+ | ! Mean of Squares | ||
+ | ! F | ||
+ | ! Probability | ||
+ | ! F Critical | ||
+ | |- class="odd" | ||
+ | | Between Groups: | ||
+ | | 1.125 | ||
+ | | 1 | ||
+ | | 1.125 | ||
+ | | 0.024657534246575342 | ||
+ | | 0.8886077621608085 | ||
+ | | 5.987702296337573 | ||
+ | |- class="even" | ||
+ | | Within Groups: | ||
+ | | 273.75 | ||
+ | | 6 | ||
+ | | 45.625 | ||
+ | |- class="odd" | ||
+ | | 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 | ||
+ | <math>fY(y;μ,φ)=exp[A\fracφ{yλ(μ)−γ(λ(μ))}+τ(y,φ)</math> | ||
+ | |||
+ | 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: [[https://wiki.zcubes.com/Z_API_Functions#Statistical_Functions2 | 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 | ||
+ | </pre> | ||
+ | |||
Please check back in couple of days. We are updating the page. | Please check back in couple of days. We are updating the page. |
Latest revision as of 11:09, 6 August 2021
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:
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
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:
- [|SVD]
- [|LUDECOMPOSITION ]
- [|QRDECOMPOSITION ]
- [|SVF]
- [|MATRIXDECOMPOSE]
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.
- Regression statistics table.
- ANOVA table.
- Residual output.
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
Regression Statistics | |
---|---|
Multiple R | -0.9989241524588298 |
R Square | 0.9978494623655915 |
v14193 | 0.9967741935483871 |
v15308 | 0.7071067811865362 |
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 |
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 |
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.
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.
Groups | Count | Sum | Average | Variance |
---|---|---|---|---|
RowA | 4 | 37 | 9.25 | 46.916666666666664 |
RowB | 4 | 34 | 8.5 | 44.333333333333336 |
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.