is this what you are looking for:
> x <- read.table(textConnection(" V1
> V2 V3 V4 V5
+ 1 1007_s_at DDR1 2865.1 2901.3 1978.3
+ 2 1053_at RFC2 103.6 81.6 108.0
+ 3 117_at HSPA6 222.0 222.5 306.2
+ 4 121_at PAX8 2146.3 2457.2 1901.9
+ 5 1255_g_at GUCA1A 226.5 321.2 109.2
+ 6 1294_at UBE1L 296.6 424.6 406.1
+ 7 1316_at THRA 339.9 354.2 178.3
+ 8 1320_at PTPN21 78.4 36.2
185.2"), header=TRUE)
> closeAllConnections()
> kurtosis <-function(x) (mean((x-mean(x))^4))/(sd(x)^4) #x is a vector
> cbind(x, kurtosis=apply(x, 1, function(z)
> kurtosis(as.numeric(unlist(z[3:5])))))
V1 V2 V3 V4 V5 kurtosis
1 1007_s_at DDR1 2865.1 2901.3 1978.3 0.6666667
2 1053_at RFC2 103.6 81.6 108.0 0.6666667
3 117_at HSPA6 222.0 222.5 306.2 0.6666667
4 121_at PAX8 2146.3 2457.2 1901.9 0.6666667
5 1255_g_at GUCA1A 226.5 321.2 109.2 0.6666667
6 1294_at UBE1L 296.6 424.6 406.1 0.6666667
7 1316_at THRA 339.9 354.2 178.3 0.6666667
8 1320_at PTPN21 78.4 36.2 185.2 0.6666667
>
On Mon, Jun 23, 2008 at 10:31 PM, Gundala Viswanath <[EMAIL PROTECTED]> wrote:
> Hi,
>
> I have the following function:
>
>> kurtosis <-function(x) (mean((x-mean(x))^4))/(sd(x)^4) #x is a vector
>
> and data
>
>> print(mydata)
> V1 V2 V3 V4 V5
> 1 1007_s_at DDR1 2865.1 2901.3 1978.3
> 2 1053_at RFC2 103.6 81.6 108.0
> 3 117_at HSPA6 222.0 222.5 306.2
> 4 121_at PAX8 2146.3 2457.2 1901.9
> 5 1255_g_at GUCA1A 226.5 321.2 109.2
> 6 1294_at UBE1L 296.6 424.6 406.1
> 7 1316_at THRA 339.9 354.2 178.3
> 8 1320_at PTPN21 78.4 36.2 185.2
>
> Now, I want to:
> 1. apply the kurtosis function to every row in the data (starting
> from V3 to V5)
> 2. bind the output of the kurtosis function to mydata.
>
> Why my code below doesn't work? What's the solution for it?
>
> binded_mydata_withkurt <- cbind(mydata,
> kurt=apply(mydata,1,kurtosis(mydata[,3:ncol(repo.dat)]),na.rm = TRUE))
>
>
> - Gundala Viswanath
> Jakarta - Indonesia
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
--
Jim Holtman
Cincinnati, OH
+1 513 646 9390
What is the problem you are trying to solve?
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
