Displaying 1 result from an estimated 1 matches for "tp3932027p3933256".
2011 Oct 24
1
How to delete rows using conditions on all columns
n <- 10
P1 <- runif(n)
P2 <- runif(n)
P3 <- P1 + P2 + runif(n)/100
P4 <- P1 + P2 + P3 + runif(n)/100
mydata <- data.frame(cbind(P1,P2,P3,P4))
mydata[1,1] <- 8
mydata[3,1] <- -5
mydata[2,3] <- -6
mydata[7,3] <- 7
f=function(z){quantile(z, c(0.01, 0.99)) }
temp1 <- lapply(mydata, f)
temp1
$P1
1% 99%
-4.542391 7.354209
$P2
1% 99%