Displaying 11 results from an estimated 11 matches for "junk2".
Did you mean:
junk
2010 Feb 04
4
xyplot 3 panels 3 different Y variables
...r instance, it generates a "time" variable that actually is a category. And the variable names are converted into the levels of a factor by hand, so that the process is susceptible to human error.
Also, the Y variables are not labeled on the axes, only in the strip. This is not ideal.
JUNK2<-JUNK
names(JUNK2)[names(JUNK2)=="Creatinine"]<-"Y.1"
names(JUNK2)[names(JUNK2)=="Estrogen"]<-"Y.2"
names(JUNK2)[names(JUNK2)=="Ratio"]<-"Y.3"
JUNKlong<- reshape(JUNK2, dir="long", varying=2:4)
JUNKlong$outcome<...
2008 Nov 04
1
contour plot, failing to interpolate through all data
....72,NA,NA
"0.667",NA,NA,-0.72,NA,NA,NA
"1",-0.42,-0.72,-0.85,NA,NA,NA
"1.5",NA,-0.85,NA,NA,NA,NA
"2",-0.69,-0.92,NA,NA,NA,NA
"3",-0.84,NA,NA,NA,NA,NA
"4",-0.91,NA,NA,NA,NA,NA
"5",-0.95,NA,NA,NA,NA,NA
####End data
####start code
junk2<-as.matrix(read.csv(file='testmatrix.csv'))
colnames(junk2)<-as.character(seq(.5,3,by=.5))
contour(ylim=c(-1,1),as.numeric(rownames(junk2)),as.numeric(colnames(jun
k2)), junk2,levels=c(seq(-1,0,by=.1),seq(1,23,by=2)))
junk3<-cbind(as.numeric(colnames(junk2)[as.vector(col(junk2))])...
2010 Aug 10
4
Function to Define a Function
...N0*exp(x*r) },
two={ m <- function(x,N0,r,K) (N0*K)/(N0+(K-N0)*exp(-x*r)) },
)
m
}
## define time steps
t <- 0:10
## create a function -- junk1 -- that produces exponential growth
junk1 <- mdlChooser("one")
junk1
res1 <- junk1(t,500,0.2)
res1
## create a function -- junk2 -- that produces logistic growth
junk2 <- mdlChooser("two")
junk2
res2 <- junk2(t,500,0.2,1000)
res2
[[alternative HTML version deleted]]
2010 Mar 04
3
Issues when volume is full
...hm
/dev/sda1 228M 92M 124M 43% /boot
/dev/mapper/lsddomain-home
4.6G 138M 4.5G 3% /home
192.168.58.2:/backup/bacula
2.5T 996G 1.5T 40% /backup
/dev/mapper/spool 500G 499G 1.6G 100% /spool
lsddomainsd:/spool# dd if=/dev/zero of=junk2 bs=1024000
dd: writing `junk2'': No space left on device
1+0 records in
0+0 records out
0 bytes (0 B) copied, 0.0704083 s, 0.0 kB/s
lsddomainsd:/spool# dd if=/dev/zero of=junk3 bs=1024000
dd: writing `junk3'': No space left on device
1+0 records in
0+0 records out
0 bytes (0 B) copi...
2013 Oct 14
0
how to prevent default argument values from being found
...n(expr), name, parentenv, handler): argument "lib" is missing, with no default>
$pkgs
[1] "aPackage"
If we change that hook function so it does not assume that the 'pkgs' and 'libs' arguments are
passed in then default argument evaluation works as expected.
junk2 <- function (...)
{
fun <- function(pkgs, lib = NULL) {
list(missing = missing(lib), lib = try(lib, silent = TRUE),
pkgs = pkgs)
}
hook <- function(FUN, ...) {
FUN(...)
}
hook(fun, ...)
}
> junk2("aPackage")
$missing
[1] TRUE
$l...
2004 Aug 17
1
An entire data frame which is a time-series?
I have :
raw <- read.table("monthly.text", skip=3, sep="|",
col.names=c("junk", "junk2",
"wpi", "g.wpi", "wpi.primary", "g.wpi.primary",
"wpi.fuel", "g.wpi.fuel", "wpi.manuf", "g.wpi.manuf",
"cpi.iw", "g.cpi.iw", "cpi.unme...
2008 Jul 17
2
nested calls, variable scope
...is to make the required variable global, which of course is dangerous. What is the elegant or appropriate way to solve this?
# The call to ns works at the command line:
> junk<-ns(DAT$Age, knots=74)
# The call to lmer works at the command line, with the call to ns nested within it:
> junk2<-lmer(formula=Finished ~ Sex01 + ns(DAT$Age, knots= 74 ) + MinCC + PzC + (1 | NAME ) + (1 | Year), data=myDATonly, family="binomial")
But now I want to do this within a function such as the following:
> myfn
function(myknot=74) {
library(lme4)
library(splines)...
2020 Oct 27
2
imapsieve: setting imapsieve_url disables admin scripts
...box2_before = file:/usr/local/lib/imapsieve/report-ham.sieve
? imapsieve_mailbox2_causes = COPY
? imapsieve_mailbox2_from = Junk
? imapsieve_mailbox2_name = *
? imapsieve_mailbox3_before = file:/usr/local/lib/imapsieve/report-spam.sieve
? imapsieve_mailbox3_causes = COPY
? imapsieve_mailbox3_name = Junk2
? imapsieve_mailbox4_before = file:~/sieve/IMAP-Sent.sieve
? imapsieve_mailbox4_causes = APPEND COPY
? imapsieve_mailbox4_name = Sent
? quota = count:User quota:noenforcing
? quota_rule = *:storage=5120M
? quota_vsizes = yes
? sieve = file:~/sieve;active=~/.dovecot.sieve
? sieve_before = /etc/dovec...
2006 Jan 27
3
paging agi
...= grep(/^\s+\d+\s.*/, `asterisk -rx "show hints"`);
# Now check each sip phone to see if it's in use and also
# against our exclude list. If it passes both, it's
# added to our array of calls to make
foreach $sipline (@sips) {
my ($junk0, $exten, $junk1, $chan, $state, $junk2) = split(/ +/,
$sipline,6);
unless (($state ne "State:Idle") || (grep(/$exten/i, @bypass))) {
push (@mypage, "$exten");
}
}
$page= join ("&SIP/", @mypage);
print "$page";{
# Open connection to AGI and set Global Variable...
2020 Oct 27
0
imapsieve: setting imapsieve_url disables admin scripts
...apsieve/report-ham.sieve
> ? imapsieve_mailbox2_causes = COPY
> ? imapsieve_mailbox2_from = Junk
> ? imapsieve_mailbox2_name = *
> ? imapsieve_mailbox3_before = file:/usr/local/lib/imapsieve/report-spam.sieve
> ? imapsieve_mailbox3_causes = COPY
> ? imapsieve_mailbox3_name = Junk2
> ? imapsieve_mailbox4_before = file:~/sieve/IMAP-Sent.sieve
> ? imapsieve_mailbox4_causes = APPEND COPY
> ? imapsieve_mailbox4_name = Sent
> ? quota = count:User quota:noenforcing
> ? quota_rule = *:storage=5120M
> ? quota_vsizes = yes
> ? sieve = file:~/sieve;active=~/...
2011 Mar 09
4
Help with read.csv
Hello,
I have a file that looks like this:
Date,Hour,DA_DMD,DMD,DA_RTP,RTP,,
1/1/2006,1,3393.9,3412,76.65,105.04,,
1/1/2006,2,3173.3,3202,69.20,67.67,,
1/1/2006,3,3040.0,3051,69.20,77.67,,
1/1/2006,4,2998.2,2979,67.32,69.10,,
1/1/2006,5,3005.8,2958,65.20,68.34,,
where the ',' is the separator and I tried to read it into R, but...
> y <- read.csv("Data/Data_tmp.csv",