Displaying 2 results from an estimated 2 matches for "abc4".
Did you mean:
abc
2007 Nov 01
1
loops & sampling
...[2]<-"x1"
names(abc)[3]<-"x2"
abc2 <- abc
#sample
abc3 <- as.data.frame(t(as.matrix(data.frame(abc2))))
n <- length(abc2)
npboot.function <- function(nboot)
{
boot.cor <- vector(length=nboot)
for(i in 1:nboot){
rdata <- sample(abc3,n,replace=T)
abc4 <- as.data.frame(t(as.matrix(data.frame(rdata))))
model <- lm(asin(sqrt(abc4$y/100)) ~ I(abc4$x1^2) + abc4$x2)
boot.cor[i] <- cor(abc4$y, model$fit)}
boot.cor
}
bt.cor <- npboot.function(nboot=10)
bootmean <- mean(bt.cor)
Any assistance would be greatly appreciated, also...
2016 Nov 21
2
Winbind traffic not encrypted
...331 506f 898e ef6b 72e6 2526 z.y[31Po...kr.%&
0x02d0: 342b dbd0 15b2 f402 c291 c2e0 ad2e af23 4+.............#
0x02e0: 2378 42c2 6cb8 4076 8058 c381 bea5 69ab #xB.l. at v.X....i.
0x02f0: 99ac 1730 dcab 9904 d685 67f1 8f6a ff6f ...0......g..j.o
0x0300: 3f70 6132 16d5 251d abc4 a8e5 b178 d86e ?pa2..%......x.n
0x0310: cb0c a839 0c03 6638 70a6 b205 d357 9e18 ...9..f8p....W..
0x0320: cf51 470c 026b cd73 2d37 c602 3e9a 627c .QG..k.s-7..>.b|
0x0330: 251a d825 95a4 86a3 428a 371c bbb0 70f7 %..%....B.7...p.
0x0340: 07dc 4da5 83d2 0a90 92ca 1046 d2db e5...