# [R] Use of Sappy and Tappy for Mathematical Calculation

Nordlund, Dan (DSHS/RDA) NordlDJ at dshs.wa.gov
Tue Jul 10 18:30:36 CEST 2012

```> -----Original Message-----
> From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-
> project.org] On Behalf Of Rantony
> Sent: Tuesday, July 10, 2012 3:17 AM
> To: r-help at r-project.org
> Subject: [R] Use of Sappy and Tappy for Mathematical Calculation
>
> Hi,
>
> i have a matrix like this,
>
> ABC        XYZ    ......    .....   .....
> -----         ------
> 12            20      ......    .....   .....
> 24            35      ......    .....   .....
> 30            40      ......    .....   .....
>
> Here, i need to get
>                            Sum of each columns,
>                            Mean of each columns,
>                            median of each columns,
>                            mode of each columns,
>                            Standard deviation  of each columns,
>                            variance of each columns,
>                            range of each columns,
>                            count of each columns,
>                            max of each columns,
>                            min of each columns
>
> Can i get output using sappy or tappy functions ? because there have
> alots
> of records.
>
>
> - Thanks
> Antony
>

Here is some code to get you started.  You can add in the other functions that you want.  You will need to figure out what you want to do if there are missing values.  There are built-in functions for most everything you want.  You get the range from the min and the max, and you need to decide what to do if a variable has 2 or more modes (you  will also need to determine how you are going to get the mode).

# here is sample matrix
mat <- matrix(1:100,nrow=10)
colnames(mat) <- LETTERS[1:10]

# define summarize function
summarize <- function(m) {
sums <- apply(m, 2, sum)
counts <- apply(m, 2, length)
means <- apply(m, 2, mean)
return(rbind(sums, counts, means))
}

summarize(mat)

Dan

Daniel J. Nordlund
Washington State Department of Social and Health Services
Planning, Performance, and Accountability
Research and Data Analysis Division
Olympia, WA 98504-5204

```